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

Compare commits

base: Zander671/random-scripts:aef3ccc5c6cdca33bfe4e0065e9d43b63bc18083
Branches Tags
Zander671/random-scripts:main
..
compare: Zander671/random-scripts:31a84838ef6fd9e7837349e14309cbfd159d5ac9
Branches Tags
Zander671/random-scripts:main

2 Commits
aef3ccc5c6 .. 31a84838ef

Author SHA1 Message Date
Zander671 31a84838ef Merge branch 'main' of git.zander.im:Zander671/random-scripts 2026-04-10 11:22:30 -07:00
Zander671 f0a5731450 Update khal-notify.lisp 2026-04-10 11:22:02 -07:00
1 changed files with 2 additions and 2 deletions
Expand all files Collapse all files
cl/khal-notify.lisp
+2 -2
View File
@@ -25,8 +25,8 @@
(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 (pathname-match-p dir #P"~/.local/share/vdirsyncer/status/*.*/")
(let ((dir-name (car (last (pathname-directory dir)))))
(setf (gethash dir-name output) dir))))))