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

[Christopher Dimech <dimech@gmx.com>]

There must bo some problem in how I am trying to use lists.

(setq captr-tmplt-tdr
  `( '("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)

     '("t3" "+ Ch03 Computational Aspects of Spectral Estimation" entry
       (file+headline "~/02histr/tdr/03ch.rcl.org" "Tdr Document")
       ,(concat "* Ch03 Computational Aspects of Spectr Estm\n"
         "** %^{Select |Augment:|Include:|Clarify:|Organise:}: \n"
         "  Title: %?\n  Brief:\n  Detail:\n"
         "  Scheduled: %^T\n  Entered: %T\n  Link: %a\n")
     :clock-in t :clock-resume t :empty-lines 1)

     '("tc" "+ Citable Note" entry
       (file "~/02histr/tdr/citn.rcl.org")
       ,(concat "* %^{Year} %^{Author} %^{Year}p %^{Author}p\n"
         "  %^{Sel |Reference:|  Bibliography:} %T\n"
         "  Year: %\\1\n  Author: %\\2\n  Title: %?\n"
         "  Brief:\n  Detail:\n  Annal:\n"
         "  Entered: %T\n  Link: %a\n")
     :empty-lines 1) ))

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





> Sent: Saturday, December 12, 2020 at 3:14 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:
>
> > This is how I interpreted your list comment
>
> OK, well, that was just playing with syntax and having fun at
> your comment ("backquote construct), but be my guest...
>
> > (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)
>
> To be honest that doesn't look good. Ha.
>
> --
> underground experts united
> http://user.it.uu.se/~embe8573
> https://dataswamp.org/~incal
>
>
>