Re: Suggestion with bad patch for org-remember-templates

Hi Wes,

yes, a better display of the remember template options would be useful.
However, right now the remember interface, because I believe that
James is working on a rewrite of the remember integration.  Maybe he
wants to put this on his list?

- Carsten

On Dec 31, 2008, at 4:39 PM, Wes Hardaker wrote:

>
> 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 <at> gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

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