Help with elisp function

Help with elisp function

[Marcelo de Moraes Serpa]

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

So, I made a small elisp function that basically creates a "reference file"
in my org dir and indexes it in an org file, so it can be searchable with
the agenda without the overhead of adding the file to the agenda list:

(defun create-reference-file (filename title tags) "Creates a new reference
and file it"
  (interactive (list
                (read-string "Filename: ")
                (read-string "Title: ")
                (read-string "Tags: ")
                ))
  (set-buffer (get-buffer-create filename))
  (beginning-of-buffer)
  (insert (concat "* tags " tags))
   ;;saves the buffer
   (when (file-writable-p filename)
      (write-region (point-min) (point-max) (concat
"~/org/data/dynamic_reference/" filename ".org")))
  (set-buffer (find-file-noselect "~/org/gtd/reference.org"))
  (end-of-buffer)
  ;;(create-wiki-page filename)
  (insert (concat "** " title " " tags ":reference:file:\n"))
  (org-insert-time-stamp nil t nil)
  (insert "\n")
  (insert (concat "[[file://~/org/data/dynamic_reference/" filename
".org]]"))
  (insert "\n")
  (save-buffer)
  )

I'm only beginning with elisp, so bear with me...

Anyway, it works as expected, but I would like the tags prompt to be like
the prompt org uses, with tags auto-completion and adding the : :
automatically around the tags. Right now, I have to type the : around the
words.

Any hints appreciated!

Marcelo.

[-- Attachment #2: Type: text/html, Size: 1941 bytes --]

Re: Help with elisp function

[Olaf Dietsche]

Marcelo de Moraes Serpa <celoserpa@gmail.com> writes:

> So, I made a small elisp function that basically creates a "reference
> file" in my org dir and indexes it in an org file, so it can be
> searchable with the agenda without the overhead of adding the file to
> the agenda list:
>
> (defun create-reference-file (filename title tags) "Creates a new
> reference and file it"
>   (interactive (list
>                 (read-string "Filename: ") (read-string "Title: ")
>                 (read-string "Tags: ") ))
>   (set-buffer (get-buffer-create filename)) (beginning-of-buffer)
>   (insert (concat "* tags " tags))
>    ;;saves the buffer (when (file-writable-p filename)
>       (write-region (point-min) (point-max) (concat
> "~/org/data/dynamic_reference/" filename ".org")))
>   (set-buffer (find-file-noselect "~/org/gtd/reference.org"))
>   (end-of-buffer) ;;(create-wiki-page filename) (insert (concat "** "
>   title " " tags ":reference:file:\n")) (org-insert-time-stamp nil t
>   nil) (insert "\n") (insert (concat
>   "[[file://~/org/data/dynamic_reference/" filename
> ".org]]"))
>   (insert "\n") (save-buffer) )
>
> I'm only beginning with elisp, so bear with me...
>
> Anyway, it works as expected, but I would like the tags prompt to be
> like the prompt org uses, with tags auto-completion and adding the : :
> automatically around the tags. Right now, I have to type the : around
> the words.

C-h c C-c C-q runs the command org-set-tags-command.
org-set-tags-command calls org-set-tags. Looking through org-set-tags in
org.el, there's a part starting with a comment:

	;; Get a new set of tags from the user
        ...
		  (let ((org-add-colon-after-tag-completion t))
		    (org-trim
		     (org-icompleting-read "Tags: "
					   'org-tags-completion-function
					   nil nil current 'org-tags-history))))))
        ...

So, I guess org-icompleting-read is, what you are looking for.

Regards, Olaf

Re: Help with elisp function

[Marcelo de Moraes Serpa]

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

Thanks Olaf, I will check it out and let you know how it goes :)

On Fri, Jan 13, 2012 at 2:45 AM, Olaf Dietsche <
olaf+list.orgmode@olafdietsche.de> wrote:

> Marcelo de Moraes Serpa <celoserpa@gmail.com> writes:
>
> > So, I made a small elisp function that basically creates a "reference
> > file" in my org dir and indexes it in an org file, so it can be
> > searchable with the agenda without the overhead of adding the file to
> > the agenda list:
> >
> > (defun create-reference-file (filename title tags) "Creates a new
> > reference and file it"
> >   (interactive (list
> >                 (read-string "Filename: ") (read-string "Title: ")
> >                 (read-string "Tags: ") ))
> >   (set-buffer (get-buffer-create filename)) (beginning-of-buffer)
> >   (insert (concat "* tags " tags))
> >    ;;saves the buffer (when (file-writable-p filename)
> >       (write-region (point-min) (point-max) (concat
> > "~/org/data/dynamic_reference/" filename ".org")))
> >   (set-buffer (find-file-noselect "~/org/gtd/reference.org"))
> >   (end-of-buffer) ;;(create-wiki-page filename) (insert (concat "** "
> >   title " " tags ":reference:file:\n")) (org-insert-time-stamp nil t
> >   nil) (insert "\n") (insert (concat
> >   "[[file://~/org/data/dynamic_reference/" filename
> > ".org]]"))
> >   (insert "\n") (save-buffer) )
> >
> > I'm only beginning with elisp, so bear with me...
> >
> > Anyway, it works as expected, but I would like the tags prompt to be
> > like the prompt org uses, with tags auto-completion and adding the : :
> > automatically around the tags. Right now, I have to type the : around
> > the words.
>
> C-h c C-c C-q runs the command org-set-tags-command.
> org-set-tags-command calls org-set-tags. Looking through org-set-tags in
> org.el, there's a part starting with a comment:
>
>        ;; Get a new set of tags from the user
>        ...
>                  (let ((org-add-colon-after-tag-completion t))
>                    (org-trim
>                     (org-icompleting-read "Tags: "
>                                           'org-tags-completion-function
>                                           nil nil current
> 'org-tags-history))))))
>        ...
>
> So, I guess org-icompleting-read is, what you are looking for.
>
> Regards, Olaf
>

[-- Attachment #2: Type: text/html, Size: 3120 bytes --]