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


_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Reply via email to