[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] Help with elisp function

From: Marcelo de Moraes Serpa
Subject: [O] Help with elisp function
Date: Thu, 12 Jan 2012 18:32:20 -0600

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

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!


reply via email to

[Prev in Thread] Current Thread [Next in Thread]