Subject: [PATCH] gnu: Add emacs-picpocket.
From: Alex Vong <[email-masked]>
To: [email-masked]
Cc: [email-masked]
Date: Mon, 03 Sep 2018 02:34:49 +0800
List-Id: <debbugs-submit.debbugs.gnu.org>

Hello guix,

This patch adds picpocket, which is an emacs package for displaying
pictures. It supports full-screen and rotation, which is better than the
vanilla image-mode.

From c126ff68c5f881d506226e2a260b96fa6d4635ea Mon Sep 17 00:00:00 2001
From: Alex Vong <[email-masked]>
Date: Mon, 3 Sep 2018 02:25:31 +0800
Subject: [PATCH] gnu: Add emacs-picpocket.

* gnu/packages/emacs.scm (emacs-picpocket): New public variable.
---
 gnu/packages/emacs.scm | 40 +++++++++++++++++++++++++++++++++++++++-
 1 file changed, 39 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index 08554280c..a3c695975 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -15,7 +15,7 @@
 ;;; Copyright © 2016, 2017 Nils Gillmann <[email-masked]>
 ;;; Copyright © 2016 Alex Griffin <[email-masked]>
 ;;; Copyright © 2016, 2017, 2018 Nicolas Goaziou <[email-masked]>
-;;; Copyright © 2016, 2017 Alex Vong <[email-masked]>
+;;; Copyright © 2016, 2017, 2018 Alex Vong <[email-masked]>
 ;;; Copyright © 2016, 2017, 2018 Arun Isaac <[email-masked]>
 ;;; Copyright © 2017 Christopher Baines <[email-masked]>
 ;;; Copyright © 2017, 2018 Mathieu Othacehe <[email-masked]>
@@ -11314,6 +11314,44 @@ 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 which requires GNU Emacs 24.4+
+compiled with ImageMagick.  It have commands for:
+
+@itemize
+@item File operations on the picture files (delete, move, copy, hardlink).
+@item Scale and rotate the picture.
+@item Associate pictures with tags which are saved to disk.
+@item Filter pictures according to tags.
+@item Customizing keystrokes for quick tagging and file operations.
+@item Undo and browse history of undoable commands.
+@end itemize")
+      (license license:gpl3+))))
+
 (define-public emacs-wgrep-helm
   ;; `emacs-wgrep-helm' was mistakenly added.
   (deprecated-package "emacs-wgrep-helm" emacs-wgrep))
-- 
2.18.0

Cheers,
Alex