;; Janestreet packages are found in a similar way and all need the same patch.

(define (janestreet-origin name version hash)

  (origin (method url-fetch)

          (uri (string-append "https://ocaml.janestreet.com/ocaml-core/"

                              (version-major+minor version) "/files/"

                              name "-" version ".tar.gz"))

          (sha256 (base32 hash))

          (modules '((guix build utils)))

          (snippet

           (let ((pattern (string-append "lib/" name)))

             `(begin

                ;; install.ml contains an invalid reference to the ppx file and

                ;; propagates this error to the generated META file.  It

                ;; looks for it in the "lib" directory, but it is installed in

                ;; "lib/ocaml/site-lib/package".  This substitute does not change

                ;; this file for non ppx packages.

                (substitute* "install.ml"

                  ((,pattern) (string-append "lib/ocaml/site-lib/" ,name)))

                ;; The standard Makefile would try to install janestreet modules

                ;; in OCaml's directory in the store, which is read-only.

                (substitute* "Makefile"

                  (("--prefix")

                   "--libdir $(LIBDIR) --prefix")))))))

;; They also require almost the same set of arguments

(define janestreet-arguments

  `(#:use-make? #t

    #:make-flags

    (list (string-append "CONFIGUREFLAGS=--prefix "

                         (assoc-ref %outputs "out")

                         " --enable-tests")

          (string-append "LIBDIR="

                         (assoc-ref %outputs "out")

                         "/lib/ocaml/site-lib")

          ;; for ocaml-bin-prot, otherwise ignored

          (string-append "OCAML_TOPLEVEL_PATH="

                         (assoc-ref %build-inputs "findlib")

                         "/lib/ocaml/site-lib"))

    #:phases (modify-phases %standard-phases (delete 'configure))))

(define-public ocaml-zed

  (package

    (name "ocaml-zed")

    (version "1.4")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/diml/zed/archive/"

                                  version ".tar.gz"))

              (sha256

               (base32

                "0pvfq9ikhbkv4ksn3k3vzs6wiwkihjav3n81lhxm54z9931gfwnz"))))

    (build-system ocaml-build-system)

    (propagated-inputs

     `(("camomile" ,ocaml-camomile)

       ("react" ,ocaml-react)))

    (home-page "https://github.com/diml/zed")

    (synopsis "Abstract engine for text edition in OCaml")

    (description "Zed is an abstract engine for text edition. It can be used to

write text editors, edition widgets, readlines, ...

Zed uses Camomile to fully support the Unicode specification, and implements an

UTF-8 encoded string type with validation, and a rope datastructure to achieve

efficient operations on large Unicode buffers. Zed also features a regular

expression search on ropes.

To support efficient text edition capabilities, Zed provides macro recording

and cursor management facilities.")

    (license license:bsd-3)))

(define-public ocaml-lambda-term

  (package

    (name "ocaml-lambda-term")

    (version "1.10.1")

    (home-page "https://github.com/diml/lambda-term")

    (source (origin

              (method url-fetch)

              (uri (string-append home-page "/archive/" version ".tar.gz"))

              (sha256

               (base32

                "1449glcsavcwbcsxbd7wcjz50y8vvin4zwpmkhq8i6jca3f3sknj"))))

    (build-system ocaml-build-system)

    (propagated-inputs

     `(("zed" ,ocaml-zed)

       ("lwt" ,ocaml-lwt)

       ("react" ,ocaml-react)))

    (arguments

     `(#:phases

       (modify-phases %standard-phases

        (add-after 'install 'link-stubs

          (lambda* (#:key outputs #:allow-other-keys)

            (let* ((out (assoc-ref outputs "out"))

                   (stubs (string-append out "/lib/ocaml/site-lib/stubslibs"))

                   (lib (string-append out "/lib/ocaml/site-lib/lambda-term")))

              (mkdir-p stubs)

              (symlink (string-append lib "/dlllambda-term_stubs.so")

                       (string-append stubs "/dlllambda-term_stubs.so"))))))))

    (synopsis "Terminal manipulation library for OCaml")

    (description "Lambda-term is a cross-platform library for manipulating the

terminal. It provides an abstraction for keys, mouse events, colors, as well as

a set of widgets to write curses-like applications.

The main objective of lambda-term is to provide a higher level functional

interface to terminal manipulation than, for example, ncurses, by providing a

native OCaml interface instead of bindings to a C library.

Lambda-term integrates with zed to provide text edition facilities in console

applications.")

    (license license:bsd-3)))

(define-public ocaml-utop

  (package

    (name "ocaml-utop")

    (version "1.19.3")

    (source (origin

              (method url-fetch)

              (uri (string-append "https://github.com/diml/utop/archive/"

                                  version ".tar.gz"))

              (file-name (string-append name "-" version ".tar.gz"))

              (sha256

               (base32

                "16z02vp9n97iax4fqpbi7v86r75vbabxvnd1rirh8w2miixs1g4x"))))

    (build-system ocaml-build-system)

    (native-inputs

     `(("cppo" ,ocaml-cppo)))

    (propagated-inputs

     `(("lambda-term" ,ocaml-lambda-term)

       ("lwt" ,ocaml-lwt)

       ("react" ,ocaml-react)))

    (home-page "https://github.com/diml/utop")

    (synopsis "Universal toplevel for OCaml")

    (description "utop is an improved toplevel for OCaml.  It can run in a

terminal or in Emacs.  It supports line edition, history, real-time and context

sensitive completion, colors, and more.

It integrates with the tuareg mode in Emacs.")

    (license license:bsd-3)))