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.
 
 
 
 
 
 

147 lines
5.7 KiB

  1. ;;; GNU Guix --- Functional package management for GNU
  2. ;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org>
  3. ;;;
  4. ;;; This file is part of GNU Guix.
  5. ;;;
  6. ;;; GNU Guix is free software; you can redistribute it and/or modify it
  7. ;;; under the terms of the GNU General Public License as published by
  8. ;;; the Free Software Foundation; either version 3 of the License, or (at
  9. ;;; your option) any later version.
  10. ;;;
  11. ;;; GNU Guix is distributed in the hope that it will be useful, but
  12. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  14. ;;; GNU General Public License for more details.
  15. ;;;
  16. ;;; You should have received a copy of the GNU General Public License
  17. ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
  18. (define-module (gnu packages emacs)
  19. #:use-module (guix licenses)
  20. #:use-module (guix packages)
  21. #:use-module (guix download)
  22. #:use-module (guix build-system gnu)
  23. #:use-module (gnu packages)
  24. #:use-module (gnu packages ncurses)
  25. #:use-module (gnu packages texinfo)
  26. #:use-module (gnu packages gnutls)
  27. #:use-module (gnu packages pkg-config)
  28. #:use-module (gnu packages guile)
  29. #:use-module (gnu packages xorg)
  30. #:use-module (gnu packages lesstif)
  31. #:use-module (gnu packages libjpeg)
  32. #:use-module (gnu packages libtiff)
  33. #:use-module (gnu packages libpng)
  34. #:use-module ((gnu packages compression)
  35. #:renamer (symbol-prefix-proc 'compression:))
  36. #:use-module (gnu packages xml)
  37. #:use-module (gnu packages glib))
  38. (define-public emacs
  39. (package
  40. (name "emacs")
  41. (version "24.3")
  42. (source (origin
  43. (method url-fetch)
  44. (uri (string-append "mirror://gnu/emacs/emacs-"
  45. version ".tar.xz"))
  46. (sha256
  47. (base32
  48. "1385qzs3bsa52s5rcncbrkxlydkw0ajzrvfxgv8rws5fx512kakh"))))
  49. (build-system gnu-build-system)
  50. (arguments
  51. '(#:configure-flags
  52. (list (string-append "--with-crt-dir=" (assoc-ref %build-inputs "libc")
  53. "/lib")
  54. "--with-gif=no") ; XXX: add libungif
  55. #:patches (list (assoc-ref %build-inputs "patch/epaths"))
  56. #:phases (alist-cons-before
  57. 'configure 'fix-/bin/pwd
  58. (lambda _
  59. ;; Use `pwd', not `/bin/pwd'.
  60. (substitute* (find-files "." "^Makefile\\.in$")
  61. (("/bin/pwd")
  62. "pwd")))
  63. %standard-phases)))
  64. (inputs
  65. `(("pkg-config" ,pkg-config)
  66. ("gnutls" ,gnutls)
  67. ("texinfo" ,texinfo)
  68. ("ncurses" ,ncurses)
  69. ;; TODO: Add the optional dependencies.
  70. ("xlibs" ,libx11)
  71. ("libXaw" ,libxaw) ; XXX: eventually replace by GTK+
  72. ;; ("gtk+" ,gtk+)
  73. ("libXft" ,libxft)
  74. ("libtiff" ,libtiff)
  75. ;; ("libungif" ,libungif)
  76. ("libjpeg" ,libjpeg-8)
  77. ;; When looking for libpng `configure' links with `-lpng -lz', so we
  78. ;; must also provide zlib as an input.
  79. ("libpng" ,libpng)
  80. ("zlib" ,compression:zlib)
  81. ("libXpm" ,libxpm)
  82. ("libxml2" ,libxml2)
  83. ("dbus" ,dbus)
  84. ("patch/epaths" ,(search-patch "emacs-configure-sh.patch"))
  85. ))
  86. (home-page "http://www.gnu.org/software/emacs/")
  87. (synopsis "The extensible, customizable, self-documenting text editor")
  88. (description
  89. "GNU Emacs is an extensible, customizable text editor—and more. At its
  90. core is an interpreter for Emacs Lisp, a dialect of the Lisp
  91. programming language with extensions to support text editing.
  92. The features of GNU Emacs include: content-sensitive editing modes,
  93. including syntax coloring, for a wide variety of file types including
  94. plain text, source code, and HTML; complete built-in documentation,
  95. including a tutorial for new users; full Unicode support for nearly all
  96. human languages and their scripts; highly customizable, using Emacs
  97. Lisp code or a graphical interface; a large number of extensions that
  98. add other functionality, including a project planner, mail and news
  99. reader, debugger interface, calendar, and more. Many of these
  100. extensions are distributed with GNU Emacs; others are available
  101. separately.")
  102. (license gpl3+)))
  103. ;;;
  104. ;;; Emacs hacking.
  105. ;;;
  106. (define-public geiser
  107. (package
  108. (name "geiser")
  109. (version "0.4")
  110. (source (origin
  111. (method url-fetch)
  112. (uri (string-append "mirror://savannah/geiser/" version
  113. "/geiser-" version ".tar.gz"))
  114. (sha256
  115. (base32 "0ds7zk9b1839l9fsqfsgrby6manvy1cf5bjniiqhxl55h0cr6ijp"))))
  116. (build-system gnu-build-system)
  117. (inputs `(("guile" ,guile-2.0)
  118. ("emacs" ,emacs)))
  119. (home-page "http://nongnu.org/geiser/")
  120. (synopsis "Collection of Emacs modes for Guile and Racket hacking")
  121. (description
  122. "Geiser is a collection of Emacs major and minor modes that
  123. conspire with one or more Scheme interpreters to keep the Lisp Machine
  124. Spirit alive. It draws inspiration (and a bit more) from environments
  125. such as Common Lisp’s Slime, Factor’s FUEL, Squeak or Emacs itself, and
  126. does its best to make Scheme hacking inside Emacs (even more) fun.
  127. Or, to be precise, what i consider fun. Geiser is thus my humble
  128. contribution to the dynamic school of expression, and a reaction against
  129. what i perceive as a derailment, in modern times, of standard Scheme
  130. towards the static camp. Because i prefer growing and healing to poking
  131. at corpses, the continuously running Scheme interpreter takes the center
  132. of the stage in Geiser. A bundle of Elisp shims orchestrates the dialog
  133. between the Scheme interpreter, Emacs and, ultimately, the schemer,
  134. giving her access to live metadata.")
  135. (license bsd-3)))