martin/emacs-doom
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix(org-caldav): pre-register Baikal Digest auth from authinfo before sync

Browse Source 
Baikal requires Digest auth (not Basic). Pre-register credentials from
~/.authinfo using url-digest-auth-user-pass before org-caldav-sync.
SPC o c now calls my/org-caldav-sync wrapper.
This commit is contained in:
Daneel
2026-02-24 19:43:50 +01:00
parent b2bc04a0ac
commit 33188974ab
1 changed files with 28 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
config.el
View File

@@ -1732,16 +1732,40 @@ current frame."
;;; --- Tier 1: High impact --- ;;; --- Tier 1: High impact ---
;; org-caldav — CalDAV sync for org ;; org-caldav — CalDAV sync for org (Baikal server, Digest auth)
;; Credentials: add to ~/.authinfo:
;; machine cal.apps.sukany.cz login martin password YOUR_PASSWORD
(use-package! org-caldav (use-package! org-caldav
:commands org-caldav-sync :commands (org-caldav-sync my/org-caldav-sync)
:config :config
(setq org-caldav-url "https://cal.apps.sukany.cz/dav.php/calendars/martin" (setq org-caldav-url "https://cal.apps.sukany.cz/dav.php/calendars/martin"
org-caldav-calendar-id "default" org-caldav-calendar-id "default"
org-caldav-inbox "~/org/caldav-inbox.org" org-caldav-inbox "~/org/caldav-inbox.org"
org-caldav-files '("~/org/personal.org" "~/org/work.org") org-caldav-files '("~/org/personal.org" "~/org/work.org")
org-caldav-sync-direction 'twoway)) org-caldav-sync-direction 'twoway)
(map! :leader "o c" #'org-caldav-sync)
;; Baikal uses Digest auth. Pre-register credentials from ~/.authinfo
;; so Emacs url package doesn't prompt interactively.
(defun my/caldav-setup-digest-auth ()
"Load Digest auth credentials for Baikal from auth-source (~/.authinfo)."
(require 'url-auth)
(let* ((found (car (auth-source-search :host "cal.apps.sukany.cz"
:user "martin" :max 1)))
(pass (when found
(let ((s (plist-get found :secret)))
(if (functionp s) (funcall s) s)))))
(when pass
(add-to-list 'url-digest-auth-user-pass
(cons (cons "cal.apps.sukany.cz" "BaikalDAV")
(cons "martin" pass))))))
(defun my/org-caldav-sync ()
"Sync org-caldav after pre-registering Baikal Digest auth."
(interactive)
(my/caldav-setup-digest-auth)
(org-caldav-sync)))
(map! :leader "o c" #'my/org-caldav-sync)
;; envrc — direnv integration ;; envrc — direnv integration
(use-package! envrc (use-package! envrc