emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed

• * searchable refcard
         [not found] <E1L7WK3-0008Jz-45@box188.bluehost.com>
  @ 2008-12-02 15:09 ` Robert Goldman
    2008-12-02 20:47   ` Sebastian Rose
    0 siblings, 1 reply; 2+ messages in thread
  From: Robert Goldman @ 2008-12-02 15:09 UTC (permalink / raw)
    To: emacs-orgmode
  
  I tried it the stupid way, just to see it working:
  
  
  (defun org-context-help ()
    "Context help for org-mode"
    (interactive)
    (if (org-at-table-p)
        (info "(org)tables")
      (if (org-at-timestamp-p)
          (info "(org)timestamps")
        (if (org-at-item-checkbox-p)
            (info "(org)Checkboxes")
          (if (org-at-item-p)
              (info "(org)plain lists")
            (if (org-at-heading-p)
                (info "(org)headlines")
              (if (org-at-property-p)
                  (info "(org)Properties and Columns")
                )))))))
  
  For this kind of multi-way branch, cond is easier to deal with:
  
  (cond ((org-at-table-p)
         (info "(org)tables"))
        ((org-at-timestamp-p)
         (info "(org)timestamps"))
        ((org-at-item-checkbox-p)
         (info "(org)Checkboxes"))
        ((org-at-item-p)
         (info "(org)plain lists"))
        ((org-at-heading-p)
         (info "(org)headlines"))
        ((org-at-property-p)
         (info "(org)Properties and Columns")))
  
  
  
  Just for the fun of it.
  
  
  
  I tried to use a list like this:
  
  (setq org-context-help-map
        '(('org-at-item-checkbox-p "(org)Checkboxes" "(org)plain lists")
          ('org-at-item-p "(org)plain lists" "(org)Checkboxes")
          ('org-at-property-p "(org)Properties and Columns")
          ('org-at-timestamp-p "(org)timestamps" "(org)deadlines and
  scheduling")
          ('org-at-table-p "(org)tables")
          ('org-at-heading-p "(org)headlines")))
  
  For this you need (require 'cl), but what about
  
  (let ((cell (find-if (lambda (lst) (eval `(,(first lst))))
  org-context-help-map)))
    (when cell
      (eval `(,(second cell)))))
  
  The find avoids the need to do a non-local exit.
  
  Note that I don't understand what you're doing with having two info
  indices, so I ignored the second one...
  
  Alternatively
  
  (loop for (test info-entry info-entry2) in org-context-help-map
        when (eval `(,test))
  	return info-entry)
  
  using the loop macro...
  
  BTW, I don't think you want that quote inside your definition of
  org-context-help-map.  You want '((org-at-item-checkbox-p ...)) not
  '(('org-at-item-checkbox-p ...))  The extra quote will be a nuisance.
  
  HTH,
  R
  
  ^ permalink raw reply	[flat|nested] 2+ messages in thread

• • * Re: searchable refcard
      2008-12-02 15:09 ` searchable refcard Robert Goldman
    @ 2008-12-02 20:47   ` Sebastian Rose
      0 siblings, 0 replies; 2+ messages in thread
    From: Sebastian Rose @ 2008-12-02 20:47 UTC (permalink / raw)
      To: emacs-orgmode
    
    Hi Robert,
    
    
    those functions you mentioned are on my list for long winter nights :-)
    
    
    Robert Goldman <rpgoldman@sift.info> writes:
    > (let ((cell (find-if (lambda (lst) (eval `(,(first lst))))
    > org-context-help-map)))
    >   (when cell
    >     (eval `(,(second cell)))))
    >
    > The find avoids the need to do a non-local exit.
    >
    > Note that I don't understand what you're doing with having two info
    > indices, so I ignored the second one...
    
    
    Sometimes more than just one section of the manual match the context. I
    would like to choose in those situations. While on a checkbox item, the
    sections `checkboxes' and 'plain lists' both match. RET RET should just
    open the default (which would be the first of those two).
    
    
    
    > Alternatively
    >
    > (loop for (test info-entry info-entry2) in org-context-help-map
    >       when (eval `(,test))
    > 	return info-entry)
    
    > using the loop macro...
    >
    > BTW, I don't think you want that quote inside your definition of
    > org-context-help-map.  You want '((org-at-item-checkbox-p ...)) not
    > '(('org-at-item-checkbox-p ...))  The extra quote will be a nuisance.
    
    
    
    
    
    Regards,
    
       Sebastian
    
    -- 
    Sebastian Rose, EMMA STIL - mediendesign, Niemeyerstr.6, 30449 Hannover
    
    Tel.:  +49 (0)511 - 36 58 472
    Fax:   +49 (0)1805 - 233633 - 11044
    mobil: +49 (0)173 - 83 93 417
    Email: s.rose emma-stil de, sebastian_rose gmx de
    Http:  www.emma-stil.de
    
    ^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2008-12-02 20:44 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
     [not found] <E1L7WK3-0008Jz-45@box188.bluehost.com>
2008-12-02 15:09 ` searchable refcard Robert Goldman
2008-12-02 20:47   ` Sebastian Rose

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).