aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2016-05-30 11:04:47 -0400
committerDavid Thompson <dthompson2@worcester.edu>2016-05-30 11:06:49 -0400
commit02736daa8ca1be621b49b7ce282dfabf4919fa0a (patch)
tree6066da8db9e43b60e1e7c63b8ce46a8307790644
parent578b96af69057883a2a49a34dd6fe261cb2f4e5c (diff)
downloadpatches-02736daa8ca1be621b49b7ce282dfabf4919fa0a.tar
patches-02736daa8ca1be621b49b7ce282dfabf4919fa0a.tar.gz
gnu: emacs: Remove uncompressed-file-fetch.
* gnu/packages/emacs.scm (uncompressed-file-fetch): Delete. (emacs-rfcview, emacs-ffap-rfc-space, emacs-queue, emacs-spinner): Replace uncompressed-file-fetch with url-fetch.
-rw-r--r--gnu/packages/emacs.scm22
1 files changed, 4 insertions, 18 deletions
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 8e66e49e76..be397f133a 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -1423,20 +1423,6 @@ to a key in your preferred mode.")
identifiers in the MIT-Scheme documentation.")
(license license:gpl2+)))
-;;; XXX: move this procedure to an utility module
-(define* (uncompressed-file-fetch url hash-algo hash
- #:optional name
- #:key (system (%current-system))
- (guile (default-guile)))
- (mlet %store-monad ((drv (url-fetch url hash-algo hash name
- #:system system
- #:guile guile)))
- (gexp->derivation (or name (basename url))
- #~(begin
- (mkdir #$output)
- (chdir #$output)
- (copy-file #$drv (basename #$url))))))
-
(define-public emacs-constants
(package
(name "emacs-constants")
@@ -1572,7 +1558,7 @@ insertion mode. When enabled all keys are implicitly prefixed with
(version "0.13")
(home-page "http://www.loveshack.ukfsn.org/emacs")
(source (origin
- (method uncompressed-file-fetch)
+ (method url-fetch)
(uri "http://www.loveshack.ukfsn.org/emacs/rfcview.el")
(sha256
(base32
@@ -1596,7 +1582,7 @@ local directories.")
(version "12")
(home-page "http://user42.tuxfamily.org/ffap-rfc-space/index.html")
(source (origin
- (method uncompressed-file-fetch)
+ (method url-fetch)
(uri "http://download.tuxfamily.org/user42/ffap-rfc-space.el")
(sha256
(base32
@@ -1713,7 +1699,7 @@ The purpose of this library is to wrap all the quirks and hassle of
(name "emacs-queue")
(version "0.1.1")
(source (origin
- (method uncompressed-file-fetch)
+ (method url-fetch)
(uri (string-append "http://elpa.gnu.org/packages/queue-"
version ".el"))
(sha256
@@ -1756,7 +1742,7 @@ be removed from the front. This type of data structure is sometimes called an
(name "emacs-spinner")
(version "1.7.1")
(source (origin
- (method uncompressed-file-fetch)
+ (method url-fetch)
(uri (string-append "http://elpa.gnu.org/packages/spinner-"
version ".el"))
(sha256