You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

23121 lines
876 KiB

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Taylan Ulrich Bayirli/Kammer <taylanbayirli@gmail.com>
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014, 2015, 2016, 2017, 2018, 2019 Alex Kost <alezost@gmail.com>
;;; Copyright © 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2018, 2019 Chris Marusich <cmmarusich@gmail.com>
;;; Copyright © 2015, 2016, 2018 Christopher Lemmer Webber <cwebber@dustycloud.org>
;;; Copyright © 2016 Adriano Peluso <catonano@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2016 Matthew Jordan <matthewjordandevops@yandex.com>
;;; Copyright © 2016, 2017 Roel Janssen <roel@gnu.org>
;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
;;; Copyright © 2016, 2019 Alex Griffin <a@ajgrf.com>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
;;; Copyright © 2016, 2017, 2018 Alex Vong <alexvong1995@gmail.com>
;;; Copyright © 2016, 2017, 2018, 2019, 2020 Arun Isaac <arunisaac@systemreboot.net>
;;; Copyright © 2017 Christopher Baines <mail@cbaines.net>
;;; Copyright © 2017, 2018, 2019, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017, 2018, 2019, 2020 Clément Lassieur <clement@lassieur.org>
;;; Copyright © 2017 Vasile Dumitrascu <va511e@yahoo.com>
;;; Copyright © 2017, 2018 Kyle Meyer <kyle@kyleam.com>
;;; Copyright © 2017 Kei Kebreau <kkebreau@posteo.net>
;;; Copyright © 2017 George Clemmer <myglc2@gmail.com>
;;; Copyright © 2017, 2018 Feng Shu <tumashu@163.com>
;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2017, 2018, 2019, 2020 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2017 Mekeor Melire <mekeor.melire@gmail.com>
;;; Copyright © 2017 Peter Mikkelsen <petermikkelsen10@gmail.com>
;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017 Mike Gerwitz <mtg@gnu.org>
;;; Copyright © 2017, 2018, 2019, 2020 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2018 Sohom Bhattacharjee <soham.bhattacharjee15@gmail.com>
;;; Copyright © 2018, 2019 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2018, 2019, 2020 Pierre Neidhardt <mail@ambrevar.xyz>
;;; Copyright © 2018, 2019 Tim Gesthuizen <tim.gesthuizen@yahoo.de>
;;; Copyright © 2018, 2019 Jack Hill <jackhill@jackhill.us>
;;; Copyright © 2018 Pierre-Antoine Rouby <pierre-antoine.rouby@inria.fr>
;;; Copyright © 2018 Alex Branham <alex.branham@gmail.com>
;;; Copyright © 2018 Thorsten Wilms <t_w_@freenet.de>
;;; Copyright © 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
;;; Copyright © 2018, 2019, 2020 Brett Gilio <brettg@gnu.org>
;;; Copyright © 2019, 2020 Dimakakos Dimos <bendersteed@teknik.io>
;;; Copyright © 2019, 2020 Brian Leung <bkleung89@gmail.com>
;;; Copyright © 2019 mikadoZero <mikadozero@yandex.com>
;;; Copyright © 2019 Gabriel Hondet <gabrielhondet@gmail.com>
;;; Copyright © 2019, 2020 Joseph LaFreniere <joseph@lafreniere.xyz>
;;; Copyright © 2019 Amar Singh <nly@disroot.org>
;;; Copyright © 2019 Baptiste Strazzulla <bstrazzull@hotmail.fr>
;;; Copyright © 2019 Giacomo Leidi <goodoldpaul@autistici.org>
;;; Copyright © 2019 Jens Mølgaard <jens@zete.tk>
;;; Copyright © 2019, 2020 Amin Bandali <bandali@gnu.org>
;;; Copyright © 2019 Jelle Licht <jlicht@fsfe.org>
;;; Copyright © 2019 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
;;; Copyright © 2019 Stephen Webber <montokapro@gmail.com>
;;; Copyright © 2019 Leo Prikler <leo.prikler@student.tugraz.at>
;;; Copyright © 2019 David Wilson <david@daviwil.com>
;;; Copyright © 2020 Paul Garlick <pgarlick@tourbillion-technology.com>
;;; Copyright © 2020 Robert Smith <robertsmith@posteo.net>
;;; Copyright © 2020 Evan Straw <evan.straw99@gmail.com>
;;; Copyright © 2020 Masaya Tojo <masaya@tojo.tokyo>
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; Copyright © 2020 Brice Waegeneire <brice@waegenei.re>
;;; Copyright © 2020 6033fe7de85d <6033fe7de85d@airmail.cc>
;;; Copyright © 2020 John Soo <jsoo1@asu.edu>
;;; Copyright © 2020 Jérémy Korwin-Zmijowski <jeremy@korwin-zmijowski.fr>
;;; Copyright © 2020 Alberto Eleuterio Flores Guerrero <barbanegra+guix@posteo.mx>
;;; Copyright © 2020 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2020 pinoaffe <pinoaffe@airmail.cc>
;;; Copyright © 2020 Vinicius Monego <monego@posteo.net>
;;; Copyright © 2020 Ryan Desfosses <rdes@protonmail.com>
;;; Copyright © 2020 Marcin Karpezo <sirmacik@wioo.waw.pl>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages emacs-xyz)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix cvs-download)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix hg-download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system cmake)
#:use-module (guix build-system emacs)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix build-system perl)
#:use-module (guix build-system trivial)
#:use-module (gnu packages)
#:use-module (gnu packages admin)
#:use-module (gnu packages audio)
#:use-module (gnu packages bash)
#:use-module (gnu packages cmake)
#:use-module (gnu packages code)
#:use-module (gnu packages cpp)
#:use-module (gnu packages curl)
#:use-module (gnu packages databases)
#:use-module (gnu packages dictionaries)
#:use-module (gnu packages emacs)
#:use-module (gnu packages guile)
#:use-module (gnu packages gtk)
#:use-module (gnu packages gnome)
#:use-module (gnu packages haskell-apps)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages python)
#:use-module (gnu packages python-xyz)
#:use-module (gnu packages telephony)
#:use-module (gnu packages terminals)
#:use-module (gnu packages tex)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages tcl)
#:use-module (gnu packages tls)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages xorg)
#:use-module (gnu packages lesstif)
#:use-module (gnu packages llvm)
#:use-module (gnu packages image)
#:use-module (gnu packages linux)
#:use-module (gnu packages libevent)
#:use-module (gnu packages lua)
#:use-module (gnu packages music)
#:use-module (gnu packages version-control)
#:use-module (gnu packages imagemagick)
#:use-module (gnu packages w3m)
#:use-module (gnu packages wget)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages compression)
#:use-module (gnu packages node)
#:use-module (gnu packages xml)
#:use-module (gnu packages glib)
#:use-module (gnu packages acl)
#:use-module (gnu packages mail)
#:use-module (gnu packages messaging)
#:use-module (gnu packages package-management)
#:use-module (gnu packages perl)
#:use-module (gnu packages pdf)
#:use-module (gnu packages rust-apps)
#:use-module (gnu packages scheme)
#:use-module (gnu packages speech)
#:use-module (gnu packages xiph)
#:use-module (gnu packages mp3)
#:use-module (gnu packages gettext)
#:use-module (gnu packages fribidi)
#:use-module (gnu packages gd)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages password-utils)
#:use-module (gnu packages pulseaudio)
#:use-module (gnu packages sphinx)
#:use-module (gnu packages xdisorg)
#:use-module (gnu packages shells)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages gnupg)
#:use-module (gnu packages video)
#:use-module (gnu packages haskell-xyz)
#:use-module (gnu packages wordnet)
#:use-module (gnu packages photo)
#:use-module (gnu packages uml)
#:use-module (guix utils)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match))
;;;
;;; Emacs hacking.
;;;
(define-public emacs-geiser
(package
(name "emacs-geiser")
(version "0.11.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/jaor/geiser/")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1khi1bghsjx6cs5acizmlbw9z19s4qycnji9krdbn42cbpv0rysv"))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
(symlink "geiser-install.el"
(string-append (assoc-ref outputs "out")
"/share/emacs/site-lisp/"
"geiser-autoloads.el"))
#t)))))
(inputs `(("guile" ,guile-2.2)))
(native-inputs
`(("emacs" ,emacs-minimal)
("autoconf" ,autoconf)
("automake" ,automake)
("texinfo" ,texinfo)))
(home-page "https://nongnu.org/geiser/")
(synopsis "Collection of Emacs modes for Guile and Racket hacking")
(description
"Geiser is a collection of Emacs major and minor modes that conspire with
one or more Scheme implementations to keep the Lisp Machine Spirit alive. The
continuously running Scheme interpreter takes the center of the stage in
Geiser. A bundle of Elisp shims orchestrates the dialog between the Scheme
implementation, Emacs and, ultimately, the schemer, giving them access to live
metadata.")
(license license:bsd-3)))
(define-public emacs-ac-geiser
(let ((commit "93818c936ee7e2f1ba1b315578bde363a7d43d05")
(revision "0"))
(package
(name "emacs-ac-geiser")
(version (git-version "0.1" revision commit))
(source
(origin
(uri (git-reference
(url "https://github.com/xiaohanyu/ac-geiser.git")
(commit commit)))
(method git-fetch)
(sha256
(base32 "00n2qa26yilaj837n1yp6lbqa4gf30nkkbvanl7m9ih7k48ssqmw"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(propagated-inputs
`(("geiser" ,emacs-geiser)
("auto-complete" ,emacs-auto-complete)))
(synopsis "Auto-complete backend for geiser")
(description
"This package provides an auto-complete source for Scheme projects
using geiser.")
(license license:bsd-3)
(home-page "https://github.com/xiaohanyu/ac-geiser"))))
(define-public emacs-paredit
(package
(name "emacs-paredit")
(version "24")
(source (origin
(method url-fetch)
(uri (string-append "http://mumble.net/~campbell/emacs/paredit-"
version ".el"))
(sha256
(base32
"0pp3n8q6kc70blqsaw0zlzp6bc327dpgdrjr0cnh7hqg1lras7ka"))))
(build-system emacs-build-system)
(home-page "http://mumble.net/~campbell/emacs/paredit/")
(synopsis "Emacs minor mode for editing parentheses")
(description
"ParEdit (paredit.el) is a minor mode for performing structured editing
of S-expression data. The typical example of this would be Lisp or Scheme
source code.
ParEdit helps **keep parentheses balanced** and adds many keys for moving
S-expressions and moving around in S-expressions. Its behavior can be jarring
for those who may want transient periods of unbalanced parentheses, such as
when typing parentheses directly or commenting out code line by line.")
(license license:gpl3+)))
(define-public git-modes
(package
(name "emacs-git-modes")
(version "1.2.8")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magit/git-modes")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"08hy7rbfazs6grkpk54i82bz0i0c74zcjk96cip8970h6jn3mj72"))))
(build-system emacs-build-system)
(home-page "https://github.com/magit/git-modes")
(synopsis "Emacs major modes for Git configuration files")
(description
"This package provides Emacs major modes for editing various Git
configuration files, such as .gitattributes, .gitignore, and .git/config.")
(license license:gpl3+)))
(define-public emacs-with-editor
(package
(name "emacs-with-editor")
(version "2.9.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magit/with-editor.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1sjb3qqrn1rhmpkrn14l8rya6c3gwxwmgw74n779s54kvl9gn7a9"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-dash" ,emacs-dash)))
(home-page "https://github.com/magit/with-editor")
(synopsis "Emacs library for using Emacsclient as EDITOR")
(description
"This package provides an Emacs library to use the Emacsclient as
@code{$EDITOR} of child processes, making sure they know how to call home.
For remote processes a substitute is provided, which communicates with Emacs
on stdout instead of using a socket as the Emacsclient does.")
(license license:gpl3+)))
(define-public emacs-libgit
(let ((commit "0ef8b13aef011a98b7da756e4f1ce3bb18e4d55a")
(revision "1"))
(package
(name "emacs-libgit")
(version (git-version "20200515" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magit/libegit2.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0pnjr3bg6y6354dfjjxfj0g51swzgl1fncpprah75x4k94rd369f"))
(patches (search-patches
;; Submitted for inclusion upstream (see:
;; https://github.com/magit/libegit2/pull/96).
"emacs-libgit-use-system-libgit2.patch"))))
;; Use the cmake-build-system as it provides support for cross builds.
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DUSE_SYSTEM_LIBGIT2=x")
;; Add the emacs-build-system byte compilation and install phases.
#:imported-modules (,@%cmake-build-system-modules
(guix build emacs-build-system)
(guix build emacs-utils))
#:modules ((guix build cmake-build-system)
((guix build emacs-build-system) #:prefix emacs:)
(guix build emacs-utils)
(guix build utils))
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'set-libgit--module-file
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(make-file-writable "libgit.el")
(emacs-substitute-variables "libgit.el"
("libgit--module-file"
(string-append out "/share/emacs/site-lisp/libegit2.so")))
#t)))
(add-before 'install 'prepare-for-install
(lambda _
(let ((s (string-append "../" ,name "-" ,version "-checkout")))
(copy-file "libegit2.so" (string-append s "/libegit2.so"))
(chdir s)
#t)))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(let ((install (assoc-ref emacs:%standard-phases 'install)))
(install #:outputs outputs
#:include (cons "\\.so$"
emacs:%default-include)))))
(add-after 'install 'make-autoloads
(assoc-ref emacs:%standard-phases 'make-autoloads))
(add-after 'make-autoloads 'enable-autoloads-compilation
(assoc-ref emacs:%standard-phases 'enable-autoloads-compilation))
(add-after 'enable-autoloads-compilation 'patch-el-files
(assoc-ref emacs:%standard-phases 'patch-el-files))
(add-after 'patch-el-files 'emacs-build
(assoc-ref emacs:%standard-phases 'build))
(add-after 'emacs-build 'validate-compiled-autoloads
(assoc-ref emacs:%standard-phases 'validate-compiled-autoloads)))))
(native-inputs
`(("pkg-config" ,pkg-config)
("emacs" ,emacs-no-x)
("git" ,git-minimal)))
(inputs
`(("libgit2" ,libgit2)))
(home-page "https://github.com/magit/libegit2")
(synopsis "Emacs bindings for libgit2")
(description "This is an experimental module written in C providing
libgit2 bindings for Emacs, intended to boost the performance of Magit.")
;; The LICENSE file says GPL v2+, but libgit.el says GPL v3+.
(license license:gpl3+))))
(define-public emacs-magit
;; There hasn't been an official release since 2018-11-16.
(let ((commit "d05545ec2fd7edf915eaf1b9c15c785bb08975cc"))
(package
(name "emacs-magit")
(version (git-version "2.90.1" "4" commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magit/magit.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"11aqyy4r9hrdi9nlypd70hn8384b6q89c7xavgv8c5q7f2g5z9qg"))))
(build-system emacs-build-system)
(arguments
`(#:emacs ,emacs-no-x ;module support is required
#:tests? #t
#:test-command '("make" "test")
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'build-info-manual
(lambda _
(invoke "make" "info")
;; Copy info files to the lisp directory, which acts as
;; the root of the project for the emacs-build-system.
(for-each (lambda (f)
(install-file f "lisp"))
(find-files "Documentation" "\\.info$"))
(chdir "lisp")
#t))
(add-after 'build-info-manual 'set-magit-version
(lambda _
(make-file-writable "magit.el")
(emacs-substitute-variables "magit.el"
("magit-version" ,version))
#t))
(add-after 'set-magit-version 'patch-exec-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((perl (assoc-ref inputs "perl")))
(make-file-writable "magit-sequence.el")
(emacs-substitute-variables "magit-sequence.el"
("magit-perl-executable" (string-append perl "/bin/perl")))
#t)))
(add-before 'check 'configure-git
(lambda _
;; Otherwise some tests fail with error "unable to auto-detect
;; email address".
(setenv "HOME" (getcwd))
(invoke "git" "config" "--global" "user.name" "toto")
(invoke "git" "config" "--global" "user.email"
"toto@toto.com")))
(add-after 'configure-git 'disable-tramp-test
(lambda _
;; There is an issue causing TRAMP to fail in the build
;; environment. Setting the tramp-remote-shell parameter of
;; the sudo-method to the file name of the shell didn't help.
(chdir "..")
(substitute* "t/magit-tests.el"
(("^\\(ert-deftest magit-toplevel:tramp.*" all)
(string-append all " (skip-unless nil)")))
#t))
(add-before 'install 'enter-lisp-directory
(lambda _
(chdir "lisp")
#t)))))
(native-inputs
`(("texinfo" ,texinfo)))
(inputs
`(("git" ,git)
("perl" ,perl)))
(propagated-inputs
`(("emacs-dash" ,emacs-dash)
("emacs-libgit" ,emacs-libgit)
("emacs-transient" ,emacs-transient)
("emacs-with-editor" ,emacs-with-editor)))
(home-page "https://magit.vc/")
(synopsis "Emacs interface for the Git version control system")
(description "With Magit, you can inspect and modify your Git
repositories with Emacs. You can review and commit the changes you have made
to the tracked files, for example, and you can browse the history of past
changes. There is support for cherry picking, reverting, merging, rebasing,
and other common Git operations.")
(license license:gpl3+))))
(define-public emacs-magit-svn
(let ((commit "9e33ceee32f665db59909e1c00a667ccdd04178f"))
(package
(name "emacs-magit-svn")
(version (git-version "2.2.1" "2" commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magit/magit-svn")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1mlqz8dh6jy5rv72lgkxv253dgh73fmbaidskicypapvbl3lr6xy"))))
(build-system emacs-build-system)
(propagated-inputs `(("dash" ,emacs-dash)
("with-editor" ,emacs-with-editor)
("magit" ,emacs-magit)
("transient" ,emacs-transient)))
(home-page "https://github.com/magit/magit-svn")
(synopsis "Git-SVN extension to Magit")
(description
"This package is an extension to Magit, the Git Emacs mode, providing
support for Git-SVN.")
(license license:gpl3+))))
(define-public emacs-magit-popup
(package
(name "emacs-magit-popup")
(version "2.12.5")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magit/magit-popup.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"13riknyqr6vxqll80sfhvz165flvdz367rbd0pr5slb01bnfsi2i"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'install 'make-info
(lambda _
(invoke "make" "info"))))))
(native-inputs
`(("texinfo" ,texinfo)))
(propagated-inputs
`(("emacs-dash" ,emacs-dash)))
(home-page "https://github.com/magit/magit-popup")
(synopsis "Define prefix-infix-suffix command combos")
(description
"This library implements a generic interface for toggling switches and
setting options and then invoking an Emacs command which does something with
these arguments. The prototypical use is for the command to call an external
process, passing on the arguments as command line arguments.")
(license license:gpl3+)))
(define-public emacs-magit-annex
(let ((commit "ef5dce6267e9118a5eca82a22bcad0b67826c23a")
(revision "1"))
(package
(name "emacs-magit-annex")
(version (git-version "1.7.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magit/magit-annex.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0vzkydgl889cq173zjl89g2vrddb9abc4a8gljiz3b4a7n5b1nrd"))))
(build-system emacs-build-system)
(propagated-inputs
`(("magit" ,emacs-magit)
("transient" ,emacs-transient)))
(home-page "https://github.com/magit/magit-annex/")
(synopsis "Git-annex support for Magit")
(description
"Magit-annex adds a few git-annex operations to the Magit interface.")
(license license:gpl3+))))
(define-public emacs-minions
(package
(name "emacs-minions")
(version "0.3.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tarsius/minions.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"16rplpbfy3dnvqqgavk9jb1f1ihr5875zlixd4zxb1pqxs3jkgw3"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-dash" ,emacs-dash)))
(home-page "https://github.com/tarsius/minions")
(synopsis "Minor-mode menu for the mode line")
(description
"This package implements a menu that lists enabled minor-modes, as well
as commonly but not currently enabled minor-modes. It can be used to toggle
local and global minor-modes, to access mode-specific menus, and to get help
about modes.
This menu is intended as a replacement for the incomplete yet wide list of
enabled minor-modes that is displayed in the mode line by default. To use the
menu like this, enable Minions mode.
Alternatively the menu can be bound globally, for example:
@code{(global-set-key [S-down-mouse-3] 'minions-minor-modes-menu)}.")
(license license:gpl3+)))
(define-public emacs-treepy
(package
(name "emacs-treepy")
(version "0.1.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/volrath/treepy.el.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"04zwm6gx9pxfvgfkizx6pvb1ql8pqxjyzqp8flz0432x0gq5nlxk"))))
(build-system emacs-build-system)
(home-page
"https://github.com/volrath/treepy.el")
(synopsis "Tree traversal tools")
(description
"Generic tools for recursive and iterative tree traversal based on
clojure.walk and clojure.zip respectively.")
(license license:gpl3+)))
(define-public emacs-graphql
(package
(name "emacs-graphql")
(version "0.1.1")
(source (origin
(modules '((guix build utils)))
;; Remove examples file with references to external packages as
;; they do not exist at compilation time.
(snippet
'(begin (delete-file "examples.el")
#t))
(method git-fetch)
(uri (git-reference
(url "https://github.com/vermiculus/graphql.el.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0sp0skc1rnhi39szfbq1i99pdgd3bhn4c15cff05iqhjy2d4hniw"))))
(build-system emacs-build-system)
(home-page
"https://github.com/vermiculus/graphql.el")
(synopsis "GraphQL utilities")
(description
"GraphQL.el provides a generally-applicable domain-specific language for
creating and executing GraphQL queries against your favorite web services.
GraphQL is a data query language and runtime designed and used to request and
deliver data to mobile and web apps.")
(license license:gpl3+)))
(define-public emacs-ghub
;; We need a newer commit to avoid problems in emacs-forge.
(let ((commit "e19cd86ca4768a6d89285123933baa3f1460d696")
(revision "2"))
(package
(name "emacs-ghub")
(version (git-version "3.2.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magit/ghub")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1d6f8sxlsl0fpkzwbpnaw77d1a5pkg63zfvf6a2fxir357lbdizx"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'install 'make-info
(lambda _
(invoke "make" "info"))))))
(native-inputs
`(("texinfo" ,texinfo)))
(propagated-inputs
`(("dash" ,emacs-dash)
("emacs-let-alist" ,emacs-let-alist)
("treepy" ,emacs-treepy)))
(home-page "https://github.com/magit/ghub")
(synopsis "Emacs client libraries for the APIs of various Git forges")
(description
"Ghub provides basic support for using the APIs of various Git forges from
Emacs packages. It supports the REST APIs of Github, Github GraphQL, Gitlab,
Gitea, Gogs and Bitbucket. It abstracts access to API resources using only a
handful of functions that are not resource-specific.")
(license license:gpl3+))))
(define-public emacs-typit
;; Last release is from 2017.
(let ((commit "231cb7df43253b84323520b8ed70f128d37003af")
(revision "1"))
(package
(name "emacs-typit")
(version (git-version "0.2.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mrkkrp/typit.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1savrxs7xl92ifyxpxkkzv2didr7lb405h0dwz1bs1wldr5fb53f"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'install-dictionaries
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(site-lisp
(string-append
out "/share/emacs/site-lisp/dict")))
(mkdir-p site-lisp)
(copy-recursively "dict" site-lisp)
#t))))))
(propagated-inputs
`(("emacs-f" ,emacs-f)
("emacs-mmt" ,emacs-mmt)))
(home-page "https://github.com/mrkkrp/typit")
(synopsis "Typing game for Emacs with two difficulties")
(description "Emacs Typit is a typing game for Emacs. Words that are
picked randomly from the most frequent words in language you're practicing,
until time is up.")
(license license:gpl3+))))
(define-public emacs-scribble-mode
(let ((commit "217945d54de5e4bb207033f2116baa28f5c5ecf2")
(revision "2"))
(package
(name "emacs-scribble-mode")
(version (git-version "0.1" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/emacs-pe/scribble-mode.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1s5ccw1a5ack01wd94ywfcrar9j98agchwdh30q7iyxr0d2z4sii"))))
(build-system emacs-build-system)
(home-page "https://github.com/emacs-pe/scribble-mode")
(synopsis "Emacs mode for editing the Scribble documentation syntax.")
(description
"This package provides basic syntax highlighting and editing support
for editing Racket's Scribble documentation syntax in Emacs.")
(license license:gpl3+))))
(define-public emacs-shroud
(package
(name "emacs-shroud")
(version "1.105")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://git.savannah.gnu.org/git/emacs-shroud.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0q2pb3w8s833fjhkzicciw2php4lsnismad1dnwgp2lcway757ra"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("texinfo" ,texinfo)
("perl" ,perl)
("emacs-minimal" ,emacs-minimal)))
(propagated-inputs
`(("emacs-bui" ,emacs-bui)
("emacs-dash" ,emacs-dash)
("emacs-f" ,emacs-f)
("emacs-s" ,emacs-s)
("gnupg" ,gnupg)
("shroud" ,shroud)))
(home-page "https://www.nongnu.org/emacs-shroud")
(synopsis "Emacs interface to the Shroud password manager")
(description
"This package provides an Emacs interface to the Shroud password manager,
using the Buffers User Interface library. You can view, copy, and edit secrets
from within Emacs.")
(license license:gpl3+)))
(define-public emacs-unpackaged-el
(let ((commit "746801a677ada6cd6fa076e423aa0953779f3fad")
(revision "3"))
(package
(name "emacs-unpackaged-el")
(version (git-version "0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/alphapapa/unpackaged.el")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0jvb2ci0h0lj368qhbff3pzkxj3nhlligpbkjzi525k9rkjgm7l8"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-dash" ,emacs-dash)
("emacs-org" ,emacs-org)
("emacs-s" ,emacs-s)
("emacs-hydra" ,emacs-hydra)
("emacs-use-package" ,emacs-use-package)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'require-hydra
(lambda _
(substitute* "unpackaged.el"
((";;; Code:") ";;; Code:\n(require 'hydra)"))
#t)))))
(home-page "https://github.com/alphapapa/unpackaged.el")
(synopsis "Useful snippets of Emacs Lisp code")
(description "This package provides Emacs Lisp utilities for a variety
of tasks, including version control, task management, and regex-based
replacement.")
(license license:gpl3+))))
(define-public emacs-haskell-mode
(package
(name "emacs-haskell-mode")
(version "16.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/haskell/haskell-mode")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1qk36y0v9fzass6785il65c6wb5cfj4ihhwkvgnzmbafpa8p4dvq"))
(patches
(search-patches ; backport test failure fixes
"haskell-mode-unused-variables.patch"
"haskell-mode-make-check.patch"))))
(inputs
`(("emacs-el-search" ,emacs-el-search) ; for tests
("emacs-stream" ,emacs-stream))) ; for tests
(propagated-inputs
`(("emacs-dash" ,emacs-dash)))
(native-inputs
`(("emacs" ,emacs-minimal)
("texinfo" ,texinfo)))
(build-system gnu-build-system)
(arguments
`(#:make-flags (list (string-append "EMACS="
(assoc-ref %build-inputs "emacs")
"/bin/emacs"))
#:modules ((ice-9 match)
(srfi srfi-26)
,@%gnu-build-system-modules)
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before
'build 'pre-build
(lambda* (#:key inputs #:allow-other-keys)
(define (el-dir store-dir)
(match (find-files store-dir "\\.el$")
((f1 f2 ...) (dirname f1))
(_ "")))
(let ((sh (string-append (assoc-ref inputs "bash") "/bin/sh")))
(define emacs-prefix? (cut string-prefix? "emacs-" <>))
(setenv "SHELL" "sh")
(setenv "EMACSLOADPATH"
(string-concatenate
(map (match-lambda
(((? emacs-prefix? name) . dir)
(string-append (el-dir dir) ":"))
(_ ""))
inputs)))
(substitute* (find-files "." "\\.el") (("/bin/sh") sh))
;; embed filename to fix test failure
(let ((file "tests/haskell-cabal-tests.el"))
(substitute* file
(("\\(buffer-file-name\\)")
(format #f "(or (buffer-file-name) ~s)" file))))
#t)))
(replace
'install
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(el-dir (string-append out "/share/emacs/site-lisp"))
(doc (string-append
out "/share/doc/haskell-mode-" ,version))
(info (string-append out "/share/info")))
(define (copy-to-dir dir files)
(for-each (lambda (f)
(install-file f dir))
files))
(with-directory-excursion "doc"
(invoke "makeinfo" "haskell-mode.texi")
(install-file "haskell-mode.info" info))
(copy-to-dir doc '("CONTRIBUTING.md" "NEWS" "README.md"))
(copy-to-dir el-dir (find-files "." "\\.elc?"))
;; These are part of other packages.
(with-directory-excursion el-dir
(for-each delete-file '("dash.el" "ert.el")))
#t))))))
(home-page "https://github.com/haskell/haskell-mode")
(synopsis "Haskell mode for Emacs")
(description
"This is an Emacs mode for editing, debugging and developing Haskell
programs.")
(license license:gpl3+)))
(define-public emacs-dante
(let ((commit "38b589417294c7ea44bf65b73b8046d950f9531b")
(revision "1"))
(package
(name "emacs-dante")
(version (git-version "1.6" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jyp/dante")
(commit commit)))
(sha256
(base32
"1mnmn635552zlwd4zr68jbvdjipl6gi4mi6wiyck28fsmq8kw96h"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-dash" ,emacs-dash)
("emacs-f" ,emacs-f)
("emacs-flycheck" ,emacs-flycheck)
("emacs-haskell-mode" ,emacs-haskell-mode)
("emacs-s" ,emacs-s)
("emacs-company" ,emacs-company)
("emacs-lcr" ,emacs-lcr)))
(home-page "https://github.com/jyp/dante")
(synopsis "Minor mode for interactive Haskell")
(description
"This package provides a minor mode for Haskell development that
supports type hints, definition-jumping, completion, and more.")
(license license:gpl3+))))
(define-public emacs-flycheck
;; Last release version was more than 500 commits ago.
(let ((commit "9bcf6b665e15db94870bebc81dc8248c3eec20d3")
(revision "2"))
(package
(name "emacs-flycheck")
(version (git-version "31" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/flycheck/flycheck/")
(commit commit)))
(sha256
(base32 "015ixss5bjr7gvhj8mkw5x2x1hy6fvvsjarr2xpv0gskkkngs7pg"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-dash" ,emacs-dash)))
(native-inputs
`(("emacs-shut-up" ,emacs-shut-up)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'change-flycheck-version
(lambda _
(substitute* "flycheck.el"
(("\\(pkg-info-version-info 'flycheck\\)")
(string-append "\"" ,version "\"")))
#t)))
;; TODO: many failing tests
#:tests? #f
#:test-command '("emacs" "-Q" "--batch" "-L" "."
"--load" "test/flycheck-test"
"--load" "test/run.el"
"-f" "flycheck-run-tests-main")))
(home-page "https://www.flycheck.org")
(synopsis "On-the-fly syntax checking")
(description
"This package provides on-the-fly syntax checking for GNU Emacs. It is a
replacement for the older Flymake extension which is part of GNU Emacs, with
many improvements and additional features.
Flycheck provides fully-automatic, fail-safe, on-the-fly background syntax
checking for over 30 programming and markup languages with more than 70
different tools. It highlights errors and warnings inline in the buffer, and
provides an optional IDE-like error list.")
(license license:gpl3+)))) ;+GFDLv1.3+ for the manual
(define-public emacs-a
(package
(name "emacs-a")
(version "0.1.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/plexus/a.el.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"00v9w6qg3bkwdhypq0ssf0phdh0f4bcq59c20lngd6vhk0204dqi"))))
(build-system emacs-build-system)
(home-page "https://github.com/plexus/a.el/")
(synopsis
"Emacs library for dealing with association lists and hash tables")
(description "@code{emacs-a} provides Emacs Lisp functions for dealing
with associative structures in a uniform and functional way. These functions
can take association lists, hash tables, and in some cases vectors (where the
index is considered the key).")
(license license:gpl3+)))
(define-public emacs-ace-jump-mode
(package
(name "emacs-ace-jump-mode")
(version "2.0")
(home-page "https://github.com/winterTTr/ace-jump-mode")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit (string-append "v" version))))
(sha256
(base32
"1bwvzh056ls2v7y26a0s4j5mj582dmds04lx4x6iqihs04ss74bb"))
(file-name (git-file-name name version))))
(build-system emacs-build-system)
(synopsis "Cursor location minor mode for fast navigation")
(description "Ace-jump-mode is a fast/direct cursor location minor
mode. It creates an N-Branch search tree internally and marks all
the possible position with predefined keys in within the whole Emacs
view. This allows you to move to the character, word, or line almost
directly.")
(license license:gpl3+)))
(define-public emacs-anaphora
(package
(name "emacs-anaphora")
(version "1.0.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rolandwalker/anaphora.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"11fgiy029sqz7nvdm7dcal95lacryz9zql0x5h05z48nrrcl4bib"))))
(build-system emacs-build-system)
(home-page "https://github.com/rolandwalker/anaphora/")
(synopsis "Anaphoric expressions for Emacs Lisp")
(description "@code{emacs-anaphora} implements anaphoric expressions for
Emacs Lisp.
Anaphoric expressions implicitly create one or more temporary variables which
can be referred to during the expression. This technique can improve clarity
in certain cases. It also enables recursion for anonymous functions.")
(license license:public-domain)))
(define-public emacs-xr
(package
(name "emacs-xr")
(version "1.19")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/xr-" version ".tar"))
(sha256
(base32 "1aa3iqh0r635jw8k89zh8y4am9d4hfrqpk9mrdh2b51invjn8llq"))))
(build-system emacs-build-system)
(home-page "https://elpa.gnu.org/packages/xr.html")
(synopsis "Convert string regexp to rx notation")
(description
"This is an inverse companion to the @code{rx} package for translating
regexps in string form to the @code{rx} notation. Its chief uses are:
@itemize
@item Migrating existing code to @code{rx} form, for better readability and
maintainability
@item Understanding complex regexp strings and finding errors in them
@end itemize
In addition to Emacs regexps, this package can also parse and troubleshoot
skip set strings, which are arguments to @code{skip-chars-forward} and
@code{skip-chars-backward}.")
(license license:gpl3+)))
(define-public emacs-ample-regexps
(let ((commit "cbe91e148cac1ee8e223874dc956ed4cf607f046")
(revision "1"))
(package
(name "emacs-ample-regexps")
(version (git-version "0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/immerrr/ample-regexps.el")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"1mm4icrwx4mscp7kbbmlc34995r164dhrfczn5ybkyxjzzf76jn1"))))
(build-system emacs-build-system)
(native-inputs
`(("ert-runner" ,emacs-ert-runner)))
(arguments
`(#:tests? #t
#:test-command '("ert-runner" "-l" "ample-regexps")))
(home-page "https://github.com/immerrr/ample-regexps.el")
(synopsis "Compose and reuse Emacs regexps")
(description
"This package allows common parts of regexps to be easily picked out
and reused.")
(license license:gpl3+))))
(define-public emacs-ample-theme
(let ((commit "536966adf882446165a1f756830028faa792c7a9")
(revision "1"))
(package
(name "emacs-ample-theme")
(version (git-version "0.0.0" revision commit))
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jordonbiondo/ample-theme")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"07bpv8dag40qjnm5000pgzpazj4whfxf93x2vprz26sg3mjfx0nf"))))
(build-system emacs-build-system)
(home-page "https://github.com/jordonbiondo/ample-theme")
(synopsis "Theme for Emacs providing dark, light, and flat versions")
(description "Ample themes is a collection of three themes sharing a
similar pallet with a light, dark and flat versions with a focus on being easy
on the eyes during night and day. They only support GUI and 256 colour
terminals.")
(license license:gpl3+))))
(define-public emacs-reformatter
(package
(name "emacs-reformatter")
(version "0.4")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/purcell/reformatter.el.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0hhy6x1bkwlhdlarsgm06g3am4yh02yqv8qs34szpzgy53x84qah"))))
(build-system emacs-build-system)
(home-page "https://github.com/purcell/reformatter.el")
(synopsis "Define commands which run reformatters on the current buffer")
(description
"This library lets elisp authors easily define an idiomatic command to
reformat the current buffer using a command-line program, together with an
optional minor mode which can apply this command automatically on save.")
(license license:gpl3+)))
(define-public emacs-relint
(package
(name "emacs-relint")
(version "1.17")
(source
(origin
(method url-fetch)
(uri (string-append
"https://elpa.gnu.org/packages/relint-" version ".tar"))
(sha256
(base32 "1nv13dqdhf72c1jgk1ml4k6jqb8wsyphcx2vhsyhig5198lg4kd7"))))
(build-system emacs-build-system)
(propagated-inputs `(("emacs-xr" ,emacs-xr)))
(home-page "https://github.com/mattiase/relint")
(synopsis "Elisp regexp mistake finder")
(description
"Relint (regular expression lint) scans Elisp files for mistakes in
regexps, including deprecated syntax and bad practice. It also checks the
regexp-like arguments to @code{skip-chars-forward} and
@code{skip-chars-backward}.")
(license license:gpl3+)))
(define-public emacs-bug-hunter
(let ((commit "b88d981afa9154b236c5a3a83b50d5889d46c6a7")
(revision "1"))
(package
(name "emacs-bug-hunter")
(version (git-version "1.3.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Malabarba/elisp-bug-hunter.git")
(commit commit)))
(file-name (git-file-name name commit))
(sha256
(base32
"134fj493sdn93pyyac8rpz1fzahzmayvphsrmqp3wvgysmfqm38l"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-seq" ,emacs-seq)))
(home-page "https://github.com/Malabarba/elisp-bug-hunter")
(synopsis "Hunt down errors by bisecting elisp files")
(description
"The Bug Hunter is an Emacs library that finds the source of an error
or unexpected behavior inside an elisp configuration file (typically
@file{init.el} or @file{.emacs}).")
(license license:gpl3+))))
;;;
;;; Web browsing.
;;;
(define-public emacs-w3m
;; Emacs-w3m follows a "rolling release" model.
(package
(name "emacs-w3m")
(version "2018-11-11")
(source (origin
(method cvs-fetch)
(uri (cvs-reference
(root-directory
":pserver:anonymous@cvs.namazu.org:/storage/cvsroot")
(module "emacs-w3m")
(revision version)))
(file-name (string-append name "-" version "-checkout"))
(sha256
(base32
"0nvahdbjs12zg7zsk4gql02mvnv56cf1rwj2f5p42lwp3xvswiwp"))))
(build-system gnu-build-system)
(native-inputs `(("autoconf" ,autoconf)
("texinfo" ,texinfo)
("emacs" ,emacs-minimal)))
(inputs `(("w3m" ,w3m)
("imagemagick" ,imagemagick)))
(arguments
`(#:modules ((guix build gnu-build-system)
(guix build utils)
(guix build emacs-utils))
#:imported-modules (,@%gnu-build-system-modules
(guix build emacs-utils))
#:configure-flags
(let ((out (assoc-ref %outputs "out")))
(list (string-append "--with-lispdir="
out "/share/emacs/site-lisp")
(string-append "--with-icondir="
out "/share/images/emacs-w3m")
;; Leave .el files uncompressed, otherwise GC can't
;; identify run-time dependencies. See
;; <http://lists.gnu.org/archive/html/guix-devel/2015-12/msg00208.html>
"--without-compress-install"))
#:tests? #f ; no check target
#:phases
(modify-phases %standard-phases
(add-after 'unpack 'autoconf
(lambda _
(invoke "autoconf")))
(add-before 'configure 'support-emacs!
(lambda _
;; For some reason 'AC_PATH_EMACS' thinks that 'Emacs 26' is
;; unsupported.
(substitute* "configure"
(("EMACS_FLAVOR=unsupported")
"EMACS_FLAVOR=emacs"))
#t))
(add-before 'build 'patch-exec-paths
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(w3m (assoc-ref inputs "w3m"))
(imagemagick (assoc-ref inputs "imagemagick"))
(coreutils (assoc-ref inputs "coreutils")))
(make-file-writable "w3m.el")
(emacs-substitute-variables "w3m.el"
("w3m-command" (string-append w3m "/bin/w3m"))
("w3m-touch-command"
(string-append coreutils "/bin/touch"))
("w3m-icon-directory"
(string-append out "/share/images/emacs-w3m")))
(make-file-writable "w3m-image.el")
(emacs-substitute-variables "w3m-image.el"
("w3m-imagick-convert-program"
(string-append imagemagick "/bin/convert"))
("w3m-imagick-identify-program"
(string-append imagemagick "/bin/identify")))
#t)))
(replace 'install
(lambda* (#:key outputs #:allow-other-keys)
(invoke "make" "install" "install-icons")
(with-directory-excursion
(string-append (assoc-ref outputs "out")
"/share/emacs/site-lisp")
(for-each delete-file '("ChangeLog" "ChangeLog.1"))
(symlink "w3m-load.el" "w3m-autoloads.el")
#t))))))
(home-page "http://emacs-w3m.namazu.org/")
(synopsis "Simple Web browser for Emacs based on w3m")
(description
"Emacs-w3m is an emacs interface for the w3m web browser.")
(license license:gpl2+)))
(define-public emacs-wget
(package
(name "emacs-wget")
(version "0.5.0")
(source (origin
(method url-fetch)
(uri (string-append "mirror://debian/pool/main/w/wget-el/wget-el_"
version ".orig.tar.gz"))
(sha256
(base32 "10byvyv9dk0ib55gfqm7bcpxmx2qbih1jd03gmihrppr2mn52nff"))))
(build-system gnu-build-system)
(inputs `(("wget" ,wget)))
(native-inputs `(("emacs" ,emacs-minimal)))
(arguments
`(#:modules ((guix build gnu-build-system)
(guix build utils)
(guix build emacs-utils))
#:imported-modules (,@%gnu-build-system-modules
(guix build emacs-utils))
#:tests? #f ; no check target
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs #:allow-other-keys)
(substitute* "Makefile"
(("/usr/local") (assoc-ref outputs "out"))
(("/site-lisp/emacs-wget") "/site-lisp"))
#t))
(add-before 'build 'patch-exec-paths
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((wget (assoc-ref inputs "wget")))
(emacs-substitute-variables "wget.el"
("wget-command" (string-append wget "/bin/wget"))))
#t))
(add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
(emacs-generate-autoloads
"wget" (string-append (assoc-ref outputs "out")
"/share/emacs/site-lisp/"))
#t)))))
(home-page "https://www.emacswiki.org/emacs/EmacsWget")
(synopsis "Simple file downloader for Emacs based on wget")
(description
"Emacs-wget is an emacs interface for the wget file downloader.")
(license license:gpl2+)))
(define-public emacs-eww-lnum
(package
(name "emacs-eww-lnum")
(version "1.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/m00natic/eww-lnum.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0gs6bi3s2sszc6v2b26929azmn5513kvyin99n4d0ark1jdbjmv2"))))
(build-system emacs-build-system)
(home-page "https://github.com/m00natic/eww-lnum")
(synopsis "Conkeror-like functionality for Eww")
(description "This is extension to the Emacs browser Eww that adds
Conkeror-like functionality. In short, currently visible links, forms,
buttons are temporarily assigned numbers with which the former can be
immediately activated. Also filtering can be applied so selection can be
incrementally confined in Isearch manner.")
(license license:gpl3+)))
;;;
;;; Multimedia.
;;;
(define-public emacs-emms
(package
(name "emacs-emms")
(version "5.4")
(source
(origin
(method url-fetch)
(uri (string-append "mirror://gnu/emms/emms-" version ".tar.gz"))
(sha256
(base32 "1nd7sb6pva7qb1ki6w0zhd6zvqzd7742kaqi0f3v4as5jh09l6nr"))
(modules '((guix build utils)))
(snippet
'(begin
(substitute* "Makefile"
(("/usr/bin/install-info")
;; No need to use 'install-info' since it would create a
;; useless 'dir' file.
"true")
(("^INFODIR=.*")
;; Install Info files to $out/share/info, not $out/info.
"INFODIR := $(PREFIX)/share/info\n")
(("/site-lisp/emms")
;; Install directly in share/emacs/site-lisp, not in a
;; sub-directory.
"/site-lisp")
(("^all: (.*)\n" _ rest)
;; Build 'emms-print-metadata'.
(string-append "all: " rest " emms-print-metadata\n")))
#t))))
(build-system gnu-build-system)
(arguments
`(#:modules ((guix build gnu-build-system)
(guix build utils)
(guix build emacs-utils)
(ice-9 ftw))
#:imported-modules (,@%gnu-build-system-modules
(guix build emacs-utils))
#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))
(flac (assoc-ref inputs "flac"))
(vorbis (assoc-ref inputs "vorbis-tools"))
(alsa (assoc-ref inputs "alsa-utils"))
(mpg321 (assoc-ref inputs "mpg321"))
(mp3info (assoc-ref inputs "mp3info"))
(mutagen (assoc-ref inputs "mutagen"))
(opus (assoc-ref inputs "opus-tools")))
;; Specify the installation directory.
(substitute* "Makefile"
(("PREFIX=.*$")
(string-append "PREFIX := " out "\n")))
(setenv "SHELL" (which "sh"))
(setenv "CC" "gcc")
;; Specify the absolute file names of the various
;; programs so that everything works out-of-the-box.
(with-directory-excursion "lisp"
(emacs-substitute-variables
"emms-player-mpg321-remote.el"
("emms-player-mpg321-remote-command"
(string-append mpg321 "/bin/mpg321")))
(substitute* "emms-player-simple.el"
(("\"ogg123\"")
(string-append "\"" vorbis "/bin/ogg123\"")))
(substitute* "emms-player-simple.el"
(("\"mpg321\"")
(string-append "\"" mpg321 "/bin/mpg321\"")))
(emacs-substitute-variables "emms-info-ogginfo.el"
("emms-info-ogginfo-program-name"
(string-append vorbis "/bin/ogginfo")))
(emacs-substitute-variables "emms-info-opusinfo.el"
("emms-info-opusinfo-program-name"
(string-append opus "/bin/opusinfo")))
(emacs-substitute-variables "emms-info-libtag.el"
("emms-info-libtag-program-name"
(string-append out "/bin/emms-print-metadata")))
(emacs-substitute-variables "emms-info-mp3info.el"
("emms-info-mp3info-program-name"
(string-append mp3info "/bin/mp3info")))
(emacs-substitute-variables "emms-info-metaflac.el"
("emms-info-metaflac-program-name"
(string-append flac "/bin/metaflac")))
(emacs-substitute-variables "emms-source-file.el"
("emms-source-file-gnu-find" (which "find")))
(substitute* "emms-volume-amixer.el"
(("\"amixer\"")
(string-append "\"" alsa "/bin/amixer\"")))
(substitute* "emms-tag-editor.el"
(("\"mid3v2\"")
(string-append "\"" mutagen "/bin/mid3v2\"")))
#t))))
(add-before 'install 'pre-install
(lambda* (#:key outputs #:allow-other-keys)
;; The 'install' rule expects the target directories to exist.
(let* ((out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(man1 (string-append out "/share/man/man1")))
(mkdir-p bin)
(mkdir-p man1)
;; Ensure that files are not rejected by gzip
(let ((early-1980 315619200)) ; 1980-01-02 UTC
(ftw "." (lambda (file stat flag)
(unless (<= early-1980 (stat:mtime stat))
(utime file early-1980 early-1980))
#t)))
#t)))
(add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(symlink "emms-auto.el"
(string-append out "/share/emacs/site-lisp/"
"emms-autoloads.el")))
#t)))
#:tests? #f))
(native-inputs `(("emacs" ,emacs-minimal) ;for (guix build emacs-utils)
("texinfo" ,texinfo)))
(inputs `(("alsa-utils" ,alsa-utils)
("flac" ,flac) ;for metaflac
("vorbis-tools" ,vorbis-tools)
("mpg321" ,mpg321)
("taglib" ,taglib)
("mp3info" ,mp3info)
("mutagen" ,python-mutagen)
("opus-tools" ,opus-tools)))
(properties '((upstream-name . "emms")))
(synopsis "Emacs Multimedia System")
(description
"EMMS is the Emacs Multimedia System. It is a small front-end which
can control one of the supported external players. Thus, it supports
whatever formats are supported by your music player. It also
supports tagging and playlist management, all behind a clean and
light user interface.")
(home-page "https://www.gnu.org/software/emms/")
(license license:gpl3+)))
(define-public emacs-emms-mode-line-cycle
(package
(name "emacs-emms-mode-line-cycle")
(version "0.2.5")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/momomo5717/emms-mode-line-cycle")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0q80f0plch6k4lhs8c9qm3mfycfbp3kn5sjrk9zxgxwnn901y9mp"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emms" ,emacs-emms)))
(home-page "https://github.com/momomo5717/emms-mode-line-cycle")
(synopsis "Display the EMMS mode line as a ticker")
(description
"This is a minor mode for updating the EMMS mode-line string cyclically
within a specified width. It is useful for displaying long track titles.")
(license license:gpl3+)))
;;;
;;; Miscellaneous.
;;;
(define-public emacs-ace-link
(package
(name "emacs-ace-link")
(version "0.5.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/abo-abo/ace-link.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"147dz79vg4ym5wg3d544bw2khdb2j3hr73rw4qfm64wf0q2dj0vk"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-avy" ,emacs-avy)))
(home-page "https://github.com/abo-abo/ace-link")
(synopsis "Quickly follow links in Emacs")
(description
"Currently, to jump to a link in a @code{Info-mode}, @code{help-mode},
@code{woman-mode}, @code{org-mode}, @code{eww-mode}, @code{compilation-mode},
@code{goto-address-mode} buffer, you can tab through the links to select the
one you want. This is an O(N) operation, where the N is the amount of links.
This package turns this into an O(1) operation. It does so by assigning a
letter to each link using avy.")
(license license:gpl3+)))
(define-public emacs-auto-sudoedit
(package
(name "emacs-auto-sudoedit")
(version "1.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ncaq/auto-sudoedit.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "10p0hc95j382km8655pqld9wxg10j1f36czzppkdd6a55cxarv9f"))))
(propagated-inputs
`(("emacs-f" ,emacs-f)))
(build-system emacs-build-system)
(home-page "https://github.com/ncaq/auto-sudoedit")
(synopsis "Automatically re-open read-only files with sudo")
(description
"This package automatically reopens a file or directory with
@command{sudo} if it cannot write to it.")
(license license:expat)))
(define-public emacs-bbdb
(package
(name "emacs-bbdb")
(version "3.1.2")
(source (origin
(method url-fetch)
(uri (string-append "mirror://savannah/bbdb/bbdb-"
version ".tar.gz"))
(sha256
(base32
"1gs16bbpiiy01w9pyg12868r57kx1v3hnw04gmqsmpc40l1hyy05"))
(modules '((guix build utils)))
(snippet
;; We don't want to build and install the PDF.
'(begin
(substitute* "doc/Makefile.in"
(("^doc_DATA = .*$")
"doc_DATA =\n"))
#t))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(add-after 'install 'post-install
(lambda* (#:key outputs #:allow-other-keys)
;; Add an autoloads file with the right name for guix.el.
(let* ((out (assoc-ref outputs "out"))
(site (string-append out "/share/emacs/site-lisp")))
(with-directory-excursion site
(symlink "bbdb-loaddefs.el" "bbdb-autoloads.el")))
#t)))))
(native-inputs `(("emacs" ,emacs-minimal)))
(home-page "https://savannah.nongnu.org/projects/bbdb/")
(synopsis "Contact management utility for Emacs")
(description
"BBDB is the Insidious Big Brother Database for GNU Emacs. It provides
an address book for email and snail mail addresses, phone numbers and the
like. It can be linked with various Emacs mail clients (Message and Mail
mode, Rmail, Gnus, MH-E, and VM). BBDB is fully customizable.")
(license license:gpl3+)))
(define-public emacs-aggressive-indent
(package
(name "emacs-aggressive-indent")
(version "1.8.3")
(source (origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/"
"aggressive-indent-" version ".el"))
(sha256
(base32
"0jnzccl50x0wapprgwxinp99pwwa6j43q6msn4gv437j7swy8wnj"))))
(build-system emacs-build-system)
(home-page "https://elpa.gnu.org/packages/aggressive-indent.html")
(synopsis "Minor mode to aggressively keep your code always indented")
(description
"@code{aggressive-indent-mode} is a minor mode that keeps your code
always indented. It reindents after every change, making it more reliable
than @code{electric-indent-mode}.")
(license license:gpl2+)))
(define-public emacs-ctrlf
(package
(name "emacs-ctrlf")
(version "1.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/raxod502/ctrlf.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "10gnhafas54zj3z9173h1g7b519ac4i26afclmw3w1pk6qyyb03z"))))
(build-system emacs-build-system)
(home-page "https://github.com/raxod502/ctrlf/")
(synopsis "Single-buffer text search in Emacs")
(description "CTRLF (pronounced @emph{control F}) is an intuitive and
efficient solution for single-buffer text search in Emacs, replacing packages
such as Isearch, Swiper, and helm-swoop. It takes inspiration from the
widely-adopted and battle-tested @samp{Ctrl+F} interfaces in programs such as
web browsers, but follows the flow and keybindings of Isearch.")
(license license:expat)))
(define-public emacs-dhall-mode
;; There is no proper release. The base version is extracted from the
;; "Version" keyword in the main file.
(let ((revision "0")
(commit "ef4d33debe224c6ba37e51a29b9dc8b74f20f1c2"))
(package
(name "emacs-dhall-mode")
(version (git-version "0.1.3" revision commit))
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/psibi/dhall-mode")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1232y2k4l3bsz90pgis78zxmrw7jv09dfaip21yc1w4vpxfyr384"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-reformatter" ,emacs-reformatter)))
(home-page "https://github.com/psibi/dhall-mode")
(synopsis "Major mode for working with Dhall configuration language")
(description
"Dhall-mode provides an Emacs Major mode for working with the Dhall
configuration language. It features:
@itemize
@item Syntax highlighting
@item Multiline support for String
@item Basic indentation, commenting
@item Automatic formatting on save using dhall-format.
@item Error highlighting.
@end itemize")
(license license:gpl3+))))
(define-public emacs-link-hint
;; Last release was in 2015.
(let ((commit "d74a483652486260c052941fedeadddb1ea71f88")
(revision "1"))
(package
(name "emacs-link-hint")
(version (git-version "0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/noctuid/link-hint.el")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32
"0dghxd165fbds6czy9bfwpid3i4irgp3q08n9mg57sfifi0cmij0"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-avy" ,emacs-avy)))
(home-page "https://github.com/noctuid/link-hint.el")
(synopsis "Vimperator-style link-hinting in Emacs")
(description "This package provides commands for visiting and acting on
links.")
(license license:gpl3+))))
(define-public emacs-ag
(package
(name "emacs-ag")
(version "0.48")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Wilfred/ag.el.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"1p918y24vcn2pdliaymd210xp9fvhd4a1srqbv2lfiqrh59yjidx"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'install 'make-info
(lambda _
(with-directory-excursion "docs"
(invoke "make" "info"))))
(add-after 'install 'install-info
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(info (string-append out "/share/info")))
(install-file "docs/_build/texinfo/agel.info" info)
#t))))))
(native-inputs
`(("python-sphinx" ,python-sphinx)
("texinfo" ,texinfo)))
(propagated-inputs
`(("dash" ,emacs-dash)
("s" ,emacs-s)
;; We need to use 'ag' as the executable on remote systems.
("the-silver-searcher" ,the-silver-searcher)))
(home-page "https://github.com/Wilfred/ag.el")
(synopsis "Front-end for ag (the-silver-searcher) for Emacs")
(description "This package provides the ability to use the silver
searcher, a code searching tool, sometimes abbreviated to @code{ag}. Features
include version control system awareness, use of Perl compatible regular
expressions, editing the search results directly and searching file names
rather than the contents of files.")
(license license:gpl3+)))
(define-public emacs-async
(package
(name "emacs-async")
(home-page "https://github.com/jwiegley/emacs-async")
(version "1.9.4")
(source (origin
(method git-fetch)
(uri (git-reference
(url home-page)
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0hhpyxb3d531jb2f3wvzx25183f0anm8nxv6mh0p825q2gkm6ly7"))))
(build-system emacs-build-system)
(synopsis "Asynchronous processing in Emacs")
(description
"This package provides the ability to call asynchronous functions and
processes. For example, it can be used to run dired commands (for copying,
moving, etc.) asynchronously using @code{dired-async-mode}. Also it is used
as a library for other Emacs packages.")
(license license:gpl3+)))
(define-public emacs-auctex
(package
(name "emacs-auctex")
(version "12.2.2")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/auctex-"
version ".tar"))
(sha256
(base32 "1map25xn7r28aldhcz9n8pbfk2l3gvnxx8hgih3ax8hyvnfi6brh"))))
(build-system emacs-build-system)
;; We use 'emacs' because AUCTeX requires dbus at compile time
;; ('emacs-minimal' does not provide dbus).
(arguments
`(#:emacs ,emacs
#:include '("\\.el$" "^images/" "^latex/" "\\.info$")
#:exclude '("^tests/" "^latex/README")
#:phases
(modify-phases %standard-phases
(add-after 'install 'install-doc
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(etc-dir (string-append out "/share/" ,name "/"
,version "/etc")))
(with-directory-excursion "doc"
(setenv "HOME" (getenv "TMPDIR")) ; for mktextfm
(invoke "pdftex" "tex-ref")
(install-file "tex-ref.pdf" (string-append etc-dir
"/refcards")))
#t))))))
(native-inputs
`(("perl" ,perl)))
(inputs
`(("texlive" ,(texlive-union (list texlive-amsfonts)))))
(home-page "https://www.gnu.org/software/auctex/")
(synopsis "Integrated environment for TeX")
(description
"AUCTeX is a comprehensive customizable integrated environment for
writing input files for TeX, LaTeX, ConTeXt, Texinfo, and docTeX using Emacs
or XEmacs.")
(license license:gpl3+)))
(define-public emacs-autothemer
(package
(name "emacs-autothemer")
(version "0.2.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/sebastiansturm/autothemer.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0cd2pqh6k32sjidkcd8682y4l6mx52xw4a05f38kk8nsrk28m74k"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-dash" ,emacs-dash)))
(home-page "https://github.com/sebastiansturm/autothemer")
(synopsis "Conveniently create Emacs themes")
(description
"Autothemer provides a thin layer on top of @code{deftheme} and
@code{custom-theme-set-faces} that creates a new custom color theme, based on
a set of simplified face specifications and a user-supplied color palette")
(license license:gpl3+)))
(define-public emacs-howm
(package
(name "emacs-howm")
(version "1.4.5")
(source
(origin
(method url-fetch)
(uri (string-append "https://howm.sourceforge.jp/a/howm-"
version ".tar.gz"))
(sha256
(base32 "1kvr5pxpc9rwhkza9025mdi0wvh0f0rpawl21rzirjk1x10903yi"))))
(build-system gnu-build-system)
(native-inputs
`(("emacs" ,emacs-minimal)))
(arguments
`(#:configure-flags
(list (string-append "--with-howmdir=" %output
"/share/emacs/site-lisp/"))
#:modules ((guix build gnu-build-system)
((guix build emacs-build-system) #:prefix emacs:)
(guix build utils))
#:imported-modules (,@%gnu-build-system-modules
(guix build emacs-build-system)
(guix build emacs-utils))
#:phases
(modify-phases %standard-phases
(add-after 'install 'make-autoloads
(assoc-ref emacs:%standard-phases 'make-autoloads)))))
(home-page "https://howm.osdn.jp/")
(synopsis "Note-taking tool for Emacs")
(description "Howm is a note-taking tool for Emacs. Like
code@{emacs-wiki.el}, it facilitates using hyperlinks and doing full-text
searches. Unlike code@{emacs-wiki.el}, it can be combined with any format.")
(license license:gpl1+)))
(define-public emacs-calfw
(package
(name "emacs-calfw")
(version "1.6")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/kiwanami/emacs-calfw.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0r42cagvmvvib76kd15nd9ix55ys6i549vxnls4z16s864695zpa"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-howm" ,emacs-howm)))
(home-page "https://github.com/kiwanami/emacs-calfw/")
(synopsis "Calendar framework for Emacs")
(description
"This package displays a calendar view with various schedule data in the
Emacs buffer.")
(license license:gpl3+)))
(define-public emacs-caps-lock
(package
(name "emacs-caps-lock")
(version "1.0")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/"
"caps-lock-" version ".el"))
(sha256
(base32 "1i4hwam81p4dr0bk8257fkiz4xmv6knkjxj7a00fa35kgx5blpva"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/caps-lock.html")
(synopsis "Caps Lock as a minor mode")
(description
"This package provides a minor mode to emulate the behavior of a Caps
Lock key.")
(license license:gpl3+)))
(define-public emacs-chronometrist
(package
(name "emacs-chronometrist")
(version "0.4.3")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://framagit.org/contrapunctus/chronometrist.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1ljjqzghcap4admv0hvw6asm148b80mfgjgxjjcw6qc95fkjjjlr"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-dash" ,emacs-dash)
("emacs-s" ,emacs-s)))
(home-page "https://framagit.org/contrapunctus/chronometrist")
(synopsis "Time tracker for Emacs")
(description "Chronometrist is a time tracker in Emacs, largely modelled
after the Android application, @emph{A Time Tracker}.
Its features are:
@itemize
@item Simple and efficient to use,
@item Displays useful information about your time usage,
@item Support for both mouse and keyboard,
@item Human errors in tracking are easily fixed by editing a plain text file,
@item Hooks to let you perform arbitrary actions when starting/stopping tasks.
@end itemize")
;; Software is dual-licensed.
(license (list license:unlicense license:wtfpl2))))
(define-public emacs-direnv
(package
(name "emacs-direnv")
(version "2.0.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/wbolster/emacs-direnv.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"005ibyzsx1fdyrl5iyhqpb1bg83mphzahq7zvw58x00syyqi2z49"))))
(build-system emacs-build-system)
(propagated-inputs
`(("dash" ,emacs-dash)
("with-editor" ,emacs-with-editor)))
(home-page "https://github.com/wbolster/emacs-direnv")
(synopsis "Direnv integration for Emacs")
(description
"This package provides support for invoking direnv to get the environment
for the current file and updating the environment within Emacs to match.
Direnv can be invoked manually, and a global minor mode is included that will
update the environment when the active buffer changes.
Using emacs-direnv means that programs started from Emacs will use the
environment set through Direnv.")
(license license:gpl3+)))
(define-public emacs-elf-mode
(package
(name "emacs-elf-mode")
(version "0.1.0")
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/abo-abo/elf-mode")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0cbvjbk2893ag1iy8ggixpirfiyhssm7fii96hb9jqdz874cdl0k"))))
(build-system emacs-build-system)
(home-page "https://github.com/abo-abo/elf-mode")
(synopsis "Show symbol list when opening a binary file in Emacs")
(description "This Emacs package provides a command showing the symbols
that the binary uses instead of the actual binary contents.")
(license license:gpl3+)))
(define-public emacs-form-feed
(package
(name "emacs-form-feed")
(version "0.2.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/wasamasa/form-feed.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "171jna631b2iqcimfsik9c66gii8nc0zdb58m077w00rn7rcxbh2"))))
(build-system emacs-build-system)
(home-page "https://github.com/wasamasa/form-feed")
(synopsis "Display ^L glyphs as horizontal lines")
(description
"This package provides a minor mode @code{form-feed-mode} to display page
delimiters which usually appear as ^L glyphs on a single line as horizontal
lines spanning the entire window. The minor mode is suitable for inclusion
into mode hooks and is intended to be used that way.")
(license license:gpl3+)))
(define-public emacs-ggtags
(package
(name "emacs-ggtags")
(version "0.8.13")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/ggtags-"
version ".el"))
(sha256
(base32
"1qa7lcrcmf76sf6dy8sxbg4adq7rg59fm0n5848w3qxgsr0h45fg"))))
(build-system emacs-build-system)
(inputs
`(("global" ,global)))
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'configure
(lambda* (#:key inputs #:allow-other-keys)
(chmod "ggtags.el" #o644)
(emacs-substitute-variables "ggtags.el"
("ggtags-executable-directory"
(string-append (assoc-ref inputs "global") "/bin")))
#t)))))
(home-page "https://github.com/leoliu/ggtags")
(synopsis "Frontend to the GNU Global source code tagging system")
(description "@code{ggtags} provides a frontend to the GNU Global source
code tagging system.
Features:
@itemize
@item Build on @code{compile.el} for asynchronicity and its large feature-set.
@item Automatically update Global's tag files when needed with tuning for
large source trees.
@item Intuitive navigation among multiple matches with mode-line display of
current match, total matches and exit status.
@item Read tag with completion.
@item Show definition at point.
@item Jump to #include files.
@item Support search history and saving a search to register/bookmark.
@item Query replace.
@item Manage Global's environment variables on a per-project basis.
@item Highlight (definition) tag at point.
@item Abbreviated display of file names.
@item Support all Global search backends: @code{grep}, @code{idutils}, etc.
@item Support exuberant ctags @url{http://ctags.sourceforge.net/} and
@code{pygments} backend.
@item Support all Global's output formats: @code{grep}, @code{ctags-x},
@code{cscope} etc.
@item Support projects on remote hosts (e.g. via @code{tramp}).
@item Support eldoc.
@item Search @code{GTAGSLIBPATH} for references and symbols.
@end itemize\n")
(license license:gpl3+)))
(define-public emacs-go-mode
(package
(name "emacs-go-mode")
(version "1.5.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/dominikh/go-mode.el.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1nd2h50yb0493wvf1h7fzplq45rmqn2w7kxpgnlxzhkvq99v8vzf"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'make-writable
(lambda _
(for-each make-file-writable (find-files "." "\\.el$"))
#t)))))
(home-page "https://github.com/dominikh/go-mode.el")
(synopsis "Go mode for Emacs")
(description
"This package provides go-mode, an Emacs mode for working with software
written in the Go programming language.")
(license license:bsd-3)))
(define-public emacs-google-maps
(package
(name "emacs-google-maps")
(version "1.0.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jd/google-maps.el.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"183igr5lp20zcqi7rc01fk76sfxdhksd74i11v16gdsifdkjimd0"))))
(build-system emacs-build-system)
(home-page "https://github.com/jd/google-maps.el")
(synopsis "Access Google Maps from Emacs")
(description "The @code{google-maps} package displays Google
Maps directly inside Emacs.")
(license license:gpl3+)))
(define-public emacs-graphviz-dot-mode
(package
(name "emacs-graphviz-dot-mode")
(version "0.4.2")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/ppareit/graphviz-dot-mode.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "1v1p85wk73nfsvv66qf90flgf9dqhmv15z1r7q4zmc4ifklqn08m"))))
(build-system emacs-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-before 'install 'make-info
(lambda* (#:key inputs #:allow-other-keys)
(with-directory-excursion "texinfo"
(substitute* "Makefile"
(("\\/usr\\/bin\\/gzip")
(string-append (assoc-ref inputs "gzip") "/bin/gzip")))
(invoke "make"
"clean"
"info"
(string-append "TEXINFODIR="
(assoc-ref inputs "texinfo")
"/bin")))))
(add-after 'install 'install-info
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(info (string-append out "/share/info")))
(install-file "texinfo/graphviz-dot-mode.info.gz" info)
#t))))))
(native-inputs
`(("gzip" ,gzip)
("texinfo" ,texinfo)))
(propagated-inputs
`(("emacs-company" ,emacs-company)))
(home-page "http://ppareit.github.com/graphviz-dot-mode")
(synopsis "Major mode for editing Graphviz DOT files")
(description
"This Emacs package helps you to create @file{.dot} or @file{.gv} files
using the DOT syntax, and use Graphviz to convert these files to diagrams.")
(license license:gpl2+)))
(define-public emacs-imenu-list
(package
(name "emacs-imenu-list")
(version "0.8")
(source
(origin
(method git-fetch)
(uri
(git-reference
(url "https://github.com/bmag/imenu-list")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32 "13xh9bdl3k6ccfq83wjmkpi4269qahv4davki4wq18dr4amrzhlx"))))
(build-system emacs-build-system)
(home-page "https://github.com/bmag/imenu-list")
(synopsis
"Automatically tracks the current buffer's imenu entries")
(description
"This Emacs minor mode creates an automatically updated buffer called
@code{*Ilist*} that is populated with the current buffer's imenu entries.
This buffer is typically shown as a sidebar (Emacs vertically splits the
window).")
(license license:gpl3+)))
(define-public emacs-mmm-mode
(package
(name "emacs-mmm-mode")
(version "0.5.7")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/purcell/mmm-mode.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"0lxd55yhz0ag7v1ydff55bg4h8snq5lbk8cjwxqpyq6gh4v7md1h"))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("emacs" ,emacs-minimal)
("texinfo" ,texinfo-5))) ;fails to build with Texinfo 6.7
(home-page "https://github.com/purcell/mmm-mode")
(synopsis "Allow multiple major modes in an Emacs buffer")
(description
"MMM Mode is a minor mode that allows multiple major modes to coexist in a
single buffer.")
(license license:gpl3+)))
(define-public emacs-mmt
(package
(name "emacs-mmt")
(version "0.2.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/mrkkrp/mmt.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "13vbfc5597v0gd87qyhn10f93nb477vjpg3jlpphbax9fvkf4gav"))))
(build-system emacs-build-system)
(home-page "https://github.com/mrkkrp/mmt")
(synopsis "Classic tools to write Emacs Lisp macros")
(description "Emacs MMT is a package that contains classic tools for Emacs
Lisp developers who want to write macros with convenience.")
(license license:gpl3+)))
(define-public emacs-tablist
(package
(name "emacs-tablist")
(version "1.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/politza/tablist.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0pzsdg0rm59daw34ppss79cg05z9wnr8nkmdcc48nkd0p69ip2yy"))))
(build-system emacs-build-system)
(home-page "https://github.com/politza/tablist")
(synopsis "Extension for @code{tabulated-list-mode}")
(description "Tablist is the Emacs package that provides several
additional features to @code{tabulated-list-mode}: it adds marks,
filters, new key bindings and faces. It can be enabled by
@code{tablist-mode} or @code{tablist-minor-mode} commands.")
(license license:gpl3+)))
(define-public emacs-djvu
(package
(name "emacs-djvu")
(version "1.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/"
"djvu-" version ".el"))
(sha256
(base32 "0njgyx09q225hliacsnjk8wallg5i6xkz6bj501pb05nwqfbvfk7"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/djvu.html")
(synopsis "Edit and view Djvu files via djvused")
(description
"This package is a front end for the command-line program djvused from
DjVuLibre, see @url{http://djvu.sourceforge.net/}. It assumes you have the
programs @command{djvused}, @command{djview}, @command{ddjvu}, and
@command{djvm} installed.")
(license license:gpl3+)))
(define-public emacs-pabbrev
(package
(name "emacs-pabbrev")
(version "4.2.1")
(source
(origin
(method url-fetch)
(uri (string-append "https://elpa.gnu.org/packages/"
"pabbrev-" version ".el"))
(sha256
(base32 "19v5adk61y8fpigw7k6wz6dj79jwr450hnbi7fj0jvb21cvjmfxh"))))
(build-system emacs-build-system)
(home-page "http://elpa.gnu.org/packages/pabbrev.html")
(synopsis "Predictive abbreviation expansion")
(description
"The code provides a abbreviation expansion for Emacs. It is
fairly similar to Dabbrev expansion, which works based on the contents
of the current buffer (or other buffers).
Predictive abbreviation expansion works based on the previously
written text. Unlike dynamic abbreviation, the text is analysed
during idle time, while Emacs is doing nothing else.")
(license license:gpl3+)))
(define-public emacs-pdf-tools
(package
(name "emacs-pdf-tools")
(version "0.90")
(home-page "https://github.com/politza/pdf-tools")
(source (origin
(method git-fetch)
(uri (git-reference (url home-page)
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0iv2g5kd14zk3r5dzdw7b7hk4b5w7qpbilcqkja46jgxbb6xnpl9"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; there are no tests
#:modules ((guix build gnu-build-system)
((guix build emacs-build-system) #:prefix emacs:)
(guix build utils)
(guix build emacs-utils))
#:imported-modules (,@%gnu-build-system-modules
(guix build emacs-build-system)
(guix build emacs-utils))
#:phases
(modify-phases %standard-phases
;; Build server side using 'gnu-build-system'.
(add-after 'unpack 'enter-server-dir
(lambda _ (chdir "server") #t))
(add-after 'enter-server-dir 'autogen
(lambda _
(invoke "bash" "autogen.sh")))
;; Build emacs side using 'emacs-build-system'.
(add-after 'compress-documentation 'enter-lisp-dir
(lambda _ (chdir "../lisp") #t))
(add-after 'enter-lisp-dir 'emacs-patch-variables
(lambda* (#:key outputs #:allow-other-keys)
(for-each make-file-writable (find-files "."))
;; Set path to epdfinfo program.
(emacs-substitute-variables "pdf-info.el"
("pdf-info-epdfinfo-program"
(string-append (assoc-ref outputs "out")
"/bin/epdfinfo")))
;; Set 'pdf-tools-handle-upgrades' to nil to avoid "auto
;; upgrading" that pdf-tools tries to perform.
(emacs-substitute-variables "pdf-tools.el"
("pdf-tools-handle-upgrades" '()))))
(add-after 'emacs-patch-variables 'emacs-add-source-to-load-path
(assoc-ref emacs:%standard-phases 'add-source-to-load-path))
(add-after 'emacs-add-source-to-load-path 'emacs-install
(assoc-ref emacs:%standard-phases 'install))
(add-after 'emacs-install 'emacs-build
(assoc-ref emacs:%standard-phases 'build))
(add-after 'emacs-install 'emacs-make-autoloads
(assoc-ref emacs:%standard-phases 'make-autoloads)))))
(native-inputs `(("autoconf" ,autoconf)
("automake" ,automake)
("pkg-config" ,pkg-config)
("emacs" ,emacs-minimal)))
(inputs `(("poppler" ,poppler)
("cairo" ,cairo)
("glib" ,glib)
("libpng" ,libpng)
("zlib" ,zlib)))
(propagated-inputs `(("tablist" ,emacs-tablist)))
(synopsis "Emacs support library for PDF files")
(description
"PDF Tools is, among other things, a replacement of DocView for PDF
files. The key difference is that pages are not pre-rendered by
e.g. ghostscript and stored in the file-system, but rather created on-demand
and stored in memory.")
(license license:gpl3+)))
(define-public emacs-dash
(package
(name "emacs-dash")
(version "2.17.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magnars/dash.el.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32
"153f55dqkhs8w2xlf6b88wp5vlkap7h8vjd9wxh4jp2ram5g4l1n"))))
(build-system emacs-build-system)
(arguments
`(#:tests? #t
#:test-command '("./run-tests.sh")))
(home-page "https://github.com/magnars/dash.el")
(synopsis "Modern list library for Emacs")
(description "This package provides a modern list API library for Emacs.")
(license license:gpl3+)))
(define-public emacs-bui
(package
(name "emacs-bui")
(version "1.2.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://notabug.org/alezost/emacs-bui.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0sszdl4kvqbihdh8d7mybpp0d8yw2p3gyiipjcxz9xhvvmw3ww4x"))))
(build-system emacs-build-system)
(propagated-inputs
`(("dash" ,emacs-dash)))
(home-page "https://notabug.org/alezost/emacs-bui")
(synopsis "Buffer interface library for Emacs")
(description
"BUI (Buffer User Interface) is a library for making @code{list} and
@code{info} interfaces to display an arbitrary data of the same
type, for example: packages, buffers, files, etc.")
(license license:gpl3+)))
(define-public emacs-guix
(package
(name "emacs-guix")
(version "0.5.2")
(source (origin
(method url-fetch)
(uri (string-append "https://emacs-guix.gitlab.io/website/"
"releases/emacs-guix-" version ".tar.gz"))
(sha256
(base32
"0yz64c0z4ygi2k4af18k4r1ncgys18jb8icywkp2g5pgmpn5l7ps"))
(modules '((guix build utils)))
(snippet
'(begin
;; Add support for Guile 3.0. Remove for versions > 0.5.2.
(substitute* "configure"
(("\"2\\.2 2\\.0\"")
"\"3.0 2.2 2.0\""))
#t))))
(build-system gnu-build-system)
(native-inputs
`(("pkg-config" ,pkg-config)
("emacs" ,emacs-minimal)))
(inputs
`(("guile" ,guile-3.0)
("guix" ,guix)))
(propagated-inputs
`(("geiser" ,emacs-geiser)
("guile-gcrypt" ,guile-gcrypt)
("dash" ,emacs-dash)
("bui" ,emacs-bui)
("edit-indirect" ,emacs-edit-indirect)
("magit-popup" ,emacs-magit-popup)))
(home-page "https://emacs-guix.gitlab.io/website/")
(synopsis "Emacs interface for GNU Guix")
(description
"Emacs-Guix provides a visual interface, tools and features for the GNU
Guix package manager. Particularly, it allows you to do various package
management tasks from Emacs. To begin with, run @code{M-x guix-about} or
@code{M-x guix-help} command.")
(license license:gpl3+)))
(define-public emacs-build-farm
(package
(name "emacs-build-farm")
(version "0.2.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://notabug.org/alezost/emacs-build-farm.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0i0bwbav5861j2y15j9nd5m9rdqg9q97zgcbld8pivr9nyxy63lz"))))
(build-system emacs-build-system)
(propagated-inputs
`(("bui" ,emacs-bui)
("magit-popup" ,emacs-magit-popup)))
(home-page "https://notabug.org/alezost/emacs-build-farm")
(synopsis "Emacs interface for Hydra and Cuirass build farms")
(description
"This Emacs package provides an interface for Hydra and
Cuirass (build farms used by Nix and Guix). It allows you to look at
various data related to the build farm projects, jobsets, builds and
evaluations. The entry point is @code{M-x build-farm} command.")
(license license:gpl3+)))
(define-public emacs-d-mode
(package
(name "emacs-d-mode")
(version "2.0.10")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/Emacs-D-Mode-Maintainers/Emacs-D-Mode.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "0915kb9jcaixgindhj85fmykkhvj31ckp1yg6746fznwdgfrlifv"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-undercover" ,emacs-undercover)))
(home-page "https://github.com/Emacs-D-Mode-Maintainers/Emacs-D-Mode")
(synopsis "Emacs major mode for editing D code")
(description "This package provides an Emacs major mode for highlighting
code written in the D programming language. This mode is currently known to
work with Emacs 24 and 25.")
(license license:gpl2+)))
(define-public emacs-extempore-mode
;; Use the latest commit at time of packaging. There are no releases or tags.
(let ((commit "09518ae6650d7be33a4633a4c0f31b7130d04c6e")
(revision "1"))
(package
(name "emacs-extempore-mode")
(version (git-version "0.0.0" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/extemporelang/extempore-emacs-mode.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0hfza9lzdsz94gxhmzyp9fwviscv19rmnjgd0q613faayn11sjsp"))))
(build-system emacs-build-system)
(home-page "https://github.com/extemporelang/extempore-emacs-mode")
(synopsis "Emacs major mode for Extempore source files")
(description
"This package provides a major mode for editing Extempore code. It can
create an Extempore REPL, connect the current @code{extempore-mode} buffer to a
running Extempore process, and more.")
(license license:bsd-2))))
(define-public emacs-kakoune
;; Package has no release. Version is extracted from "Version:" keyword in
;; main file.
(let ((commit "d73d14e69ea38076af50cc69f846808383ff539d")
(revision "0"))
(package
(name "emacs-kakoune")
(version (git-version "0.1" revision commit))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/jmorag/kakoune.el.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "0nk6jdy1y5mc3ryd0smiqghrk6iv34d5grc7f7migmshlbq0np92"))))
(build-system emacs-build-system)
(propagated-inputs
`(("emacs-expand-region" ,emacs-expand-region)
("emacs-multiple-cursors" ,emacs-multiple-cursors)
("emacs-ryo-modal" ,emacs-ryo-modal)))
(home-page "https://github.com/jmorag/kakoune.el")
(synopsis "Emacs simple simulation, but not emulation, of Kakoune")
(description "This package provides many, but not all of the editing
primitives in the Kakoune editor. Unlike Evil mode for Vim, this is a very
shallow emulation, which seeks to do as little work as possible, leveraging
Emacs native editing commmands and the work of other packages wherever
possible.")
(license license:expat))))
(define-public emacs-keyfreq
(package
(name "emacs-keyfreq")
(version "20160516.716")
(source
(origin
(method url-fetch)
(uri (string-append "http://melpa.org/packages/keyfreq-"
version ".el"))
(sha256
(base32
"008hd7d06qskc3mx0bbdgpgy2pwxr8185fzlyqf9qjg49y74p6g8"))))
(build-system emacs-build-system)
(home-page "https://github.com/dacap/keyfreq")
(synopsis "Track Emacs command frequencies")
(description "@code{emacs-keyfeq} tracks and shows how many times you used
a command.")
(license license:gpl3+)))
(define-public emacs-olivetti
(package
(name "emacs-olivetti")
(version "1.8.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/rnkn/olivetti.git")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1fbj9s49y5yx5i429awv9rybacfgvhwp7v5h0zw67bpgx4qs44pa"))))
(build-system emacs-build-system)
(home-page "https://github.com/rnkn/olivetti")
(synopsis "Emacs minor mode for a nice writing environment")
(description "This package provides an Emacs minor mode that puts writing
in the center.")
(license license:gpl3+)))
(define-public emacs-undo-tree
(package
(name "emacs-undo-tree")
(version "0.7.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "http://dr-qubit.org/git/undo-tree.git")
(commit (string-append "release/" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1nr0149y2nvrxj56gc12jqnfl01g6z9ypfsgl6pfg85cw73hnggk"))))
(build-system emacs-build-system)
(home-page "http://www.dr-qubit.org/emacs.php")
(synopsis "Treat undo history as a tree")
(description "Tree-like interface to Emacs undo system, providing
graphical tree presentation of all previous states of buffer that
allows easily move between them.")
(license license:gpl3+)))
(define-public emacs-s
(package
(name "emacs-s")
(version "1.12.0")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/magnars/s.el.git")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1g8mqd13llj007al4nlxxx4z2lcsg3wk970mgjn0avwrhjjgdmmv"))))
(build-system emacs-build-system)
(arguments
`(#:tests? #t
<