Re: org-capture-templates constructed from three distinct functions

[Christopher Dimech]

This is how I interpreted your list comment

(setq captr-templ-tdr
   `(,@(list
     '("t" "Tdr Document")  ; backquote construct
     '("t1" "Tdr: Ch01 Oceanic Microseismology" entry
       (file+headline "~/02histr/tdr/01ch.rcl.org" "Tdr Document")
       ,(concat "* Oceanic Microseismology\n"  ; special marker
         "  %^{Select |Augment:|Include:|Clarify:|Organise:} %?\n"
         "  Scheduled: %^T\n  Entered: %T\n  Link: %a\n")
       :clock-in t :clock-resume t :empty-lines 1)

     '("t2" "+ Ch02 Multi-Resolution Spectral Analysis" entry
       (file+headline "~/02histr/tdr/02ch.rcl.org" "Tdr Document")
       ,(concat "* Ch02 Multi-Resoln Spectr Anly\n"
         "  %^{Select |Augment:|Include:|Clarify:|Organise:} %?\n"
         "  Scheduled: %^T\n  Entered: %T\n  Link: %a\n")
     :clock-in t :clock-resume t :empty-lines 1) )))

(defun captr-tdr ()
   (interactive)
   (setq org-capture-templates captr-templ-tdr))

(global-set-key (kbd "H-c")   #'captr-tdr)



> Sent: Saturday, December 12, 2020 at 2:48 AM
> From: "Emanuel Berg via Users list for the GNU Emacs text editor" 
> <help-gnu-emacs@gnu.org>
> To: help-gnu-emacs@gnu.org
> Subject: Re: org-capture-templates constructed from three distinct functions
>
> Christopher Dimech wrote:
>
> > `(("A" "Book A")  ; backquote construct
>
> Interesting comment :)
>
> `(,@(list 'a 'b 'c) d)
>                       ^ eval me

I made the following, with "H-c" not working

(defun captr-tdr ()
   (interactive)
   (setq org-capture-templates `(,@(list captr-templ-tdr)) ))

(global-set-key (kbd "H-c") #'captr-tdr)



> --
> underground experts united
> http://user.it.uu.se/~embe8573
> https://dataswamp.org/~incal
>
>
>