03/05: gnu: Add emacs-picpocket.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 1bf758767d1553594b6d7534ca8c38a2171b5afe
Author: Alex Vong <address@hidden>
Date:   Mon Sep 3 02:25:31 2018 +0800

    gnu: Add emacs-picpocket.
    
    * gnu/packages/emacs.scm (emacs-picpocket): New public variable.
    
    Signed-off-by: Ludovic Courtès <address@hidden>
---
 gnu/packages/emacs.scm | 39 ++++++++++++++++++++++++++++++++++++++-
 1 file changed, 38 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 8f0c564..957b72f 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -15,7 +15,7 @@
 ;;; Copyright © 2016, 2017 Nils Gillmann <address@hidden>
 ;;; Copyright © 2016 Alex Griffin <address@hidden>
 ;;; Copyright © 2016, 2017, 2018 Nicolas Goaziou <address@hidden>
-;;; Copyright © 2016, 2017 Alex Vong <address@hidden>
+;;; Copyright © 2016, 2017, 2018 Alex Vong <address@hidden>
 ;;; Copyright © 2016, 2017, 2018 Arun Isaac <address@hidden>
 ;;; Copyright © 2017 Christopher Baines <address@hidden>
 ;;; Copyright © 2017, 2018 Mathieu Othacehe <address@hidden>
@@ -11315,6 +11315,43 @@ e.g. the package dependencies it requires.  See 
function
 file.")
       (license license:gpl3+))))
 
+(define-public emacs-picpocket
+  (let ((version "20180610.1059") ; taken from melpa
+        (commit "ce4b6ed088384f2414af82e8e4eae5b92c2874bf"))
+    (package
+      (name "emacs-picpocket")
+      (version version)
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/johanclaesson/picpocket";)
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "15vpbcv83mc4j1pvrk7xic0klh2bl9gzg2xxs7c2lmnix52hy8mv"))))
+      (build-system emacs-build-system)
+      (arguments ; needed for running tests
+       `(#:tests? #t
+         #:emacs ,emacs
+         #:test-command '("emacs" "--batch"
+                          "-l" "picpocket-test.el"
+                          "-f" "ert-run-tests-batch-and-exit")))
+      (home-page "https://github.com/johanclaesson/picpocket";)
+      (synopsis "Image viewer for Emacs")
+      (description
+       "Picpocket is an image viewer for GNU Emacs.  It has commands for:
+
address@hidden
address@hidden File operations on the picture files (delete, move, copy, 
hardlink).
address@hidden Scale and rotate the picture.
address@hidden Associate pictures with tags which are saved to disk.
address@hidden Filter pictures according to tags.
address@hidden Customizing keystrokes for quick tagging and file operations.
address@hidden Undo and browse history of undoable commands.
address@hidden itemize")
+      (license license:gpl3+))))
+
 (define-public emacs-wgrep-helm
   ;; `emacs-wgrep-helm' was mistakenly added.
   (deprecated-package "emacs-wgrep-helm" emacs-wgrep))