dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: tweak the prot-org capture templates

Browse source
This commit is contained in:
Protesilaos Stavrou 2024-11-10 07:54:26 +02:00
parent 91f51b9179
commit cf3fd7d82f
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 48 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
emacs/.emacs.d/prot-emacs.org
View file

@ -14089,27 +14089,33 @@ For use in `prot-org-capture-coach'."
(defun prot-org-capture-coach ()
"Contents of an Org capture template for my coaching lessons."
(concat "* COACH " (prot-org--capture-coach-person-prompt) " "
(prot-org--capture-coach-description-prompt) " :lesson:\n"
;; See comment above
;; (prot-org--capture-coach-date-prompt-range)
"DEADLINE: %^T\n"
":PROPERTIES:\n"
":CAPTURED: %U\n"
":APPT_WARNTIME: 20\n"
":END:\n\n"
"%a%?"))
(let ((identifier (format-time-string "%Y%m%dT%H%M%S")))
(format "* COACH %s %s :lesson:
DEADLINE: %%^T
:PROPERTIES:
:CAPTURED: %%U
:CUSTOM_ID: %s
:APPT_WARNTIME: 20
:END:
%%a%%?"
(prot-org--capture-coach-person-prompt)
(prot-org--capture-coach-description-prompt)
identifier
identifier)))
(defun prot-org-capture-coach-clock ()
"Contents of an Org capture for my clocked coaching services."
(concat "* COACH " (prot-org--capture-coach-person-prompt) " "
(prot-org--capture-coach-description-prompt) " :service:\n"
;; See comment above
;; (prot-org--capture-coach-date-prompt-range)
":PROPERTIES:\n"
":CAPTURED: %U\n"
":END:\n\n"
"%a%?"))
(format "* COACH %s %s :service:
:PROPERTIES:
:CAPTURED: %%U
:CUSTOM_ID: %s
:END:
%%a%%?"
(prot-org--capture-coach-person-prompt)
(prot-org--capture-coach-description-prompt)
(format-time-string "%Y%m%dT%H%M%S")))
(declare-function cl-letf "cl-lib")

42
emacs/.emacs.d/prot-lisp/prot-org.el
View file

@ -98,27 +98,33 @@ For use in `prot-org-capture-coach'."
(defun prot-org-capture-coach ()
"Contents of an Org capture template for my coaching lessons."
(concat "* COACH " (prot-org--capture-coach-person-prompt) " "
(prot-org--capture-coach-description-prompt) " :lesson:\n"
;; See comment above
;; (prot-org--capture-coach-date-prompt-range)
"DEADLINE: %^T\n"
":PROPERTIES:\n"
":CAPTURED: %U\n"
":APPT_WARNTIME: 20\n"
":END:\n\n"
"%a%?"))
(let ((identifier (format-time-string "%Y%m%dT%H%M%S")))
(format "* COACH %s %s :lesson:
DEADLINE: %%^T
:PROPERTIES:
:CAPTURED: %%U
:CUSTOM_ID: %s
:APPT_WARNTIME: 20
:END:
%%a%%?"
(prot-org--capture-coach-person-prompt)
(prot-org--capture-coach-description-prompt)
identifier
identifier)))
(defun prot-org-capture-coach-clock ()
"Contents of an Org capture for my clocked coaching services."
(concat "* COACH " (prot-org--capture-coach-person-prompt) " "
(prot-org--capture-coach-description-prompt) " :service:\n"
;; See comment above
;; (prot-org--capture-coach-date-prompt-range)
":PROPERTIES:\n"
":CAPTURED: %U\n"
":END:\n\n"
"%a%?"))
(format "* COACH %s %s :service:
:PROPERTIES:
:CAPTURED: %%U
:CUSTOM_ID: %s
:END:
%%a%%?"
(prot-org--capture-coach-person-prompt)
(prot-org--capture-coach-description-prompt)
(format-time-string "%Y%m%dT%H%M%S")))
(declare-function cl-letf "cl-lib")