gnu/packages/emacs.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <taylanbayirli@gmail.com>
   3 ;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
   4 ;;; Copyright © 2014, 2015 Mark H Weaver <mhw@netris.org>
   5 ;;; Copyright © 2014, 2015, 2016 Alex Kost <alezost@gmail.com>
   6 ;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
   7 ;;; Copyright © 2015, 2016 Ricardo Wurmus <rekado@elephly.net>
   8 ;;; Copyright © 2016 Nils Gillmann <niasterisk@grrlz.net>
   9 ;;;
  10 ;;; This file is part of GNU Guix.
  11 ;;;
  12 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  13 ;;; under the terms of the GNU General Public License as published by
  14 ;;; the Free Software Foundation; either version 3 of the License, or (at
  15 ;;; your option) any later version.
  16 ;;;
  17 ;;; GNU Guix is distributed in the hope that it will be useful, but
  18 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;;; GNU General Public License for more details.
  21 ;;;
  22 ;;; You should have received a copy of the GNU General Public License
  23 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 (define-module (gnu packages emacs)
  26   #:use-module ((guix licenses) #:prefix license:)
  27   #:use-module (guix packages)
  28   #:use-module (guix download)
  29   #:use-module (guix git-download)
  30   #:use-module (guix gexp)
  31   #:use-module (guix monads)
  32   #:use-module (guix store)
  33   #:use-module (guix build-system gnu)
  34   #:use-module (guix build-system emacs)
  35   #:use-module (guix build-system glib-or-gtk)
  36   #:use-module (guix build-system trivial)
  37   #:use-module (gnu packages)
  38   #:use-module (gnu packages guile)
  39   #:use-module (gnu packages gtk)
  40   #:use-module (gnu packages gnome)
  41   #:use-module (gnu packages ncurses)
  42   #:use-module (gnu packages texinfo)
  43   #:use-module (gnu packages tls)
  44   #:use-module (gnu packages pkg-config)
  45   #:use-module (gnu packages xorg)
  46   #:use-module (gnu packages lesstif)
  47   #:use-module (gnu packages image)
  48   #:use-module (gnu packages linux)
  49   #:use-module (gnu packages version-control)
  50   #:use-module (gnu packages imagemagick)
  51   #:use-module (gnu packages w3m)
  52   #:use-module (gnu packages wget)
  53   #:use-module (gnu packages autotools)
  54   #:use-module (gnu packages base)
  55   #:use-module (gnu packages compression)
  56   #:use-module (gnu packages xml)
  57   #:use-module (gnu packages glib)
  58   #:use-module (gnu packages acl)
  59   #:use-module (gnu packages package-management)
  60   #:use-module (gnu packages perl)
  61   #:use-module (gnu packages pdf)
  62   #:use-module (gnu packages scheme)
  63   #:use-module (gnu packages xiph)
  64   #:use-module (gnu packages mp3)
  65   #:use-module (guix utils)
  66   #:use-module (srfi srfi-1))
  67
  68 (define-public emacs
  69   (package
  70     (name "emacs")
  71     (version "24.5")
  72     (source (origin
  73              (method url-fetch)
  74              (uri (string-append "mirror://gnu/emacs/emacs-"
  75                                  version ".tar.xz"))
  76              (sha256
  77               (base32
  78                "0kn3rzm91qiswi0cql89kbv6mqn27rwsyjfb8xmwy9m5s8fxfiyx"))
  79              (patches (list (search-patch "emacs-exec-path.patch")
  80                             (search-patch "emacs-source-date-epoch.patch")))))
  81     (build-system glib-or-gtk-build-system)
  82     (arguments
  83      `(#:phases
  84        (modify-phases %standard-phases
  85          (add-before 'configure 'fix-/bin/pwd
  86            (lambda _
  87              ;; Use `pwd', not `/bin/pwd'.
  88              (substitute* (find-files "." "^Makefile\\.in$")
  89                (("/bin/pwd")
  90                 "pwd"))))
  91          (add-after 'install 'remove-info.info
  92            (lambda* (#:key outputs #:allow-other-keys)
  93              ;; Remove 'info.info', which is provided by Texinfo <= 6.0.
  94              ;; TODO: Remove this phase when we switch to Texinfo 6.1.
  95              (let ((out (assoc-ref outputs "out")))
  96                (delete-file
  97                 (string-append out "/share/info/info.info.gz"))
  98                #t)))
  99          (add-after 'install 'install-site-start
 100            ;; Copy guix-emacs.el from Guix and add it to site-start.el.  This
 101            ;; way, Emacs packages provided by Guix and installed in
 102            ;; ~/.guix-profile/share/emacs/site-lisp/guix.d/PACKAGE-VERSION are
 103            ;; automatically found.
 104            (lambda* (#:key inputs outputs #:allow-other-keys)
 105              (let* ((guix-src (assoc-ref inputs "guix-src"))
 106                     (out      (assoc-ref outputs "out"))
 107                     (lisp-dir (string-append out "/share/emacs/"
 108                                              ,(version-major+minor version)
 109                                              "/site-lisp"))
 110                     (unpack   (assoc-ref %standard-phases 'unpack)))
 111                (mkdir "guix")
 112                (with-directory-excursion "guix"
 113                  (apply unpack (list #:source guix-src))
 114                  (install-file "emacs/guix-emacs.el" lisp-dir))
 115                (with-output-to-file (string-append lisp-dir "/site-start.el")
 116                  (lambda ()
 117                    (display "(require 'guix-emacs nil t)")))
 118                #t))))))
 119     (inputs
 120      `(("gnutls" ,gnutls)
 121        ("ncurses" ,ncurses)
 122
 123        ;; TODO: Add the optional dependencies.
 124        ("libx11" ,libx11)
 125        ("gtk+" ,gtk+)
 126        ("libxft" ,libxft)
 127        ("libtiff" ,libtiff)
 128        ("giflib" ,giflib)
 129        ("libjpeg" ,libjpeg-8)
 130        ("acl" ,acl)
 131
 132        ;; When looking for libpng `configure' links with `-lpng -lz', so we
 133        ;; must also provide zlib as an input.
 134        ("libpng" ,libpng)
 135        ("zlib" ,zlib)
 136
 137        ("librsvg" ,librsvg)
 138        ("libxpm" ,libxpm)
 139        ("libxml2" ,libxml2)
 140        ("libice" ,libice)
 141        ("libsm" ,libsm)
 142        ("alsa-lib" ,alsa-lib)
 143        ("dbus" ,dbus)
 144        ("guix-src" ,(package-source guix))))
 145     (native-inputs
 146      `(("pkg-config" ,pkg-config)
 147        ("texinfo" ,texinfo)))
 148
 149     (native-search-paths
 150      (list (search-path-specification
 151             (variable "INFOPATH")
 152             (files '("share/info")))))
 153
 154     (home-page "http://www.gnu.org/software/emacs/")
 155     (synopsis "The extensible, customizable, self-documenting text editor")
 156     (description
 157      "GNU Emacs is an extensible and highly customizable text editor.  It is
 158 based on an Emacs Lisp interpreter with extensions for text editing.  Emacs
 159 has been extended in essentially all areas of computing, giving rise to a
 160 vast array of packages supporting, e.g., email, IRC and XMPP messaging,
 161 spreadsheets, remote server editing, and much more.  Emacs includes extensive
 162 documentation on all aspects of the system, from basic editing to writing
 163 large Lisp programs.  It has full Unicode support for nearly all human
 164 languages.")
 165     (license license:gpl3+)))
 166
 167 (define-public emacs-no-x
 168   ;; This is the version that you should use as an input to packages that just
 169   ;; need to byte-compile .el files.
 170   (package (inherit emacs)
 171     (name "emacs-no-x")
 172     (synopsis "The extensible, customizable, self-documenting text
 173 editor (console only)")
 174     (build-system gnu-build-system)
 175     (inputs (fold alist-delete
 176                   (package-inputs emacs)
 177                   '("libx11" "gtk+" "libxft" "libtiff" "giflib" "libjpeg"
 178                     "libpng" "librsvg" "libxpm" "libice" "libsm"
 179
 180                     ;; D-Bus depends on libx11, so remove it as well.
 181                     "dbus")))))
 182
 183 (define-public emacs-no-x-toolkit
 184   (package (inherit emacs)
 185     (name "emacs-no-x-toolkit")
 186     (synopsis "The extensible, customizable, self-documenting text
 187 editor (without an X toolkit)" )
 188     (build-system gnu-build-system)
 189     (inputs (append `(("inotify-tools" ,inotify-tools))
 190                     (alist-delete "gtk+" (package-inputs emacs))))
 191     (arguments (append '(#:configure-flags '("--with-x-toolkit=no"))
 192                        (package-arguments emacs)))))
 193
 194 (define-public guile-emacs
 195   (package (inherit emacs)
 196     (name "guile-emacs")
 197     (version "20150512.41120e0")
 198     (source (origin
 199               (method git-fetch)
 200               (uri (git-reference
 201                     (url "git://git.hcoop.net/git/bpt/emacs.git")
 202                     (commit "41120e0f595b16387eebfbf731fff70481de1b4b")))
 203               (sha256
 204                (base32
 205                 "0lvcvsz0f4mawj04db35p1dvkffdqkz8pkhc0jzh9j9x2i63kcz6"))))
 206     (native-inputs
 207      `(("autoconf" ,autoconf)
 208        ("automake" ,automake)
 209        ("guile" ,guile-for-guile-emacs)
 210        ,@(package-native-inputs emacs)))
 211     (arguments
 212      (substitute-keyword-arguments `(;; Build fails if we allow parallel build.
 213                                      #:parallel-build? #f
 214                                      ;; Tests aren't passing for now.
 215                                      #:tests? #f
 216                                      ,@(package-arguments emacs))
 217        ((#:phases phases)
 218         `(modify-phases ,phases
 219            (add-after 'unpack 'autogen
 220                       (lambda _
 221                         (zero? (system* "sh" "autogen.sh"))))))))))
 222
 223 \f
 224 ;;;
 225 ;;; Emacs hacking.
 226 ;;;
 227
 228 (define-public geiser
 229   (package
 230     (name "geiser")
 231     (version "0.8.1")
 232     (source (origin
 233              (method url-fetch)
 234              (uri (string-append "mirror://savannah/geiser/" version
 235                                  "/geiser-" version ".tar.gz"))
 236              (sha256
 237               (base32
 238                "163zh8qf1q8l485d94a51a9xixirj8r2xvrbgxyw06vkaqrz5qvc"))))
 239     (build-system gnu-build-system)
 240     (arguments
 241      '(#:phases (alist-cons-after
 242                  'install 'post-install
 243                  (lambda* (#:key outputs #:allow-other-keys)
 244                    (symlink "geiser-install.el"
 245                             (string-append (assoc-ref outputs "out")
 246                                            "/share/emacs/site-lisp/"
 247                                            "geiser-autoloads.el")))
 248                  %standard-phases)))
 249     (inputs `(("guile" ,guile-2.0)
 250               ("emacs" ,emacs-no-x)))
 251     (home-page "http://nongnu.org/geiser/")
 252     (synopsis "Collection of Emacs modes for Guile and Racket hacking")
 253     (description
 254      "Geiser is a collection of Emacs major and minor modes that conspire with
 255 one or more Scheme implementations to keep the Lisp Machine Spirit alive.  The
 256 continuously running Scheme interpreter takes the center of the stage in
 257 Geiser.  A bundle of Elisp shims orchestrates the dialog between the Scheme
 258 implementation, Emacs and, ultimately, the schemer, giving them access to live
 259 metadata.")
 260     (license license:bsd-3)))
 261
 262 (define-public paredit
 263   (package
 264     (name "paredit")
 265     (version "24")
 266     (source (origin
 267               (method url-fetch)
 268               (uri (string-append "http://mumble.net/~campbell/emacs/paredit-"
 269                                   version ".el"))
 270               (sha256
 271                (base32
 272                 "0pp3n8q6kc70blqsaw0zlzp6bc327dpgdrjr0cnh7hqg1lras7ka"))))
 273     (build-system trivial-build-system)
 274     (inputs `(("emacs" ,emacs-no-x)))
 275     (arguments
 276      `(#:modules ((guix build utils)
 277                   (guix build emacs-utils))
 278        #:builder
 279        (begin
 280          (use-modules (guix build utils))
 281          (use-modules (guix build emacs-utils))
 282
 283          (let* ((emacs    (string-append (assoc-ref %build-inputs "emacs")
 284                                          "/bin/emacs"))
 285                 (source   (assoc-ref %build-inputs "source"))
 286                 (lisp-dir (string-append %output
 287                                          "/share/emacs/site-lisp"))
 288                 (target   (string-append lisp-dir "/paredit.el")))
 289            (mkdir-p lisp-dir)
 290            (copy-file source target)
 291            (with-directory-excursion lisp-dir
 292              (parameterize ((%emacs emacs))
 293                (emacs-generate-autoloads ,name lisp-dir)
 294                (emacs-batch-eval '(byte-compile-file "paredit.el"))))))))
 295     (home-page "http://mumble.net/~campbell/emacs/paredit/")
 296     (synopsis "Emacs minor mode for editing parentheses")
 297     (description
 298      "ParEdit (paredit.el) is a minor mode for performing structured editing
 299 of S-expression data.  The typical example of this would be Lisp or Scheme
 300 source code.
 301
 302 ParEdit helps **keep parentheses balanced** and adds many keys for moving
 303 S-expressions and moving around in S-expressions.  Its behavior can be jarring
 304 for those who may want transient periods of unbalanced parentheses, such as
 305 when typing parentheses directly or commenting out code line by line.")
 306     (license license:gpl3+)))
 307
 308 (define-public git-modes
 309   (package
 310     (name "git-modes")
 311     (version "1.2.1")
 312     (source (origin
 313               (method url-fetch)
 314               (uri (string-append
 315                     "https://github.com/magit/git-modes/archive/"
 316                     version ".tar.gz"))
 317               (file-name (string-append name "-" version ".tar.gz"))
 318               (sha256
 319                (base32
 320                 "088wyddh8y0yw77i0hx449n9zg4wzyc90h63wlmxba1ijg4dzm0p"))))
 321     (build-system gnu-build-system)
 322     (arguments
 323      `(#:modules ((guix build gnu-build-system)
 324                   (guix build emacs-utils)
 325                   (guix build utils))
 326        #:imported-modules (,@%gnu-build-system-modules
 327                            (guix build emacs-utils))
 328
 329        #:make-flags (list (string-append "PREFIX="
 330                                          (assoc-ref %outputs "out"))
 331                           ;; Don't put .el files in a 'git-modes'
 332                           ;; sub-directory.
 333                           (string-append "LISPDIR="
 334                                          (assoc-ref %outputs "out")
 335                                          "/share/emacs/site-lisp"))
 336        #:tests? #f  ; no check target
 337        #:phases (modify-phases %standard-phases
 338                   (delete 'configure)
 339                   (add-after 'install 'emacs-autoloads
 340                              (lambda* (#:key outputs #:allow-other-keys)
 341                                (let* ((out  (assoc-ref outputs "out"))
 342                                       (lisp (string-append
 343                                              out "/share/emacs/site-lisp/")))
 344                                  (emacs-generate-autoloads ,name lisp)))))))
 345     (native-inputs `(("emacs" ,emacs-no-x)))
 346     (home-page "https://github.com/magit/git-modes")
 347     (synopsis "Emacs major modes for Git configuration files")
 348     (description
 349      "This package provides Emacs major modes for editing various Git
 350 configuration files, such as .gitattributes, .gitignore, and .git/config.")
 351     (license license:gpl3+)))
 352
 353 (define-public emacs-with-editor
 354   (package
 355     (name "emacs-with-editor")
 356     (version "2.5.0")
 357     (source (origin
 358               (method url-fetch)
 359               (uri (string-append
 360                     "https://github.com/magit/with-editor/archive/v"
 361                     version ".tar.gz"))
 362               (file-name (string-append name "-" version ".tar.gz"))
 363               (sha256
 364                (base32
 365                 "19gb381z61l2icg5v5pymgi1a11g3zdp5aysl2j5fh7fxxg4d4c0"))))
 366     (build-system emacs-build-system)
 367     (propagated-inputs
 368      `(("emacs-dash" ,emacs-dash)))
 369     (home-page "https://github.com/magit/with-editor")
 370     (synopsis "Emacs library for using Emacsclient as EDITOR")
 371     (description
 372      "This package provides an Emacs library to use the Emacsclient as
 373 @code{$EDITOR} of child processes, making sure they know how to call home.
 374 For remote processes a substitute is provided, which communicates with Emacs
 375 on stdout instead of using a socket as the Emacsclient does.")
 376     (license license:gpl3+)))
 377
 378 (define-public magit
 379   (package
 380     (name "magit")
 381     (version "2.5.0")
 382     (source (origin
 383              (method url-fetch)
 384              (uri (string-append
 385                    "https://github.com/magit/magit/releases/download/"
 386                    version "/" name "-" version ".tar.gz"))
 387              (sha256
 388               (base32
 389                "0i6qpx5szzc4kyfcdhaic8gif0sqdqcya1niyj93lpvw66jcxsxa"))))
 390     (build-system gnu-build-system)
 391     (native-inputs `(("texinfo" ,texinfo)
 392                      ("emacs" ,emacs-no-x)))
 393     (inputs `(("git" ,git)))
 394     (propagated-inputs
 395      `(("dash" ,emacs-dash)
 396        ("with-editor" ,emacs-with-editor)))
 397     (arguments
 398      `(#:modules ((guix build gnu-build-system)
 399                   (guix build utils)
 400                   (guix build emacs-utils))
 401        #:imported-modules (,@%gnu-build-system-modules
 402                            (guix build emacs-utils))
 403
 404        #:test-target "test"
 405        #:tests? #f               ; tests are not included in the release
 406
 407        #:make-flags
 408        (list (string-append "PREFIX=" %output)
 409              ;; Don't put .el files in a sub-directory.
 410              (string-append "lispdir=" %output "/share/emacs/site-lisp")
 411              (string-append "DASH_DIR="
 412                             (assoc-ref %build-inputs "dash")
 413                             "/share/emacs/site-lisp/guix.d/dash-"
 414                             ,(package-version emacs-dash))
 415              (string-append "WITH_EDITOR_DIR="
 416                             (assoc-ref %build-inputs "with-editor")
 417                             "/share/emacs/site-lisp/guix.d/with-editor-"
 418                             ,(package-version emacs-with-editor)))
 419
 420        #:phases
 421        (modify-phases %standard-phases
 422          (delete 'configure)
 423          (add-before
 424           'build 'patch-exec-paths
 425           (lambda* (#:key inputs #:allow-other-keys)
 426             (let ((git (assoc-ref inputs "git")))
 427               (emacs-substitute-variables "lisp/magit-git.el"
 428                 ("magit-git-executable" (string-append git "/bin/git")))
 429               #t))))))
 430     (home-page "http://magit.github.io/")
 431     (synopsis "Emacs interface for the Git version control system")
 432     (description
 433      "With Magit, you can inspect and modify your Git repositories with Emacs.
 434 You can review and commit the changes you have made to the tracked files, for
 435 example, and you can browse the history of past changes.  There is support for
 436 cherry picking, reverting, merging, rebasing, and other common Git
 437 operations.")
 438     (license license:gpl3+)))
 439
 440 (define-public magit-svn
 441   (package
 442     (name "magit-svn")
 443     (version "2.1.1")
 444     (source (origin
 445               (method url-fetch)
 446               (uri (string-append
 447                     "https://github.com/magit/magit-svn/archive/"
 448                     version ".tar.gz"))
 449               (file-name (string-append name "-" version ".tar.gz"))
 450               (sha256
 451                (base32
 452                 "04y88j7q9h8xjbx5dbick6n5nr1522sn9i1znp0qwk3vjb4b5mzz"))))
 453     (build-system trivial-build-system)
 454     (native-inputs `(("emacs" ,emacs-no-x)
 455                      ("tar" ,tar)
 456                      ("gzip" ,gzip)))
 457     (propagated-inputs `(("dash" ,emacs-dash)
 458                          ("magit" ,magit)))
 459     (arguments
 460      `(#:modules ((guix build utils)
 461                   (guix build emacs-utils))
 462
 463        #:builder
 464        (begin
 465          (use-modules (guix build utils)
 466                       (guix build emacs-utils))
 467
 468          (let* ((tar      (string-append (assoc-ref %build-inputs "tar")
 469                                          "/bin/tar"))
 470                 (PATH     (string-append (assoc-ref %build-inputs "gzip")
 471                                          "/bin"))
 472                 (emacs    (string-append (assoc-ref %build-inputs "emacs")
 473                                          "/bin/emacs"))
 474                 (magit    (string-append (assoc-ref %build-inputs "magit")
 475                                          "/share/emacs/site-lisp"))
 476                 (dash     (string-append (assoc-ref %build-inputs "dash")
 477                                          "/share/emacs/site-lisp/guix.d/dash-"
 478                                          ,(package-version emacs-dash)))
 479                 (source   (assoc-ref %build-inputs "source"))
 480                 (lisp-dir (string-append %output "/share/emacs/site-lisp")))
 481            (setenv "PATH" PATH)
 482            (system* tar "xvf" source)
 483
 484            (install-file (string-append ,name "-" ,version "/magit-svn.el")
 485                          lisp-dir)
 486
 487            (with-directory-excursion lisp-dir
 488              (parameterize ((%emacs emacs))
 489                (emacs-generate-autoloads ,name lisp-dir)
 490                (setenv "EMACSLOADPATH"
 491                        (string-append ":" magit ":" dash))
 492                (emacs-batch-eval '(byte-compile-file "magit-svn.el"))))))))
 493     (home-page "https://github.com/magit/magit-svn")
 494     (synopsis "Git-SVN extension to Magit")
 495     (description
 496      "This package is an extension to Magit, the Git Emacs mode, providing
 497 support for Git-SVN.")
 498     (license license:gpl3+)))
 499
 500 (define-public haskell-mode
 501   (package
 502     (name "haskell-mode")
 503     (version "13.14.2")
 504     (source (origin
 505               (method url-fetch)
 506               (file-name (string-append name "-" version ".tar.gz"))
 507               (uri (string-append
 508                     "https://github.com/haskell/haskell-mode/archive/v"
 509                     version ".tar.gz"))
 510               (sha256
 511                (base32 "1kxc2yj8vb122dv91r68h7c5ladcryx963fr16plfhg71fv7f9av"))))
 512     (inputs `(("emacs" ,emacs-no-x)))
 513     (native-inputs
 514      `(("texinfo" ,texinfo)))
 515     (build-system gnu-build-system)
 516     (arguments
 517      `(#:make-flags (list (string-append "EMACS="
 518                                          (assoc-ref %build-inputs "emacs")
 519                                          "/bin/emacs"))
 520        #:phases
 521        (modify-phases %standard-phases
 522          (delete 'configure)
 523          (add-before
 524           'build 'pre-build
 525           (lambda* (#:key inputs #:allow-other-keys)
 526             (let ((sh (string-append (assoc-ref inputs "bash") "/bin/sh")))
 527               (setenv "SHELL" "sh")
 528               (substitute* (find-files "." "\\.el") (("/bin/sh") sh))
 529               #t)))
 530          (replace
 531           'install
 532           (lambda* (#:key outputs #:allow-other-keys)
 533             (let* ((out (assoc-ref outputs "out"))
 534                    (el-dir (string-append out "/share/emacs/site-lisp"))
 535                    (doc (string-append
 536                          out "/share/doc/haskell-mode-" ,version))
 537                    (info (string-append out "/share/info")))
 538               (define (copy-to-dir dir files)
 539                 (for-each (lambda (f)
 540                             (install-file f dir))
 541                           files))
 542
 543               (with-directory-excursion "doc"
 544                 (unless (zero? (system* "makeinfo" "haskell-mode.texi"))
 545                   (error "makeinfo failed"))
 546                 (install-file "haskell-mode.info" info))
 547                (copy-to-dir doc '("CONTRIBUTING.md" "NEWS" "README.md"))
 548                (copy-to-dir el-dir (find-files "." "\\.elc?"))
 549                ;; these are now distributed with emacs
 550                (with-directory-excursion el-dir
 551                  (for-each delete-file '("cl-lib.el" "ert.el")))
 552                #t))))))
 553     (home-page "https://github.com/haskell/haskell-mode")
 554     (synopsis "Haskell mode for Emacs")
 555     (description
 556      "This is an Emacs mode for editing, debugging and developing Haskell
 557 programs.")
 558     (license license:gpl3+)))
 559
 560 (define-public let-alist
 561   (package
 562     (name "emacs-let-alist")
 563     (version "1.0.4")
 564     (source (origin
 565               (method url-fetch)
 566               (uri (string-append "http://elpa.gnu.org/packages/let-alist-"
 567                                   version ".el"))
 568               (sha256
 569                (base32
 570                 "07312bvvyz86lf64vdkxg2l1wgfjl25ljdjwlf1bdzj01c4hm88x"))))
 571     (build-system trivial-build-system)
 572     (arguments
 573      `(#:modules ((guix build utils)
 574                   (guix build emacs-utils))
 575
 576        #:builder (begin
 577                    (use-modules (guix build emacs-utils)
 578                                 (guix build utils))
 579
 580                    (let* ((out     (assoc-ref %outputs "out"))
 581                           (lispdir (string-append out
 582                                                   "/share/emacs/site-lisp/"
 583                                                   "guix.d/let-alist-"
 584                                                   ,version))
 585                           (emacs   (assoc-ref %build-inputs "emacs")))
 586
 587                      (mkdir-p lispdir)
 588                      (copy-file (assoc-ref %build-inputs "source")
 589                                 (string-append lispdir "/let-alist.el"))
 590
 591                      (setenv "PATH" (string-append emacs "/bin"))
 592                      (emacs-byte-compile-directory lispdir)
 593                      #t))))
 594     (native-inputs `(("emacs" ,emacs-no-x)))
 595     (home-page "http://elpa.gnu.org/packages/let-alist.html")
 596     (synopsis "Easily let-bind values of an assoc-list by their names")
 597     (description
 598      "This package offers a single Emacs Lisp macro, @code{let-alist}.  This
 599 macro takes a first argument, whose value must be an alist (association list),
 600 and a body.
 601
 602 The macro expands to a let form containing the body, where each dotted symbol
 603 inside body is let-bound to their cdrs in the alist.  Only those present in
 604 the body are let-bound and this search is done at compile time.")
 605     (license license:gpl3+)))
 606
 607 (define-public flycheck
 608   (package
 609     (name "emacs-flycheck")
 610     (version "0.23")
 611     (source (origin
 612               (method url-fetch)
 613               (uri (string-append
 614                     "https://github.com/flycheck/flycheck/releases/download/"
 615                     version "/flycheck-" version ".tar"))
 616               (sha256
 617                (base32
 618                 "1n2cifzsl5dbv42l82bi3y1vk6q33msi8dd4bj7b9nvnl9jfjj5b"))))
 619     (build-system emacs-build-system)
 620     (propagated-inputs
 621      `(("emacs-dash" ,emacs-dash)
 622        ("emacs-let-alist" ,let-alist)))
 623     (home-page "https://www.flycheck.org")
 624     (synopsis "On-the-fly syntax checking")
 625     (description
 626      "This package provides on-the-fly syntax checking for GNU Emacs.  It is a
 627 replacement for the older Flymake extension which is part of GNU Emacs, with
 628 many improvements and additional features.
 629
 630 Flycheck provides fully-automatic, fail-safe, on-the-fly background syntax
 631 checking for over 30 programming and markup languages with more than 70
 632 different tools.  It highlights errors and warnings inline in the buffer, and
 633 provides an optional IDE-like error list.")
 634     (license license:gpl3+)))                     ;+GFDLv1.3+ for the manual
 635
 636 \f
 637 ;;;
 638 ;;; Web browsing.
 639 ;;;
 640
 641 (define-public emacs-w3m
 642   (package
 643     (name "emacs-w3m")
 644     (version "1.4.538+0.20141022")
 645     (source (origin
 646              (method url-fetch)
 647              (uri (string-append "mirror://debian/pool/main/w/w3m-el/w3m-el_"
 648                                  version ".orig.tar.gz"))
 649              (sha256
 650               (base32
 651                "0zfxmq86pwk64yv0426gnjrvhjrgrjqn08sdcdhmmjmfpmqvm79y"))))
 652     (build-system gnu-build-system)
 653     (native-inputs `(("autoconf" ,autoconf)))
 654     (inputs `(("w3m" ,w3m)
 655               ("imagemagick" ,imagemagick)
 656               ("emacs" ,emacs-no-x)))
 657     (arguments
 658      `(#:modules ((guix build gnu-build-system)
 659                   (guix build utils)
 660                   (guix build emacs-utils))
 661        #:imported-modules (,@%gnu-build-system-modules
 662                            (guix build emacs-utils))
 663        #:configure-flags
 664        (let ((out (assoc-ref %outputs "out")))
 665          (list (string-append "--with-lispdir="
 666                               out "/share/emacs/site-lisp")
 667                (string-append "--with-icondir="
 668                               out "/share/images/emacs-w3m")
 669                ;; Leave .el files uncompressed, otherwise GC can't
 670                ;; identify run-time dependencies.  See
 671                ;; <http://lists.gnu.org/archive/html/guix-devel/2015-12/msg00208.html>
 672                "--without-compress-install"))
 673        #:tests? #f  ; no check target
 674        #:phases
 675        (modify-phases %standard-phases
 676          (add-after 'unpack 'autoconf
 677            (lambda _
 678              (zero? (system* "autoconf"))))
 679          (add-before 'build 'patch-exec-paths
 680            (lambda* (#:key inputs outputs #:allow-other-keys)
 681              (let ((out (assoc-ref outputs "out"))
 682                    (w3m (assoc-ref inputs "w3m"))
 683                    (imagemagick (assoc-ref inputs "imagemagick"))
 684                    (coreutils (assoc-ref inputs "coreutils")))
 685                (emacs-substitute-variables "w3m.el"
 686                  ("w3m-command" (string-append w3m "/bin/w3m"))
 687                  ("w3m-touch-command"
 688                   (string-append coreutils "/bin/touch"))
 689                  ("w3m-image-viewer"
 690                   (string-append imagemagick "/bin/display"))
 691                  ("w3m-icon-directory"
 692                   (string-append out "/share/images/emacs-w3m")))
 693                (emacs-substitute-variables "w3m-image.el"
 694                  ("w3m-imagick-convert-program"
 695                   (string-append imagemagick "/bin/convert"))
 696                  ("w3m-imagick-identify-program"
 697                   (string-append imagemagick "/bin/identify")))
 698                #t)))
 699          (replace 'install
 700            (lambda* (#:key outputs #:allow-other-keys)
 701              (and (zero? (system* "make" "install" "install-icons"))
 702                   (with-directory-excursion
 703                       (string-append (assoc-ref outputs "out")
 704                                      "/share/emacs/site-lisp")
 705                     (for-each delete-file '("ChangeLog" "ChangeLog.1"))
 706                     (symlink "w3m-load.el" "w3m-autoloads.el")
 707                     #t)))))))
 708     (home-page "http://emacs-w3m.namazu.org/")
 709     (synopsis "Simple Web browser for Emacs based on w3m")
 710     (description
 711      "Emacs-w3m is an emacs interface for the w3m web browser.")
 712     (license license:gpl2+)))
 713
 714 (define-public emacs-wget
 715   (package
 716     (name "emacs-wget")
 717     (version "0.5.0")
 718     (source (origin
 719              (method url-fetch)
 720              (uri (string-append "mirror://debian/pool/main/w/wget-el/wget-el_"
 721                                  version ".orig.tar.gz"))
 722              (sha256
 723               (base32 "10byvyv9dk0ib55gfqm7bcpxmx2qbih1jd03gmihrppr2mn52nff"))))
 724     (build-system gnu-build-system)
 725     (inputs `(("wget" ,wget)
 726               ("emacs" ,emacs-no-x)))
 727     (arguments
 728      `(#:modules ((guix build gnu-build-system)
 729                   (guix build utils)
 730                   (guix build emacs-utils))
 731        #:imported-modules (,@%gnu-build-system-modules
 732                            (guix build emacs-utils))
 733        #:tests? #f  ; no check target
 734        #:phases
 735        (alist-replace
 736         'configure
 737         (lambda* (#:key outputs #:allow-other-keys)
 738           (substitute* "Makefile"
 739             (("/usr/local") (assoc-ref outputs "out"))
 740             (("/site-lisp/emacs-wget") "/site-lisp")))
 741         (alist-cons-before
 742          'build 'patch-exec-paths
 743          (lambda* (#:key inputs outputs #:allow-other-keys)
 744            (let ((wget (assoc-ref inputs "wget")))
 745              (emacs-substitute-variables "wget.el"
 746                ("wget-command" (string-append wget "/bin/wget")))))
 747          (alist-cons-after
 748           'install 'post-install
 749           (lambda* (#:key outputs #:allow-other-keys)
 750             (emacs-generate-autoloads
 751              "wget" (string-append (assoc-ref outputs "out")
 752                                    "/share/emacs/site-lisp/")))
 753           %standard-phases)))))
 754     (home-page "http://www.emacswiki.org/emacs/EmacsWget")
 755     (synopsis "Simple file downloader for Emacs based on wget")
 756     (description
 757      "Emacs-wget is an emacs interface for the wget file downloader.")
 758     (license license:gpl2+)))
 759
 760 \f
 761 ;;;
 762 ;;; Multimedia.
 763 ;;;
 764
 765 (define-public emms
 766   (package
 767     (name "emms")
 768     (version "4.0")
 769     (source (origin
 770               (method url-fetch)
 771               (uri (string-append "mirror://gnu/emms/emms-"
 772                                   version ".tar.gz"))
 773               (sha256
 774                (base32
 775                 "1q0n3iwva8bvai2rl9sm49sdjmk0wi7vajz4knz01l7g67nrp87l"))
 776               (modules '((guix build utils)))
 777               (snippet
 778                '(substitute* "Makefile"
 779                   (("/usr/bin/install-info")
 780                    ;; No need to use 'install-info' since it would create a
 781                    ;; useless 'dir' file.
 782                    "true")
 783                   (("^INFODIR=.*")
 784                    ;; Install Info files to $out/share/info, not $out/info.
 785                    "INFODIR := $(PREFIX)/share/info\n")
 786                   (("/site-lisp/emms")
 787                    ;; Install directly in share/emacs/site-lisp, not in a
 788                    ;; sub-directory.
 789                    "/site-lisp")
 790                   (("^all: (.*)\n" _ rest)
 791                    ;; Build 'emms-print-metadata'.
 792                    (string-append "all: " rest " emms-print-metadata\n"))))))
 793     (build-system gnu-build-system)
 794     (arguments
 795      `(#:modules ((guix build gnu-build-system)
 796                   (guix build utils)
 797                   (guix build emacs-utils))
 798        #:imported-modules (,@%gnu-build-system-modules
 799                            (guix build emacs-utils))
 800
 801        #:phases (alist-replace
 802                  'configure
 803                  (lambda* (#:key inputs outputs #:allow-other-keys)
 804                    (let ((out     (assoc-ref outputs "out"))
 805                          (vorbis  (assoc-ref inputs "vorbis-tools"))
 806                          (alsa    (assoc-ref inputs "alsa-utils"))
 807                          (mpg321  (assoc-ref inputs "mpg321"))
 808                          (mp3info (assoc-ref inputs "mp3info")))
 809                      ;; Specify the installation directory.
 810                      (substitute* "Makefile"
 811                        (("PREFIX=.*$")
 812                         (string-append "PREFIX := " out "\n")))
 813
 814                      (setenv "SHELL" (which "sh"))
 815                      (setenv "CC" "gcc")
 816
 817                      ;; Specify the absolute file names of the various
 818                      ;; programs so that everything works out-of-the-box.
 819                      (with-directory-excursion "lisp"
 820                        (emacs-substitute-variables
 821                            "emms-player-mpg321-remote.el"
 822                          ("emms-player-mpg321-remote-command"
 823                           (string-append mpg321 "/bin/mpg321")))
 824                        (substitute* "emms-player-simple.el"
 825                          (("\"ogg123\"")
 826                           (string-append "\"" vorbis "/bin/ogg123\"")))
 827                        (emacs-substitute-variables "emms-info-ogginfo.el"
 828                          ("emms-info-ogginfo-program-name"
 829                           (string-append vorbis "/bin/ogginfo")))
 830                        (emacs-substitute-variables "emms-info-libtag.el"
 831                          ("emms-info-libtag-program-name"
 832                           (string-append out "/bin/emms-print-metadata")))
 833                        (emacs-substitute-variables "emms-info-mp3info.el"
 834                          ("emms-info-mp3info-program-name"
 835                           (string-append mp3info "/bin/mp3info")))
 836                        (substitute* "emms-volume-amixer.el"
 837                          (("\"amixer\"")
 838                           (string-append "\"" alsa "/bin/amixer\"")))
 839                        (substitute* "emms-tag-editor.el"
 840                          (("\"mp3info\"")
 841                           (string-append "\"" mp3info "/bin/mp3info\""))))))
 842                  (alist-cons-before
 843                   'install 'pre-install
 844                   (lambda* (#:key outputs #:allow-other-keys)
 845                     ;; The 'install' rule expects the target directory to
 846                     ;; exist.
 847                     (let* ((out  (assoc-ref outputs "out"))
 848                            (man1 (string-append out "/share/man/man1")))
 849                       (mkdir-p man1)
 850                       #t))
 851                   (alist-cons-after
 852                    'install 'post-install
 853                    (lambda* (#:key outputs #:allow-other-keys)
 854                      (let* ((out    (assoc-ref outputs "out"))
 855                             (target (string-append
 856                                      out "/bin/emms-print-metadata")))
 857                        (symlink "emms-auto.el"
 858                                 (string-append out "/share/emacs/site-lisp/"
 859                                                "emms-autoloads.el"))
 860                        (mkdir-p (dirname target))
 861                        (copy-file "src/emms-print-metadata" target)
 862                        (chmod target #o555)))
 863                    %standard-phases)))
 864        #:tests? #f))
 865     (native-inputs `(("emacs" ,emacs-no-x)       ;for (guix build emacs-utils)
 866                      ("texinfo" ,texinfo)))
 867     (inputs `(("alsa-utils" ,alsa-utils)
 868               ("vorbis-tools" ,vorbis-tools)
 869               ("mpg321" ,mpg321)
 870               ("taglib" ,taglib)
 871               ("mp3info" ,mp3info)))
 872     (synopsis "Emacs Multimedia System")
 873     (description
 874      "EMMS is the Emacs Multimedia System.  It is a small front-end which
 875 can control one of the supported external players.  Thus, it supports
 876 whatever formats are supported by your music player.  It also
 877 supports tagging and playlist management, all behind a clean and
 878 light user interface.")
 879     (home-page "http://www.gnu.org/software/emms/")
 880     (license license:gpl3+)))
 881
 882 \f
 883 ;;;
 884 ;;; Miscellaneous.
 885 ;;;
 886
 887 (define-public bbdb
 888   (package
 889     (name "bbdb")
 890     (version "3.1.2")
 891     (source (origin
 892               (method url-fetch)
 893               (uri (string-append "mirror://savannah/bbdb/bbdb-"
 894                                   version ".tar.gz"))
 895               (sha256
 896                (base32
 897                 "1gs16bbpiiy01w9pyg12868r57kx1v3hnw04gmqsmpc40l1hyy05"))
 898               (modules '((guix build utils)))
 899               (snippet
 900                ;; We don't want to build and install the PDF.
 901                '(substitute* "doc/Makefile.in"
 902                   (("^doc_DATA = .*$")
 903                    "doc_DATA =\n")))))
 904     (build-system gnu-build-system)
 905     (arguments
 906      '(#:phases (alist-cons-after
 907                  'install 'post-install
 908                  (lambda* (#:key outputs #:allow-other-keys)
 909                    ;; Add an autoloads file with the right name for guix.el.
 910                    (let* ((out  (assoc-ref outputs "out"))
 911                           (site (string-append out "/share/emacs/site-lisp")))
 912                      (with-directory-excursion site
 913                        (symlink "bbdb-loaddefs.el" "bbdb-autoloads.el"))))
 914                  %standard-phases)))
 915     (native-inputs `(("emacs" ,emacs-no-x)))
 916     (home-page "http://savannah.nongnu.org/projects/bbdb/")
 917     (synopsis "Contact management utility for Emacs")
 918     (description
 919      "BBDB is the Insidious Big Brother Database for GNU Emacs.  It provides
 920 an address book for email and snail mail addresses, phone numbers and the
 921 like.  It can be linked with various Emacs mail clients (Message and Mail
 922 mode, Rmail, Gnus, MH-E, and VM).  BBDB is fully customizable.")
 923     (license license:gpl3+)))
 924
 925 (define-public emacs-async
 926   (package
 927     (name "emacs-async")
 928     (version "1.6")
 929     (source (origin
 930               (method url-fetch)
 931               (uri (string-append "http://elpa.gnu.org/packages/async-"
 932                                   version ".tar"))
 933               (sha256
 934                (base32
 935                 "17psvz75n42x33my967wkgi7r0blx46n3jdv510j0z5jswv66039"))))
 936     (build-system emacs-build-system)
 937     (home-page "http://elpa.gnu.org/packages/async.html")
 938     (synopsis "Asynchronous processing in Emacs")
 939     (description
 940      "This package provides the ability to call asynchronous functions and
 941 processes.  For example, it can be used to run dired commands (for copying,
 942 moving, etc.) asynchronously using @code{dired-async-mode}.  Also it is used
 943 as a library for other Emacs packages.")
 944     (license license:gpl3+)))
 945
 946 (define-public emacs-auctex
 947   (package
 948     (name "emacs-auctex")
 949     (version "11.88.6")
 950     (source
 951      (origin
 952        (method url-fetch)
 953        (uri (string-append
 954              "http://elpa.gnu.org/packages/auctex-"
 955              version
 956              ".tar"))
 957        (sha256
 958         (base32
 959          "1pmki8hdjjikxlvip3pzi350bln3gcimr27yjf0xfwjvnp5hh9nc"))))
 960     (build-system emacs-build-system)
 961     (native-inputs
 962      `(("perl" ,perl)))
 963     (home-page "http://www.gnu.org/software/auctex/")
 964     (synopsis "Integrated environment for TeX")
 965     (description
 966      "AUCTeX is a comprehensive customizable integrated environment for
 967 writing input files for TeX, LaTeX, ConTeXt, Texinfo, and docTeX using Emacs
 968 or XEmacs.")
 969     (license license:gpl3+)))
 970
 971 (define-public emacs-mmm-mode
 972   (package
 973     (name "emacs-mmm-mode")
 974     (version "0.5.4")
 975     (source
 976      (origin
 977        (method url-fetch)
 978        (uri (string-append
 979              "https://github.com/purcell/mmm-mode/archive/"
 980              version ".tar.gz"))
 981        (file-name (string-append name "-" version ".tar.gz"))
 982        (sha256
 983         (base32
 984          "10kwslnflbjqm62wkrq420crqzdqalzfflp9pqk1i12zm6dm4mfv"))))
 985     (build-system gnu-build-system)
 986     (arguments
 987      '(#:phases
 988        (modify-phases %standard-phases
 989          (add-after 'unpack 'autogen
 990            (lambda _
 991              (zero? (system* "sh" "autogen.sh")))))))
 992     (native-inputs
 993      `(("autoconf" ,autoconf)
 994        ("automake" ,automake)
 995        ("emacs" ,emacs-no-x)
 996        ("texinfo" ,texinfo)))
 997     (home-page "https://github.com/purcell/mmm-mode")
 998     (synopsis "Allow multiple major modes in an Emacs buffer")
 999     (description
1000      "MMM Mode is a minor mode that allows multiple major modes to coexist in a
1001 single buffer.")
1002     (license license:gpl3+)))
1003
1004 (define-public emacs-pdf-tools
1005   (package
1006     (name "emacs-pdf-tools")
1007     (version "0.70")
1008     (source (origin
1009               (method url-fetch)
1010               (uri (string-append
1011                     "https://github.com/politza/pdf-tools/archive/v"
1012                     version ".tar.gz"))
1013               (file-name (string-append name "-" version ".tar.gz"))
1014               (sha256
1015                (base32
1016                 "1m0api6wiawswyk46bdsyk6r5rg3b86a4paar6nassm6x6c6vr77"))))
1017     (build-system gnu-build-system)
1018     (arguments
1019      `(#:tests? #f ; there are no tests
1020        #:modules ((guix build gnu-build-system)
1021                   (guix build utils)
1022                   (guix build emacs-utils))
1023        #:imported-modules (,@%gnu-build-system-modules
1024                            (guix build emacs-utils))
1025        #:phases
1026        (modify-phases %standard-phases
1027          (add-after 'unpack 'enter-dir (lambda _ (chdir "server") #t))
1028          (add-before
1029           'configure 'autogen
1030           (lambda _
1031             (zero? (system* "bash" "autogen.sh"))))
1032          (add-before
1033           'build 'patch-variables
1034           (lambda* (#:key outputs #:allow-other-keys)
1035             (with-directory-excursion "../lisp"
1036               ;; Set path to epdfinfo program.
1037               (emacs-substitute-variables "pdf-info.el"
1038                 ("pdf-info-epdfinfo-program"
1039                  (string-append (assoc-ref outputs "out")
1040                                 "/bin/epdfinfo")))
1041               ;; Set 'pdf-tools-handle-upgrades' to nil to avoid "auto
1042               ;; upgrading" that pdf-tools tries to perform.
1043               (emacs-substitute-variables "pdf-tools.el"
1044                 ("pdf-tools-handle-upgrades" '())))))
1045          (add-after
1046           'install 'install-lisp
1047           (lambda* (#:key outputs #:allow-other-keys)
1048             (let ((target (string-append (assoc-ref outputs "out")
1049                                          "/share/emacs/site-lisp/")))
1050               (for-each (lambda (file)
1051                           (install-file file target))
1052                         (find-files "../lisp" "^(pdf|tab).*\\.elc?"))
1053               (emacs-byte-compile-directory target)
1054               (emacs-generate-autoloads "pdf-tools" target)))))))
1055     (native-inputs `(("autoconf" ,autoconf)
1056                      ("automake" ,automake)
1057                      ("pkg-config" ,pkg-config)
1058                      ("emacs" ,emacs-no-x)))
1059     (inputs `(("poppler" ,poppler)
1060               ("cairo" ,cairo)
1061               ("glib" ,glib)
1062               ("libpng" ,libpng)
1063               ("zlib" ,zlib)))
1064     (synopsis "Emacs support library for PDF files")
1065     (description
1066      "PDF Tools is, among other things, a replacement of DocView for PDF
1067 files.  The key difference is that pages are not pre-rendered by
1068 e.g. ghostscript and stored in the file-system, but rather created on-demand
1069 and stored in memory.")
1070     (home-page "https://github.com/politza/pdf-tools")
1071     (license license:gpl3+)))
1072
1073 (define-public emacs-dash
1074   (package
1075     (name "emacs-dash")
1076     (version "2.12.1")
1077     (source (origin
1078               (method url-fetch)
1079               (uri (string-append
1080                     "https://github.com/magnars/dash.el/archive/"
1081                     version ".tar.gz"))
1082               (file-name (string-append name "-" version ".tar.gz"))
1083               (sha256
1084                (base32
1085                 "082jl7mp4x063bpj5ad2pc5125k0d6p7rb89gcj7ny3lma9h2ij1"))))
1086     (build-system emacs-build-system)
1087     (arguments
1088      `(#:phases
1089        (modify-phases %standard-phases
1090          (add-before 'install 'check
1091                      (lambda _
1092                        (zero? (system* "./run-tests.sh")))))))
1093     (home-page "https://github.com/magnars/dash.el")
1094     (synopsis "Modern list library for Emacs")
1095     (description "This package provides a modern list API library for Emacs.")
1096     (license license:gpl3+)))
1097
1098 (define-public emacs-undo-tree
1099   (package
1100     (name "emacs-undo-tree")
1101     (version "0.6.4")
1102     (source (origin
1103               (method git-fetch)
1104               (uri (git-reference
1105                     (url "http://dr-qubit.org/git/undo-tree.git")
1106                     (commit "release/0.6.4")))
1107               (file-name (string-append name "-" version "-checkout"))
1108               (sha256
1109                 (base32
1110                   "0b6hnv6bq1g5np5q2yw9r9aj1cxpp14akm21br7vpb7wp01fv4b3"))))
1111     (build-system emacs-build-system)
1112     (home-page "http://www.dr-qubit.org/emacs.php")
1113     (synopsis "Treat undo history as a tree")
1114     (description "Tree-like interface to Emacs undo system, providing
1115 graphical tree presentation of all previous states of buffer that
1116 allows easily move between them.")
1117     (license license:gpl3+)))
1118
1119 (define-public emacs-s
1120   (package
1121     (name "emacs-s")
1122     (version "1.9.0")
1123     (source (origin
1124               (method url-fetch)
1125               (uri (string-append
1126                     "https://github.com/magnars/s.el/archive/"
1127                     version ".tar.gz"))
1128               (file-name (string-append name "-" version ".tar.gz"))
1129               (sha256
1130                (base32
1131                 "1gah2k577gvnmxlpw7zrz0jr571vghzhdv2hbgchlgah07czd091"))))
1132     (build-system emacs-build-system)
1133     (arguments
1134      `(#:phases
1135        (modify-phases %standard-phases
1136          (add-before 'install 'check
1137                      (lambda _
1138                        (zero? (system* "./run-tests.sh")))))))
1139     (home-page "https://github.com/magnars/s.el")
1140     (synopsis "Emacs string manipulation library")
1141     (description "This package provides an Emacs library for manipulating
1142 strings.")
1143     (license license:gpl3+)))
1144
1145 (define-public emacs-f
1146   (package
1147     (name "emacs-f")
1148     (version "0.17.2")
1149     (source (origin
1150               (method url-fetch)
1151               (uri (string-append
1152                     "https://github.com/rejeep/f.el/archive/v"
1153                     version ".tar.gz"))
1154               (file-name (string-append name "-" version ".tar.gz"))
1155               (sha256
1156                (base32
1157                 "1n5gcldf43wmkr7jxgs519v21zavwr0yn8048iv6gvgfwicnyjlx"))))
1158     (build-system emacs-build-system)
1159     (propagated-inputs
1160      `(("emacs-s" ,emacs-s)
1161        ("emacs-dash" ,emacs-dash)))
1162     (home-page "http://github.com/rejeep/f.el")
1163     (synopsis "Emacs API for working with files and directories")
1164     (description "This package provides an Emacs library for working with
1165 files and directories.")
1166     (license license:gpl3+)))
1167
1168 (define-public emacs-ob-ipython
1169   (package
1170     (name "emacs-ob-ipython")
1171     (version "20150704.8807064693")
1172     (source (origin
1173               (method git-fetch)
1174               (uri (git-reference
1175                     (commit "8807064693")
1176                     (url "https://github.com/gregsexton/ob-ipython.git")))
1177               (sha256
1178                (base32
1179                 "1scf25snbds9ymagpny30ijbsg479r3nm0ih01dy4m9d0g7qryb7"))))
1180     (build-system emacs-build-system)
1181     (propagated-inputs
1182      `(("emacs-f" ,emacs-f)))
1183     (home-page "http://www.gregsexton.org")
1184     (synopsis "Org-Babel functions for IPython evaluation")
1185     (description "This package adds support to Org-Babel for evaluating Python
1186 source code using IPython.")
1187     (license license:gpl3+)))
1188
1189 (define-public emacs-debbugs
1190   (package
1191     (name "emacs-debbugs")
1192     (version "0.9")
1193     (source (origin
1194               (method url-fetch)
1195               (uri (string-append "http://elpa.gnu.org/packages/debbugs-"
1196                                   version ".tar"))
1197               (sha256
1198                (base32
1199                 "1wc6kw7hihqqdx8qyl01akygycnan44x400hwrcf54m3hb4isa0k"))))
1200     (build-system emacs-build-system)
1201     (propagated-inputs
1202      `(("emacs-async" ,emacs-async)))
1203     (home-page "http://elpa.gnu.org/packages/debbugs.html")
1204     (synopsis "Access the Debbugs bug tracker in Emacs")
1205     (description
1206      "This package lets you access the @uref{http://bugs.gnu.org,GNU Bug
1207 Tracker} from within Emacs.
1208
1209 For instance, it defines the command @code{M-x debbugs-gnu} for listing bugs,
1210 and the command @code{M-x debbugs-gnu-search} for bug searching.  If you
1211 prefer the listing of bugs as TODO items of @code{org-mode}, you could use
1212 @code{M-x debbugs-org} and related commands.
1213
1214 A minor mode @code{debbugs-browse-mode} let you browse URLs to the GNU Bug
1215 Tracker as well as bug identifiers prepared for @code{bug-reference-mode}.")
1216     (license license:gpl3+)))
1217
1218 (define-public emacs-deferred
1219   (package
1220     (name "emacs-deferred")
1221     (version "0.3.2")
1222     (home-page "https://github.com/kiwanami/emacs-deferred")
1223     (source (origin
1224               (method git-fetch)
1225               (uri (git-reference
1226                     (url home-page)
1227                     (commit (string-append "v" version))))
1228               (sha256
1229                (base32
1230                 "0059jy01ni5irpgrj9fa81ayd9j25nvmjjm79ms3210ysx4pgqdr"))
1231               (file-name (string-append name "-" version))))
1232     (build-system emacs-build-system)
1233     ;; FIXME: Would need 'el-expectations' to actually run tests.
1234     (synopsis "Simple asynchronous functions for Emacs Lisp")
1235     (description
1236      "The @code{deferred.el} library provides support for asynchronous tasks.
1237 The API is almost the same as that of
1238 @uref{https://github.com/cho45/jsdeferred, JSDeferred}, a JavaScript library
1239 for asynchronous tasks.")
1240     (license license:gpl3+)))
1241
1242 (define-public butler
1243   (package
1244     (name "emacs-butler")
1245     (version "0.2.4")
1246     (home-page "https://github.com/AshtonKem/Butler")
1247     (source (origin
1248               (method git-fetch)
1249               (uri (git-reference
1250                     (url home-page)
1251                     (commit version)))
1252               (sha256
1253                (base32
1254                 "1pii9dw4skq7nr4na6qxqasl36av8cwjp71bf1fgppqpcd9z8skj"))
1255               (file-name (string-append name "-" version))))
1256     (build-system emacs-build-system)
1257     (propagated-inputs
1258      `(("emacs-deferred" ,emacs-deferred)))
1259     (synopsis "Emacs client for Jenkins")
1260     (description
1261      "Butler provides an interface to connect to Jenkins continuous
1262 integration servers.  Users can specify a list of server in the
1263 @code{butler-server-list} variable and then use @code{M-x butler-status} to
1264 view the build status of those servers' build jobs, and possibly to trigger
1265 build jobs.")
1266     (license license:gpl3+)))
1267
1268 (define-public typo
1269   (package
1270     (name "emacs-typo")
1271     (version "1.1")
1272     (home-page "https://github.com/jorgenschaefer/typoel")
1273     (source (origin
1274               (method git-fetch)
1275               (uri (git-reference
1276                     (url home-page)
1277                     (commit (string-append "v" version))))
1278               (sha256
1279                (base32
1280                 "1jhd4grch5iz12gyxwfbsgh4dmz5hj4bg4gnvphccg8dsnni05k2"))
1281               (file-name (string-append name "-" version))))
1282     (build-system emacs-build-system)
1283     (synopsis "Minor mode for typographic editing")
1284     (description
1285      "This package provides two Emacs modes, @code{typo-mode} and
1286 @code{typo-global-mode}.  These modes automatically insert Unicode characters
1287 for quotation marks, dashes, and ellipses.  For example, typing @kbd{\"}
1288 automatically inserts a Unicode opening or closing quotation mark, depending
1289 on context.")
1290     (license license:gpl3+)))
1291
1292 (define-public emacs-scheme-complete
1293   (let ((commit "9b5cf224bf2a5994bc6d5b152ff487517f1a9bb5"))
1294     (package
1295       (name "emacs-scheme-complete")
1296       (version (string-append "20151223." (string-take commit 8)))
1297       (source
1298        (origin
1299          (file-name (string-append name "-" version))
1300          (method git-fetch)
1301          (uri (git-reference
1302                (url "https://github.com/ashinn/scheme-complete.git")
1303                (commit commit)))
1304          (sha256
1305           (base32
1306            "141wn9l0m33w0g3dqmx8nxbfdny1r5xbr6ak61rsz21bk0qafs7x"))
1307          (patches
1308           (list (search-patch "emacs-scheme-complete-scheme-r5rs-info.patch")))))
1309       (build-system emacs-build-system)
1310       (home-page "https://github.com/ashinn/scheme-complete")
1311       (synopsis "Smart tab completion for Scheme in Emacs")
1312       (description
1313        "This file provides a single function, @code{scheme-smart-complete},
1314 which you can use for intelligent, context-sensitive completion for any Scheme
1315 implementation in Emacs.  To use it just load this file and bind that function
1316 to a key in your preferred mode.")
1317       (license license:public-domain))))
1318
1319 (define-public emacs-mit-scheme-doc
1320   (package
1321     (name "emacs-mit-scheme-doc")
1322     (version "20140203")
1323     (source
1324      (origin
1325        (modules '((guix build utils)))
1326        (snippet
1327         ;; keep only file of interest
1328         '(begin
1329            (for-each delete-file '("dot-emacs.el" "Makefile"))
1330            (copy-file "6.945-config/mit-scheme-doc.el" "mit-scheme-doc.el")
1331            (delete-file-recursively "6.945-config")))
1332        (file-name (string-append name "-" version ".tar.bz2"))
1333        (method url-fetch)
1334        (uri (string-append "http://groups.csail.mit.edu/mac/users/gjs/"
1335                            "6.945/dont-panic/emacs-basic-config.tar.bz2"))
1336        (sha256
1337         (base32
1338          "0dqidg2bd66pawqfarvwca93w5gqf9mikn1k2a2rmd9ymfjpziq1"))))
1339     (build-system emacs-build-system)
1340     (inputs `(("mit-scheme" ,mit-scheme)))
1341     (arguments
1342      `(#:phases
1343        (modify-phases %standard-phases
1344          (add-after 'unpack 'configure-doc
1345            (lambda* (#:key inputs #:allow-other-keys)
1346              (let* ((mit-scheme-dir (assoc-ref inputs "mit-scheme"))
1347                     (doc-dir (string-append mit-scheme-dir "/share/doc/"
1348                                             "mit-scheme-"
1349                                             ,(package-version mit-scheme))))
1350                (substitute* "mit-scheme-doc.el"
1351                  (("http://www\\.gnu\\.org/software/mit-scheme/documentation/mit-scheme-ref/")
1352                   (string-append "file:" doc-dir "/mit-scheme-ref/")))))))))
1353     (home-page "http://groups.csail.mit.edu/mac/users/gjs/6.945/dont-panic/")
1354     (synopsis "MIT-Scheme documentation lookup for Emacs")
1355     (description
1356      "This package provides a set of Emacs functions to search definitions of
1357 identifiers in the MIT-Scheme documentation.")
1358     (license license:gpl2+)))
1359
1360 ;;; XXX: move this procedure to an utility module
1361 (define* (uncompressed-file-fetch url hash-algo hash
1362                                   #:optional name
1363                                   #:key (system (%current-system))
1364                                   (guile (default-guile)))
1365   (mlet %store-monad ((drv (url-fetch url hash-algo hash name
1366                                       #:system system
1367                                       #:guile guile)))
1368     (gexp->derivation (or name (basename url))
1369                       #~(begin
1370                           (mkdir #$output)
1371                           (setenv "PATH"
1372                                   (string-append #$gzip "/bin"))
1373                           (chdir #$output)
1374                           (copy-file #$drv (basename #$url))))))
1375
1376 (define-public emacs-constants
1377   (package
1378     (name "emacs-constants")
1379     (version "2.2")
1380     (source
1381      (origin
1382        (file-name (string-append name "-" version ".el"))
1383        (method uncompressed-file-fetch)
1384        (uri "https://staff.fnwi.uva.nl/c.dominik/Tools/constants/constants.el")
1385        (patches
1386         (list (search-patch "emacs-constants-lisp-like.patch")))
1387        (sha256
1388         (base32
1389          "14q094aphsjhq8gklv7i5a7byl0ygz63cv3n6b5p8ji2jy0mnnw3"))))
1390     (build-system emacs-build-system)
1391     (home-page "https://staff.fnwi.uva.nl/c.dominik/Tools/constants")
1392     (synopsis "Enter definition of constants into an Emacs buffer")
1393     (description
1394      "This package provides functions for inserting the definition of natural
1395 constants and units into an Emacs buffer.")
1396     (license license:gpl2+)))
1397
1398 (define-public emacs-slime
1399   (package
1400     (name "emacs-slime")
1401     (version "2.15")
1402     (source
1403      (origin
1404        (file-name (string-append name "-" version ".tar.gz"))
1405        (method url-fetch)
1406        (uri (string-append
1407              "https://github.com/slime/slime/archive/v"
1408              version ".tar.gz"))
1409        (sha256
1410         (base32
1411          "0l2z6l2xm78mhh0nczkrmzh2ddb1n911ij9xb6q40zwvx4f8blds"))))
1412     (build-system emacs-build-system)
1413     (native-inputs
1414      `(("texinfo" ,texinfo)))
1415     (arguments
1416      `(#:phases
1417        (modify-phases %standard-phases
1418          (add-before 'install 'configure
1419            (lambda* _
1420              (emacs-substitute-variables "slime.el"
1421                ("inferior-lisp-program" "sbcl"))
1422              #t))
1423          (add-before 'install 'install-doc
1424            (lambda* (#:key outputs #:allow-other-keys)
1425              (let* ((out (assoc-ref outputs "out"))
1426                     (info-dir (string-append out "/share/info"))
1427                     (doc-dir (string-append out "/share/doc/"
1428                                             ,name "-" ,version))
1429                     (doc-files '("doc/slime-refcard.pdf"
1430                                  "README.md" "NEWS" "PROBLEMS"
1431                                  "CONTRIBUTING.md")))
1432                (with-directory-excursion "doc"
1433                  (substitute* "Makefile"
1434                    (("infodir=/usr/local/info")
1435                     (string-append "infodir=" info-dir)))
1436                  (system* "make" "html/index.html")
1437                  (system* "make" "slime.info")
1438                  (install-file "slime.info" info-dir)
1439                  (copy-recursively "html" (string-append doc-dir "/html")))
1440                (for-each (lambda (f)
1441                            (install-file f doc-dir)
1442                            (delete-file f))
1443                          doc-files)
1444                (delete-file-recursively "doc")
1445                #t))))))
1446     (home-page "https://github.com/slime/slime")
1447     (synopsis "Superior Lisp Interaction Mode for Emacs")
1448     (description
1449      "SLIME extends Emacs with support for interactive programming in
1450 Common Lisp.  The features are centered around @{slime-mode}, an Emacs
1451 minor mode that complements the standard @{lisp-mode}.  While lisp-mode
1452 supports editing Lisp source files, @{slime-mode} adds support for
1453 interacting with a running Common Lisp process for compilation,
1454 debugging, documentation lookup, and so on.")
1455     (license license:gpl2+)))
1456
1457 (define-public emacs-popup
1458   (package
1459     (name "emacs-popup")
1460     (version "0.5.3")
1461     (source (origin
1462               (method url-fetch)
1463               (uri (string-append
1464                     "https://github.com/auto-complete/popup-el/archive/v"
1465                     version ".tar.gz"))
1466               (file-name (string-append name "-" version ".tar.gz"))
1467               (sha256
1468                (base32
1469                 "1yrgfj8y69xmcb6kwgplhq68ndm9410qwh7sd2knnd1gchpphdc0"))))
1470     (build-system emacs-build-system)
1471     (native-inputs
1472      `(("emacs" ,emacs-no-x)))
1473     (home-page "https://github.com/auto-complete/popup-el")
1474     (synopsis "Visual Popup User Interface for Emacs")
1475     (description
1476      "Popup.el is a visual popup user interface library for Emacs.
1477 This provides a basic API and common UI widgets such as popup tooltips
1478 and popup menus.")
1479     (license license:gpl3+)))
1480
1481 (define-public emacs-god-mode
1482   (let ((commit "6cf0807b6555eb6fcf8387a4e3b667071ef38964")
1483         (revision "1"))
1484     (package
1485       (name "emacs-god-mode")
1486       (version (string-append "20151005.925."
1487                               revision "-" (string-take commit 9)))
1488       (source
1489        (origin
1490          (method git-fetch)
1491          (uri (git-reference
1492                (url "https://github.com/chrisdone/god-mode.git")
1493                (commit commit)))
1494          (file-name (string-append name "-" version "-checkout"))
1495          (sha256
1496           (base32
1497            "1am415k4xxcva6y3vbvyvknzc6bma49pq3p85zmpjsdmsp18qdix"))))
1498       (build-system emacs-build-system)
1499       (home-page "https://github.com/chrisdone/god-mode")
1500       (synopsis "Minor mode for entering commands without modifier keys")
1501       (description
1502        "This package provides a global minor mode for entering Emacs commands
1503 without modifier keys.  It's similar to Vim's separation of commands and
1504 insertion mode.  When enabled all keys are implicitly prefixed with
1505 @samp{C-} (among other helpful shortcuts).")
1506       (license license:gpl3+))))