packages: seninha: Remove trailing package

radix/packages/password-utils.scm

@@ -0,0 +1,48 @@
+(define-module (radix packages password-utils)
+  #:use-module (gnu packages freedesktop)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages man)
+  #:use-module (gnu packages xdisorg)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module ((guix licenses)
+                #:prefix license:))
+
+(define-public tessen
+  (package
+    (name "tessen")
+    (version "2.2.3")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                    (url "https://github.com/ayushnix/tessen/")
+                    (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "0pxx3x50k1zi82vjvib94rar6sy5bz3s2amq4zyba6s1a8isqlcr"))))
+    (build-system gnu-build-system)
+    (arguments
+     (list #:tests? #f ;no tests
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'patch-wtype-path
+                 (lambda* (#:key inputs #:allow-other-keys)
+                   (substitute* "tessen"
+                     (("notify-send") (search-input-file inputs "/bin/notify-send"))
+                     (("wl-copy") (search-input-file inputs "/bin/wl-copy"))
+                     (("wtype") (search-input-file inputs "/bin/wtype"))
+                     (("xdg-open") (search-input-file inputs "/bin/xdg-open")))))
+               (delete 'configure)) ;no configure script
+           #:make-flags
+           #~(list (string-append "DESTDIR=" #$output)
+                   "PREFIX=''")))
+    (native-inputs (list scdoc))
+    (inputs (list libnotify wl-clipboard wtype xdg-utils))
+    (home-page "https://github.com/ayushnix/tessen")
+    (synopsis "Frontend for password-store and gopass")
+    (description "Tessen is a bash script that can autotype and copy data
+from password-store and gopass files.")
+    (license license:gpl2)))

radix/packages/seninha.scm

@@ -152,7 +152,7 @@ The scripts are the following.
               (copy-file "examples/xfilesthumb"
                          (string-append #$output "/bin/xfilesthumb"))
               (copy-file "examples/xfilesctl"
-                         (string-append #$output "/bin/xfilesthumb"))))
+                         (string-append #$output "/bin/xfilesctl"))))
           (add-after 'build 'install-xsession
            (lambda _
              ;; Add a .desktop file to xsessions.
@@ -208,5 +208,3 @@ The scripts are the following.
 directories, show icons for files, select files, call a command to open files,
 generate thumbnails, and call a command to run on right mouse button click.")
    (license license:expat)))
-
-fmutils

radix/packages/terminals.scm

@@ -0,0 +1,72 @@
+(define-module (radix packages terminals)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages ncurses)
+  #:use-module (gnu packages terminals)
+  #:use-module (guix build-system go)
+  #:use-module (guix gexp)
+  #:use-module (guix git-download)
+  #:use-module (guix packages)
+  #:use-module ((guix licenses)
+                #:prefix license:)
+  #:use-module (guix utils))
+
+(define-public fzf
+  (package
+    (inherit go-github-com-junegunn-fzf)
+    (name "fzf")
+    (arguments
+     (ensure-keyword-arguments
+      (package-arguments go-github-com-junegunn-fzf)
+      `(#:install-source? #f
+        #:phases
+        (modify-phases %standard-phases
+          (add-after 'install 'copy-binaries
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let ((out (assoc-ref outputs "out")))
+                (with-directory-excursion "src/github.com/junegunn/fzf"
+                  (install-file "bin/fzf-tmux"
+                                (string-append out "/bin"))))))
+          (add-after 'install 'install-doc
+            (lambda* (#:key outputs import-path #:allow-other-keys)
+              (display import-path)
+              (newline)
+              (let* ((out (assoc-ref outputs "out")))
+                (install-file
+                  (string-append "src/" import-path "/man/man1/fzf.1")
+                  (string-append out "/share/man/man1"))
+                (install-file
+                  (string-append "src/" import-path "/man/man1/fzf-tmux.1")
+                  (string-append out "/share/man/man1")))))
+          (add-after 'copy-binaries 'wrap-programs
+            (lambda* (#:key outputs inputs #:allow-other-keys)
+              (let* ((out (assoc-ref outputs "out"))
+                     (bin (string-append out "/bin"))
+                     (findutils (assoc-ref inputs "findutils"))
+                     (ncurses (assoc-ref inputs "ncurses")))
+                (wrap-program (string-append bin "/fzf")
+                  `("PATH" ":" prefix (,(string-append findutils "/bin"))))
+                (wrap-program (string-append bin "/fzf-tmux")
+                  `("PATH" ":" prefix (,(string-append ncurses "/bin")))))))
+          (add-after 'install 'install-completions
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let* ((out (assoc-ref outputs "out"))
+                     (bash-completion (string-append out "/etc/bash_completion.d"))
+                     (fish-functions
+                       (string-append out "/share/fish/vendor_functions.d"))
+                     (zsh-completion (string-append out "/share/zsh/site-functions")))
+                (with-directory-excursion "src/github.com/junegunn/fzf"
+                  (mkdir-p bash-completion)
+                  (copy-file "shell/completion.bash"
+                             (string-append bash-completion "/fzf"))
+                  (mkdir-p fish-functions)
+                  (copy-file "shell/key-bindings.fish"
+                             (string-append fish-functions "/fzf_key_bindings.fish"))
+                  (mkdir-p zsh-completion)
+                  (copy-file "shell/completion.zsh"
+                             (string-append zsh-completion "/_fzf"))))))))))
+    (inputs
+     `(,@(package-inputs go-github-com-junegunn-fzf)
+       ("bash" ,bash-minimal) ; for wrap-program
+       ("findutils" ,findutils)
+       ("ncurses" ,ncurses)))))