Update kitty-scrollback-neovim.sh

cl/khal-notify.lisp

@@ -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))))))
 
@@ -72,16 +72,16 @@
                         current-notice ""))
                  ((and in-valarm (uiop:string-prefix-p "TRIGGER:" line))
                   (ppcre:register-groups-bind
-                   (negative (#'parse-integer num) unit)
-                   (pattern (subseq line 8))
-                   (setq current-offset
-                         (* (if (equal negative "-") -1 1)
-                            (cond
-                              ((equal unit "S") num)
-                              ((equal unit "M") (* num 60))
-                              ((equal unit "H") (* num 60 60))
-                              ((equal unit "D") (* num 60 60 24))
-                              (t 0))))))
+                      (negative (#'parse-integer num) unit)
+                      (pattern (subseq line 8))
+                    (setq current-offset
+                          (* (if (equal negative "-") -1 1)
+                             (cond
+                               ((equal unit "S") num)
+                               ((equal unit "M") (* num 60))
+                               ((equal unit "H") (* num 60 60))
+                               ((equal unit "D") (* num 60 60 24))
+                               (t 0))))))
                  ((and in-valarm (uiop:string-prefix-p "DESCRIPTION:" line))
                   (setq current-notice (subseq (process-escape-sequences
                                                 (remove-trailing-return line))
@@ -181,4 +181,4 @@
 (defun toplevel ()
   (sb-ext:disable-debugger)
   (exit-on-ctrl-c
-   (main)))
+    (main)))

kitty-scrollback-neovim.sh

@@ -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" \

wayland-screenshot.sh

@@ -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