chore: add fish abbreviations for bookmark navigation in home-fish-service
parent
7e0df86826
commit
fc28824e75
|
@ -1,3 +1,7 @@
|
|||
function code-projects
|
||||
string replace '@' '~/projects/code/' $argv[1]
|
||||
end
|
||||
|
||||
function code-projects
|
||||
string replace '@' '~/resources/bookmarks/' $argv[1]
|
||||
end
|
||||
|
|
15
radio.scm
15
radio.scm
|
@ -241,7 +241,8 @@
|
|||
(let ((code-projects "~/projects/code")
|
||||
(code-project-extensions
|
||||
'(c clj cpp el html kak md org pl scm sh tex zig))
|
||||
(organization "~/areas/organization/links"))
|
||||
(bookmarks
|
||||
'(emacs guile guix haunt misc)))
|
||||
(list #|Quick access|#
|
||||
(abbreviation
|
||||
(name "@extension")
|
||||
|
@ -285,6 +286,10 @@
|
|||
(name "@research")
|
||||
(position 'anywhere)
|
||||
(expansion "~/areas/research"))
|
||||
(abbreviation
|
||||
(name "@bookmarks")
|
||||
(position 'anywhere)
|
||||
(expansion "~/resources/bookmarks"))
|
||||
(abbreviation
|
||||
(name "@git-root")
|
||||
(expansion "cd (git root)"))
|
||||
|
@ -307,8 +312,12 @@
|
|||
(name ":todo")
|
||||
(expansion (format #f "~a/todo" organization)))
|
||||
(abbreviation
|
||||
(name ":links")
|
||||
(expansion (format #f "~a/links" organization)))
|
||||
(name ":bookmark")
|
||||
(position 'anywhere)
|
||||
(pattern
|
||||
(apply format #f "@(~a~@{|~a~})" bookmarks))
|
||||
(expansion
|
||||
(fish-function "bookmarks")))
|
||||
|
||||
#|Media downloading|#
|
||||
(abbreviation
|
||||
|
|
Loading…
Reference in New Issue