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

Fix last commit

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-04-10 12:01:42 -07:00
parent 31a84838ef
commit ce7691d73b
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
cl/khal-notify.lisp
View File

@@ -1,6 +1,5 @@
(eval-when (:compile-toplevel :load-toplevel :execute) (eval-when (:compile-toplevel :load-toplevel :execute)
(ql:quickload '(with-user-abort chronicity (ql:quickload '(with-user-abort chronicity cl-ppcre adopt uiop) :silent t))
cl-ppcre adopt uiop) :silent t))
(defpackage :khal-notify (defpackage :khal-notify
(:use :cl) (:use :cl)
@@ -25,8 +24,9 @@
(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 (uiop:subpathp dir (uiop:truename*
#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))))))