guix/rekado/guile-studio.scm

   1 (define-module (rekado guile-studio))
   2 (use-modules (guix packages)
   3              (guix download)
   4              (guix gexp)
   5              (guix build-system gnu)
   6              ((guix licenses) #:prefix license:)
   7              (gnu packages guile)
   8              (gnu packages guile-xyz)
   9              (gnu packages emacs)
  10              (gnu packages emacs-xyz)
  11              (gnu packages gnome))
  12
  13 (define-public guile-studio
  14   (package
  15     (name "guile-studio")
  16     (version "0")
  17     (source (local-file "../../guile-studio-configure.scm"))
  18     (build-system gnu-build-system)
  19     (arguments
  20      `(#:tests? #f                      ; there are none
  21        #:phases
  22        (modify-phases %standard-phases
  23          (delete 'unpack)
  24          (delete 'configure)
  25          (replace 'build
  26            (lambda* (#:key source inputs outputs #:allow-other-keys)
  27              (let* ((out   (assoc-ref outputs "out"))
  28                     (bin   (string-append out "/bin/"))
  29                     (share (string-append out "/share/")))
  30                (mkdir-p share)
  31                (mkdir-p bin)
  32                (apply invoke "guile" "-s" source
  33                       out
  34                       (assoc-ref inputs "emacs")
  35                       (assoc-ref inputs "guile-picture-language")
  36                       (string-append (assoc-ref inputs "adwaita-icon-theme")
  37                                      "/share/icons/Adwaita/")
  38                       (map cdr inputs))
  39                #t)))
  40          (delete 'install))))
  41     (inputs
  42      `(("guile" ,guile-2.2)
  43        ("guile-picture-language" ,guile-picture-language)
  44        ("emacs" ,emacs)
  45        ("emacs-geiser" ,emacs-geiser)
  46        ("emacs-company" ,emacs-company)
  47        ("emacs-flycheck" ,emacs-flycheck)
  48        ("emacs-smart-mode-line" ,emacs-smart-mode-line)
  49        ("emacs-paren-face" ,emacs-paren-face)
  50        ("adwaita-icon-theme" ,adwaita-icon-theme)))
  51     (home-page "https://gnu.org/software/guile")
  52     (synopsis "Totally not a cheap copy of Dr Racket for Guile")
  53     (description
  54      "Racket has Dr Racket.  Guile has ... Emacs?  This is Emacs with a few
  55 settings that make working with Guile easier for people new to Emacs.
  56 Features include: CUA mode, Geiser, tool bar icons to evaluate Guile buffers,
  57 support for Guile's very own picture language, code completion, a simple mode
  58 line, etc.")
  59     (license license:gpl3+)))