emacs-orgmode
[Top][All Lists]
Advanced

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

[Orgmode] Suggestion with bad patch for org-remember-templates


From: Wes Hardaker
Subject: [Orgmode] Suggestion with bad patch for org-remember-templates
Date: Wed, 31 Dec 2008 07:39:18 -0800
User-agent: Gnus/5.110011 (No Gnus v0.11) XEmacs/21.4.21 (linux, no MULE)

My templates for remind are numerous.  So much that they don't fit in a
single mini-buffer line (and I stopped using auto-expanding minibuffers
years ago when I had issues with it; I suspect it's safer now and I just
haven't tried again).

But anyway, I started thinking: you know...  that *Remember* buffer is
sitting there open and blank when selecting a template.  Can't we put
the list of templates there?  So I hacked together a quick patch to put
the contents in the *Remember* buffer and it works just fine.  I'm not
an expert elisp hacker as I dabble in it only every few years, hence the
reason "bad" is in the subject line.  It's also left as an exercise to
the reader to make the inserted contents prettier (like a table, rather
than one item per line).

--- org-remember.el.~1~ 2008-10-25 03:57:02.000000000 -0700
+++ org-remember.el     2008-12-26 06:32:51.000000000 -0800
@@ -286,7 +286,23 @@
                           (string-to-char org-force-remember-template-char)
                         org-force-remember-template-char))
                      (t
-                      (message "Select template: %s"
+                      (let ((currbuf (current-buffer)))
+                        (switch-to-buffer remember-buffer t)
+                        (erase-buffer)
+                        (insert "Select template:\n"
+                         (mapconcat
+                          (lambda (x)
+                            (cond
+                             ((not (string-match "\\S-" (nth 1 x)))
+                              (format "  [%c]" (car x)))
+                             ((equal (downcase (car x))
+                                     (downcase (aref (nth 1 x) 0)))
+                              (format "  [%c]%s" (car x)
+                                      (substring (nth 1 x) 1)))
+                             (t (format "  [%c]%s" (car x) (nth 1 x)))))
+                          templates "  \n"))
+                        (switch-to-buffer currbuf t))
+                        (message "Select template: %s"
                                (mapconcat
                                 (lambda (x)
                                   (cond

-- 
"In the bathtub of history the truth is harder to hold than the soap,
 and much more difficult to find."  -- Terry Pratchett




reply via email to

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