[PATCH] Emacs Zenburn

[Catonano]

Hello,

this is my first attempt at importing a package into Guix. My first attempt ever.

It's trivial: the Zenburn theme for Emacs.

The linter claims that lines 44 and 45 are too long. I didn't choose myself to make them so long. It was the automatic identation on the Emacs Scheme mode. Did it do the wrong thing ?

It also filled my lines with tabs rather than spaces. I removed them by hand !

Comments appreciated

Thanks

From a8e28699e4cc02e6213047de1caae00edde06ccb Mon Sep 17 00:00:00 2001
From: humanitiesNerd <address@hidden>
Date: Sun, 15 May 2016 14:55:28 +0200
Subject: [PATCH] appended the package definition for the Emacs Zenburn theme
 to the gnu/packages/emacs.scm file

---
 gnu/packages/emacs.scm | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 11010b2..e3eeaf4 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -1559,3 +1559,51 @@ to recognize a name like \"RFC 1234\".  This package enhances ffap so
 that it correctly finds RFCs even when a space appears before the
 number.")
     (license license:gpl3+)))
+
+(define-public emacs-zenburn-theme
+  (package
+    (name "emacs-zenburn-theme")
+    (version "2.4")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "http://stable.melpa.org/packages/zenburn-theme-"
+             version
+             ".el"))
+       (sha256
+        (base32
+        "1a65hfkrrlm8ryr2x9zja0h1n8nzk4rnsyzjacqlv4k79yal1fxg"))))
+    (build-system trivial-build-system)
+    (inputs `(("emacs" ,emacs-no-x)))
+    (arguments
+     `(#:modules ((guix build utils)
+                  (guix build emacs-utils))
+       #:builder
+       (begin
+         (use-modules (guix build utils))
+         (use-modules (guix build emacs-utils))
+
+         (let* ((emacs    (string-append (assoc-ref %build-inputs "emacs")
+                                         "/bin/emacs"))
+                (source   (assoc-ref %build-inputs "source"))
+                (lisp-dir (string-append %output
+                                         "/share/emacs/site-lisp"))
+                (target   (string-append lisp-dir "/zenburn-theme.el")))
+           (mkdir-p lisp-dir)
+           (copy-file source target)
+           (with-directory-excursion lisp-dir
+                                     (parameterize ((%emacs emacs))
+                                                   (emacs-generate-autoloads "zenburn-theme" lisp-dir)
+                                                   (emacs-batch-eval '(byte-compile-file "zenburn-theme.el"))))))))
+
+    (home-page
+     "http://github.com/bbatsov/zenburn-emacs")
+    (synopsis
+     "Low contrast color theme for Emacs")
+    (description
+     "Port of the popular Vim theme Zenburn for Emacs 24, built on top
+of the new built-in theme support in Emacs 24.
+")
+    (license license:gpl3+)))
+
--
2.5.5