Zander671/random-scripts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Update khal-notify.lisp

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-04-10 11:22:02 -07:00
parent 0215834891
commit f0a5731450
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
cl/khal-notify.lisp
View File

@@ -25,8 +25,8 @@
(defun get-calendar-dir-hash-table () (defun get-calendar-dir-hash-table ()
(let ((output (make-hash-table :test 'equal))) (let ((output (make-hash-table :test 'equal)))
(dolist (dir (directory #P"~/.local/share/vdirsyncer/*/*") output) (dolist (dir (directory #P"~/.local/share/vdirsyncer/*.*/*.*") output)
(unless (pathname-match-p dir #P"~/.local/share/vdirsyncer/status/*/") (unless (pathname-match-p dir #P"~/.local/share/vdirsyncer/status/*.*/")
(let ((dir-name (car (last (pathname-directory dir))))) (let ((dir-name (car (last (pathname-directory dir)))))
(setf (gethash dir-name output) dir)))))) (setf (gethash dir-name output) dir))))))