emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Help with elisp function
@ 2012-01-13  0:32 Marcelo de Moraes Serpa
  2012-01-13  8:45 ` Olaf Dietsche
  0 siblings, 1 reply; 3+ messages in thread
From: Marcelo de Moraes Serpa @ 2012-01-13  0:32 UTC (permalink / raw)
  To: Org Mode

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

^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2012-01-14 19:28 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2012-01-13  0:32 Help with elisp function Marcelo de Moraes Serpa
2012-01-13  8:45 ` Olaf Dietsche
2012-01-14 19:28   ` Marcelo de Moraes Serpa

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).