radix/packages/password-utils.scm

@@ -1,48 +0,0 @@
-(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/xfilesctl"))))
+                         (string-append #$output "/bin/xfilesthumb"))))
           (add-after 'build 'install-xsession
            (lambda _
              ;; Add a .desktop file to xsessions.
@@ -208,3 +208,5 @@ 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

@@ -1,72 +0,0 @@
-(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)))))