wigust: Add emacs-noflet.origin/wip-emacs-dumb-jumpwip-emacs-dumb-jump

* wigust/packages/emacs.scm (emacs-noflet): New public variable.

1 files changed, 44 insertions, 0 deletions

diff --git a/wigust/packages/emacs.scm b/wigust/packages/emacs.scm
index 79bbd15..f2cde30 100644
--- a/wigust/packages/emacs.scm
+++ b/wigust/packages/emacs.scm
@@ -226,6 +226,31 @@ editor with athena toolkit" )
      "Discover key bindings and their meaning for the current Emacs major mode ")
     (license license:gpl3+)))
 
+(define-public emacs-noflet
+  (let ((commit "7ae84dc3257637af7334101456dafe1759c6b68a"))
+    (package
+      (name "emacs-noflet")
+      (version (git-version "0.1" "1" commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/nicferrier/emacs-noflet.git")
+               (commit commit)))
+         (file-name (string-append name "-" version "-checkout"))
+         (sha256
+          (base32
+           "0g70gnmfi8n24jzfci9nrj0n9bn1qig7b8f9f325rin8h7x32ypf"))))
+      (build-system emacs-build-system)
+      (home-page
+       "https://github.com/nicferrier/emacs-noflet")
+      (synopsis "Locally override Emacs functions")
+      (description
+       "This Emacs package allows you locally override functions, in the
+manner of @code{flet}, but with access to the original function
+through the symbol @code{this-fn}.")
+      (license license:gpl3+))))
+
 (define-public emacs-dumb-jump
   (package
     (name "emacs-dumb-jump")
@@ -240,6 +265,25 @@ editor with athena toolkit" )
         (base32
          "07n0xjgpxjpf3vp9gxchkjpydyj0zm166930as0kwiwkhjlsirsf"))))
     (build-system emacs-build-system)
+    (arguments
+     '(#:phases
+       (modify-phases %standard-phases
+         ;; (add-before 'install 'pre-check
+         ;;   (lambda _
+         ;;     (substitute* "test/dumb-jump-test.el"
+         ;;       (("/usr/bin/bash") (which "sh")))
+         ;;     #t))
+         (add-before 'install 'check
+           (lambda _
+             (invoke "emacs" "--batch" "-L" "."
+                     "-l" "test/test-helper.el"
+                     "-l" "test/dumb-jump-test.el"
+                     "-f" "ert-run-tests-batch-and-exit"))))))
+    (inputs
+     `(("emacs-undercover" ,emacs-undercover)
+       ("emacs-el-mock" ,emacs-el-mock)
+       ("emacs-noflet" ,emacs-noflet)
+       ("bash" ,bash)))
     (propagated-inputs
      `(("emacs-f" ,emacs-f)
        ("emacs-s" ,emacs-s)