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