Compare commits

...

5 Commits

3 changed files with 19 additions and 17 deletions
+4 -4
View File
@@ -1,6 +1,5 @@
(eval-when (:compile-toplevel :load-toplevel :execute)
(ql:quickload '(with-user-abort chronicity
cl-ppcre adopt uiop) :silent t))
(ql:quickload '(with-user-abort chronicity cl-ppcre adopt uiop) :silent t))
(defpackage :khal-notify
(:use :cl)
@@ -25,8 +24,9 @@
(defun get-calendar-dir-hash-table ()
(let ((output (make-hash-table :test 'equal)))
(dolist (dir (directory #P"~/.local/share/vdirsyncer/*/*") output)
(unless (pathname-match-p dir #P"~/.local/share/vdirsyncer/status/*/")
(dolist (dir (directory #P"~/.local/share/vdirsyncer/*/*.*") output)
(unless (uiop:subpathp dir (uiop:truename*
#P"~/.local/share/vdirsyncer/status/"))
(let ((dir-name (car (last (pathname-directory dir)))))
(setf (gethash dir-name output) dir))))))
+3 -1
View File
@@ -13,7 +13,9 @@ fi
exec nvim 63<&0 0</dev/null \
-u NONE \
-c 'packadd leap.nvim' \
-c "lua require('leap').add_default_mappings()" \
-c "lua require('leap')" \
-c "lua vim.keymap.set({'n', 'x', 'o'}, 's', '<Plug>(leap)')" \
-c "lua vim.keymap.set('n', 'S', '<Plug>(leap-from-window)')" \
-c 'highlight link LeapBackdrop Comment' \
-c "map <silent> q :qa!<CR>" \
-c "set scrollback=100000 nonumber termguicolors laststatus=0 clipboard+=unnamedplus" \
+1 -1
View File
@@ -41,6 +41,6 @@ case "${resp}" in
local color="$(hyprpicker -f hex -n -r)"
(( ${#color} == 0 )) && exit
wl-copy "${color}"
notify-send -t 5000 "Color Selected" "${color}"
# notify-send -t 5000 "Color Selected" "${color}"
;;
esac