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

calfw capture: use nth for date extraction (avoid calendar-extract dependency)

Browse Source
This commit is contained in:
Daneel
2026-02-25 15:58:55 +01:00
parent 2d4b276a67
commit 02ad895dd6
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
config.el
View File

@@ -1617,10 +1617,11 @@ Formats matching what org-caldav/ox-icalendar export correctly:
- Timed single day: <2026-02-26 Thu 14:00-15:30> - Timed single day: <2026-02-26 Thu 14:00-15:30>
- All-day multi: <2026-02-26 Thu>--<2026-02-28 Sat> - All-day multi: <2026-02-26 Thu>--<2026-02-28 Sat>
- Timed multi-day: <2026-02-26 Thu 15:00>--<2026-02-28 Sat 22:00>" - Timed multi-day: <2026-02-26 Thu 15:00>--<2026-02-28 Sat 22:00>"
(require 'calendar)
(let* ((date (or my/calfw-capture-date (calendar-current-date))) (let* ((date (or my/calfw-capture-date (calendar-current-date)))
(y (calendar-extract-year date)) (m (nth 0 date))
(m (calendar-extract-month date)) (d (nth 1 date))
(d (calendar-extract-day date)) (y (nth 2 date))
(dow (calendar-day-name date nil t)) (dow (calendar-day-name date nil t))
(start-time (read-string "Start time (HH:MM, empty=all-day): ")) (start-time (read-string "Start time (HH:MM, empty=all-day): "))
(end-input (unless (string-empty-p start-time) (end-input (unless (string-empty-p start-time)