From bbe7086d3ed9c86e284c3d600921520dcd89709b Mon Sep 17 00:00:00 2001
From: Luis Guilherme Coelho <lgcoelho@disroot.org>
Date: Fri, 5 Jul 2024 14:47:15 -0300
Subject: [PATCH] home-environments: radio: Declare fish-autopair,
 fish-bang-bang and fish-functional plugins

---
 home-environments/radio.scm | 29 ++++++++---------------------
 1 file changed, 8 insertions(+), 21 deletions(-)

diff --git a/home-environments/radio.scm b/home-environments/radio.scm
index 0ad2a2e..5da8da8 100644
--- a/home-environments/radio.scm
+++ b/home-environments/radio.scm
@@ -18,6 +18,7 @@
         #:use-module (gnu packages curl)
   #|D|# #:use-module (gnu packages databases)
   #|F|# #:use-module (gnu packages file)
+  #|F|# #:use-module (gnu packages file-systems)
         #:use-module (gnu packages fonts)
         #:use-module (gnu packages freedesktop)
   #|G|# #:use-module (gnu packages glib)
@@ -81,7 +82,8 @@
   #|B|# #:use-module (radix packages browser-extensions)
   #|D|# #:use-module (radix packages disk)
   #|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)
   #|P|# #:use-module (radix packages pdf)
   #|S|# #:use-module (radix packages seninha)
@@ -178,6 +180,7 @@
 (define packages:file-managing
   (list #|disk         |# lf
         #|file         |# file
+        #|file-systems |# tmsu
         #|haskell-xyz  |# pandoc
         #|image-viewers|# chafa
         #|pdf          |# poppler
@@ -368,6 +371,10 @@
                        #|Kakoune aliases for the shell|#
                        (":e" . "kak")
                        (":q" . "exit")))
+                    (plugins
+                      (list fish-autopair
+                            fish-bang-bang
+                            fish-functional))
                     (abbreviations
                      (let ((@ (symbol-prefix-proc '@))
                            (edit (partial format #f "$EDITOR~@{ ~a~}"))
@@ -424,26 +431,6 @@
                                   (u . "curl -F file=@% https://0x0.st | wl-copy")
                                   (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
                                   ((x . y) (abbreviation
                                             (name x)