[emacs-wiki-discuss] Recent entries (was Re: question about planner-mode)

[Sacha Chua]

Cc'ing the mailing list at address@hidden
(http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss). =) If
you prefer to use Gmane (a mailing list->NNTP/blog gateway), check out
http://blog.gmane.org/gmane.emacs.wiki.general .

Welcome to Planner! =)

eyee <address@hidden> writes:

>    still someting confusing me: How did you put all notes entries in
>    the sidebar?(The "Recent entries" in each page.) I did not found
>    the implement in you PHP hack files. I tried to put "<contents>"
>    or "<notes>" tag into my ".header" file, but it doesn't work. :(
>    thank you. Tang.Y.L

http://sacha.free.net.ph/notebook/wiki/include/header.inc.phps
http://sacha.free.net.ph/notebook/wiki/include/footer.inc.phps
(rename to .php when you're using them).

The following code adds the most recent entry to footer.inc.phps,
in between the lines reading

<!--recent-->
<!--end of recent-->

You'll need to edit the following code to fit your configuration.

(defun sacha/planner-add-recent ()
  "Add the current note to the list of recent entries, trimmed at 10."
  (interactive)
  (let* ((info (planner-current-note-info))
         (url (concat 
               "http://sacha.free.net.ph/notebook/wiki/";
               (emacs-wiki-published-name (planner-note-page info))
               "#" (planner-note-anchor info))))
    (when info
      (with-current-buffer
          (find-file-noselect 
"/home/sacha/notebook/wiki/include/footer.inc.php")
        (goto-char (point-min))
        (when (re-search-forward "<!--recent-->" nil t)
          (save-restriction
            (narrow-to-region (1+ (line-end-position))
                              (progn
                                (re-search-forward "<!--end of recent-->" nil t)
                                (line-beginning-position)))
            (goto-char (point-min))
            (insert "<a href=\"" url "\">"
                    (planner-note-title info)
                    "</a><br/>\n")
            (forward-line 14)
            (delete-region (point) (point-max))
            (save-buffer))))))
  nil)
        
(add-hook 'remember-planner-append-hook 'sacha/planner-add-recent t)

It works when you use M-x remember and remember-planner. There are
other ways to do it, I guess, but this was the easiest for me to code.
<impish grin>

-- 
Sacha Chua <address@hidden> - open source geekette
http://sacha.free.net.ph/ - PGP Key ID: 0xE7FDF77C
interests: emacs, gnu/linux, personal information management, CS ed
sachac on irc.freenode.net#emacs . YM: sachachua83