org-capture-templates constructed from three distinct functions

org-capture-templates constructed from three distinct functions

[Christopher Dimech]

I am writing an org capture template for a book.  I would like a different function
for each book, suppose I have three (Book A, Book B, Book C).  Selecting either A,
B, and C, I can then te to the respective entries for each book.

Can using three different functions be done to make org-capture templates?


(defun captr-writing ()

  (setq org-capture-templates
   `(("A" "Book A")  ; backquote construct
     ("A1" "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)

     ("A2" "+ 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) )))

Thank you
C*

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

[Emanuel Berg via Users list for the GNU Emacs text editor]

Christopher Dimech wrote:

> `(("A" "Book A")  ; backquote construct

Interesting comment :)

`(,@(list 'a 'b 'c) d)
                      ^ eval me

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

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
>
>
>

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

[Emanuel Berg via Users list for the GNU Emacs text editor]

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

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

[Christopher Dimech]

> 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...

I wrote bullocks then.

> > (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
>
>
>

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

[Christopher Dimech]

Well, my first thought has been to put template entries in a list.  But, yes, things are not
working out very well.

> 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
>
>
>

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

[Christopher Dimech]

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
>
>
>

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

[Emanuel Berg via Users list for the GNU Emacs text editor]

Christopher Dimech wrote:

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

That whole thing is like searching for a microchip in
a megacomputer. backquote quote backquote ... ???

Here is the syntax:

  `(a ,(+ 1 1) ("ghost" "reporting") ,@'(x y z))

which is

  (a 2 ("ghost" "reporting") x y z)

when you understand the syntax, feel free to do whatever...

but it still doesn't look good :)

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

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

[Christopher Dimech]

> Sent: Saturday, December 12, 2020 at 3:38 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:
>
> > There must bo some problem in how I am trying to use lists.
>
> That whole thing is like searching for a microchip in
> a megacomputer. backquote quote backquote ... ???
>
> Here is the syntax:
>
>   `(a ,(+ 1 1) ("ghost" "reporting") ,@'(x y z))
>
> which is
>
>   (a 2 ("ghost" "reporting") x y z)
>
> when you understand the syntax, feel free to do whatever...
>
> but it still doesn't look good :)

Any way to make my plan good?

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

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

[Emanuel Berg via Users list for the GNU Emacs text editor]

Christopher Dimech wrote:

> Any way to make my plan good?

No :)

But I guess just write code every day and try to make it look
good and it'll look better and better God willing...

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

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

[Christopher Dimech]

> Sent: Saturday, December 12, 2020 at 3:56 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:
>
> > Any way to make my plan good?
>
> No :)
>
> But I guess just write code every day and try to make it look
> good and it'll look better and better God willing...

There is no god.

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

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

[Emanuel Berg via Users list for the GNU Emacs text editor]

Christopher Dimech wrote:

>> But I guess just write code every day and try to make it
>> look good and it'll look better and better God willing...
>
> There is no god.

There is gravity. And expressions...

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

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

[tomas]

[-- Attachment #1: Type: text/plain, Size: 380 bytes --]

On Sat, Dec 12, 2020 at 04:34:33AM +0100, Emanuel Berg via Users list for the GNU Emacs text editor wrote:
> Christopher Dimech wrote:
> 
> >> But I guess just write code every day and try to make it
> >> look good and it'll look better and better God willing...
> >
> > There is no god.
> 
> There is gravity. And expressions...

https://xkcd.com/224/

Cheers
 - t

[-- Attachment #2: Digital signature --]
[-- Type: application/pgp-signature, Size: 198 bytes --]

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

[Emanuel Berg via Users list for the GNU Emacs text editor]

tomas wrote:

>>>> But I guess just write code every day and try to make it
>>>> look good and it'll look better and better God willing...
>>>
>>> There is no god.
>> 
>> There is gravity. And expressions...
>
> https://xkcd.com/224/

What? Ha. Crazy :) Thanks.

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

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

[Christopher Dimech]

> 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 :)

One time I found a file called progress.c.  Another one was work.c.

> `(,@(list 'a 'b 'c) d)
>                       ^ eval me
>
> --
> underground experts united
> http://user.it.uu.se/~embe8573
> https://dataswamp.org/~incal
>
>
>

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

[Michael Heerdegen]

Christopher Dimech <dimech@gmx.com> writes:

> Can using three different functions be done to make org-capture
> templates?

I had to think long about what this question wants to ask.

I guess you want to know how you can add more templates without
overwriting the existing (partly filled) list of templates?

Michael.

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

[Christopher Dimech]

> Sent: Saturday, December 12, 2020 at 4:16 AM
> From: "Michael Heerdegen" <michael_heerdegen@web.de>
> To: help-gnu-emacs@gnu.org
> Subject: Re: org-capture-templates constructed from three distinct functions
>
> Christopher Dimech <dimech@gmx.com> writes:
>
> > Can using three different functions be done to make org-capture
> > templates?
>
> I had to think long about what this question wants to ask.
>
> I guess you want to know how you can add more templates without
> overwriting the existing (partly filled) list of templates?

I want to write ideas for three books say, and could have the template list
for each book in either a function or a variable.  Then append the three at
the end.

Have been trying as follows with just on book for now, but have not been
successful.


(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) ))

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

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



> Michael.
>
>
>

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

[Michael Heerdegen]

Christopher Dimech <dimech@gmx.com> writes:

> (defun captr-tdr ()
>    (interactive)
>    (setq org-capture-templates 'captr-templ-tdr))
                                 ^
You want the binding of the variable, that quote is wrong.

Appending template lists has the problem that you get copies added if
you accidentally reevalute your code.

You might want to consider to use `add-to-list' or `cl-pushnew' to avoid
this problem, or, alternatively, interpret and handle
`org-capture-templates' as an association list (with the key binding as
key and the definition as value).  Then you could use `setf' with
`alist-get' to add or even modify or delete entries.  This is a very
clean and convenient but more learning involving way to achieve this.

BTW, it should be possible to use buffer local `org-capture-templates'
binding.

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

Why do you want to use a key for this (instead of just evaluating the
code directly in your init file)?


Regards,

Michael.

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

[Christopher Dimech]

> Sent: Saturday, December 12, 2020 at 4:43 AM
> From: "Michael Heerdegen" <michael_heerdegen@web.de>
> To: help-gnu-emacs@gnu.org
> Subject: Re: org-capture-templates constructed from three distinct functions
>
> Christopher Dimech <dimech@gmx.com> writes:
>
> > (defun captr-tdr ()
> >    (interactive)
> >    (setq org-capture-templates 'captr-templ-tdr))
>                                  ^
> You want the binding of the variable, that quote is wrong.
>
> Appending template lists has the problem that you get copies added if
> you accidentally reevalute your code.

I thought to first append the three lists, then transfer them to
org-capture-templates

> You might want to consider to use `add-to-list' or `cl-pushnew' to avoid
> this problem, or, alternatively, interpret and handle
> `org-capture-templates' as an association list (with the key binding as
> key and the definition as value).  Then you could use `setf' with
> `alist-get' to add or even modify or delete entries.  This is a very
> clean and convenient but more learning involving way to achieve this.
>
> BTW, it should be possible to use buffer local `org-capture-templates'
> binding.
>
> > (global-set-key (kbd "H-c") #'captr-tdr)
>
> Why do you want to use a key for this (instead of just evaluating the
> code directly in your init file)?

Because I could have various template setups.  This is for writing.
I could have others, e.g. projects, archaeology.

I could use a keybinding to loop to the one I want to use, rather than
sticking everything in one.

> Regards,
>
> Michael.
>
>
>

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

[Michael Heerdegen]

Christopher Dimech <dimech@gmx.com> writes:

> I thought to first append the three lists, then transfer them to
> org-capture-templates

Sounds ok then, yes.

Michael.

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

[Christopher Dimech]

Am first trying to do this for one book at least.  But having a problem in constructing the list.

> Sent: Saturday, December 12, 2020 at 4:57 AM
> From: "Michael Heerdegen" <michael_heerdegen@web.de>
> To: help-gnu-emacs@gnu.org
> Subject: Re: org-capture-templates constructed from three distinct functions
>
> Christopher Dimech <dimech@gmx.com> writes:
>
> > I thought to first append the three lists, then transfer them to
> > org-capture-templates
>
> Sounds ok then, yes.
>
> Michael.
>
>
>

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

[Christopher Dimech]

I am getting

Debugger entered--Lisp error: (wrong-type-argument sequencep tmplt-tdr)

> Sent: Saturday, December 12, 2020 at 5:02 AM
> From: "Christopher Dimech" <dimech@gmx.com>
> To: "Michael Heerdegen" <michael_heerdegen@web.de>
> Cc: help-gnu-emacs@gnu.org
> Subject: Re: org-capture-templates constructed from three distinct functions
>
> Am first trying to do this for one book at least.  But having a problem in constructing the list.
>
> > Sent: Saturday, December 12, 2020 at 4:57 AM
> > From: "Michael Heerdegen" <michael_heerdegen@web.de>
> > To: help-gnu-emacs@gnu.org
> > Subject: Re: org-capture-templates constructed from three distinct functions
> >
> > Christopher Dimech <dimech@gmx.com> writes:
> >
> > > I thought to first append the three lists, then transfer them to
> > > org-capture-templates
> >
> > Sounds ok then, yes.
> >
> > Michael.
> >
> >
> >
>
>

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

[Christopher Dimech]

I got one book to work now

(defun captr-tmplt-tdr ()
   (interactive)
   (message "tmplt-tdr")
   (setq org-capture-templates tmplt-tdr))

(captr-tmplt-tdr)


> Sent: Saturday, December 12, 2020 at 4:57 AM
> From: "Michael Heerdegen" <michael_heerdegen@web.de>
> To: help-gnu-emacs@gnu.org
> Subject: Re: org-capture-templates constructed from three distinct functions
>
> Christopher Dimech <dimech@gmx.com> writes:
>
> > I thought to first append the three lists, then transfer them to
> > org-capture-templates
>
> Sounds ok then, yes.
>
> Michael.
>
>
>

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

[Christopher Dimech]

I am working on two books now.

(setq 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) ))

;; ----------------------------------------------------------------------
(setq tmplt-uwdiving
   `( ("d"  "Decompression Theory")  ; backquote construct
      ("da" "Decompression Theory" entry
       (file+headline "~/02histr/uwdiving/decomrth.rcl.org"
                      "Decompression Theory")
       ,(concat "* Decompression Theory\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)

       ("r"  "Recreational Diving")
       ("ra" "Rescue Diver" entry
        (file+headline "~/02histr/uwdiving/rescuedv.rcl.org"
                       " Rescue Diver")
        ,(concat "* TODO\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-tmplt-writing ()
   (interactive)
   (message "tmplt-tdr")
   (setq org-capture-templates (tmplt-tdr tmplt-uwdiving) ))

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



> Sent: Saturday, December 12, 2020 at 4:57 AM
> From: "Michael Heerdegen" <michael_heerdegen@web.de>
> To: help-gnu-emacs@gnu.org
> Subject: Re: org-capture-templates constructed from three distinct functions
>
> Christopher Dimech <dimech@gmx.com> writes:
>
> > I thought to first append the three lists, then transfer them to
> > org-capture-templates
>
> Sounds ok then, yes.
>
> Michael.
>
>
>

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

[Christopher Dimech]

With two lists the problematic part is now to add the lists, as the following is failing.

(defun captr-tmplt-writing ()
   (interactive)
   (message "tmplt-writing")
   (setq captr-tmplt-writing tmplt-tdr)
   (add-to-list 'captr-tmplt-writing tmplt-uwdiving)
   (setq org-capture-templates captr-tmplt-writing) )



> Sent: Saturday, December 12, 2020 at 4:57 AM
> From: "Michael Heerdegen" <michael_heerdegen@web.de>
> To: help-gnu-emacs@gnu.org
> Subject: Re: org-capture-templates constructed from three distinct functions
>
> Christopher Dimech <dimech@gmx.com> writes:
>
> > I thought to first append the three lists, then transfer them to
> > org-capture-templates
>
> Sounds ok then, yes.
>
> Michael.
>
>
>

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

[Michael Heerdegen]

Christopher Dimech <dimech@gmx.com> writes:

> With two lists the problematic part is now to add the lists, as the
> following is failing.
>
> (defun captr-tmplt-writing ()
>    (interactive)
>    (message "tmplt-writing")
>    (setq captr-tmplt-writing tmplt-tdr)
>    (add-to-list 'captr-tmplt-writing tmplt-uwdiving)
>    (setq org-capture-templates captr-tmplt-writing) )

Hard to tell cause the example is incomplete.  Could be you use
`add-to-list', which is to add list elements, where you actually want to
append lists...?

Michael.

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

[Christopher Dimech]

> Sent: Saturday, December 12, 2020 at 11:47 PM
> From: "Michael Heerdegen" <michael_heerdegen@web.de>
> To: help-gnu-emacs@gnu.org
> Subject: Re: org-capture-templates constructed from three distinct functions
>
> Christopher Dimech <dimech@gmx.com> writes:
>
> > With two lists the problematic part is now to add the lists, as the
> > following is failing.
> >
> > (defun captr-tmplt-writing ()
> >    (interactive)
> >    (message "tmplt-writing")
> >    (setq captr-tmplt-writing tmplt-tdr)
> >    (add-to-list 'captr-tmplt-writing tmplt-uwdiving)
> >    (setq org-capture-templates captr-tmplt-writing) )
>
> Hard to tell cause the example is incomplete.  Could be you use
> `add-to-list', which is to add list elements, where you actually want to
> append lists...?

Have played more with it and have used append.  Things now works as intended.

> Michael.
>
>
>

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

[Christopher Dimech]

> Sent: Saturday, December 12, 2020 at 4:43 AM
> From: "Michael Heerdegen" <michael_heerdegen@web.de>
> To: help-gnu-emacs@gnu.org
> Subject: Re: org-capture-templates constructed from three distinct functions
>
> Christopher Dimech <dimech@gmx.com> writes:
>
> > (defun captr-tdr ()
> >    (interactive)
> >    (setq org-capture-templates 'captr-templ-tdr))
>                                  ^
> You want the binding of the variable, that quote is wrong.
>
> Appending template lists has the problem that you get copies added if
> you accidentally reevalute your code.
>
> You might want to consider to use `add-to-list' or `cl-pushnew' to avoid
> this problem, or, alternatively, interpret and handle
> `org-capture-templates' as an association list (with the key binding as
> key and the definition as value).

How would an association list look like for this one book template, if I may ask?


> Then you could use `setf' with
> `alist-get' to add or even modify or delete entries.  This is a very
> clean and convenient but more learning involving way to achieve this.
>
> BTW, it should be possible to use buffer local `org-capture-templates'
> binding.
>
> > (global-set-key (kbd "H-c") #'captr-tdr)
>
> Why do you want to use a key for this (instead of just evaluating the
> code directly in your init file)?
>
>
> Regards,
>
> Michael.
>
>
>

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

[Michael Heerdegen]

Christopher Dimech <dimech@gmx.com> writes:

> How would an association list look like for this one book template, if
> I may ask?

Exactly as now, it is already an association list - or, with other
words: its format is compatible with that concept.  Which means you can
use the alist tools to manipulate and modify the value if you want.

Regards,

Michael.