home-environments: radio: Declare fish-autopair, fish-bang-bang and fish-functional plugins

impermanence
Luis Guilherme Coelho 2024-07-05 14:47:15 -03:00
parent e8144c9f9e
commit bbe7086d3e
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 8 additions and 21 deletions

View File

@ -18,6 +18,7 @@
#:use-module (gnu packages curl) #:use-module (gnu packages curl)
#|D|# #:use-module (gnu packages databases) #|D|# #:use-module (gnu packages databases)
#|F|# #:use-module (gnu packages file) #|F|# #:use-module (gnu packages file)
#|F|# #:use-module (gnu packages file-systems)
#:use-module (gnu packages fonts) #:use-module (gnu packages fonts)
#:use-module (gnu packages freedesktop) #:use-module (gnu packages freedesktop)
#|G|# #:use-module (gnu packages glib) #|G|# #:use-module (gnu packages glib)
@ -81,7 +82,8 @@
#|B|# #:use-module (radix packages browser-extensions) #|B|# #:use-module (radix packages browser-extensions)
#|D|# #:use-module (radix packages disk) #|D|# #:use-module (radix packages disk)
#|I|# #:use-module (radix packages image-viewers) #|I|# #:use-module (radix packages image-viewers)
#|F|# #:use-module (radix packages freedesktop) #|F|# #:use-module (radix packages fish-xyz)
#:use-module (radix packages freedesktop)
#:use-module (radix packages fonts) #:use-module (radix packages fonts)
#|P|# #:use-module (radix packages pdf) #|P|# #:use-module (radix packages pdf)
#|S|# #:use-module (radix packages seninha) #|S|# #:use-module (radix packages seninha)
@ -178,6 +180,7 @@
(define packages:file-managing (define packages:file-managing
(list #|disk |# lf (list #|disk |# lf
#|file |# file #|file |# file
#|file-systems |# tmsu
#|haskell-xyz |# pandoc #|haskell-xyz |# pandoc
#|image-viewers|# chafa #|image-viewers|# chafa
#|pdf |# poppler #|pdf |# poppler
@ -368,6 +371,10 @@
#|Kakoune aliases for the shell|# #|Kakoune aliases for the shell|#
(":e" . "kak") (":e" . "kak")
(":q" . "exit"))) (":q" . "exit")))
(plugins
(list fish-autopair
fish-bang-bang
fish-functional))
(abbreviations (abbreviations
(let ((@ (symbol-prefix-proc '@)) (let ((@ (symbol-prefix-proc '@))
(edit (partial format #f "$EDITOR~@{ ~a~}")) (edit (partial format #f "$EDITOR~@{ ~a~}"))
@ -424,26 +431,6 @@
(u . "curl -F file=@% https://0x0.st | wl-copy") (u . "curl -F file=@% https://0x0.st | wl-copy")
(v . "yt-dlp '%'"))) (v . "yt-dlp '%'")))
#|Shell history|#
,(abbreviation
(name "!!")
(pattern "[^\\']*!!.*")
(position 'anywhere)
(expansion
(fish-function "bang-bang")))
,(abbreviation
(name "!$")
(pattern "[^\\']*!\\$.*")
(position 'anywhere)
(expansion
(fish-function "bang-dollar")))
,(abbreviation
(name "!*")
(pattern "[^\\']*!\\*.*")
(position 'anywhere)
(expansion
(fish-function "bang-star")))
,@(map (match-lambda ,@(map (match-lambda
((x . y) (abbreviation ((x . y) (abbreviation
(name x) (name x)