At Tue, 26 Jul 2005 11:16:42 -0400,
"Patricia J. Hawkins" <[EMAIL PROTECTED]> wrote:
> 
> >>>>> "AK" == Alex Kavanagh <[EMAIL PROTECTED]> writes:
> >> 
> >> Do you notice this underline problem happening when you're viewing a
> >> file, publishing, or both?
> 
> AK> I tried it out and it is only a display problem.  It doesn't happen
> AK> when the file is published.
> 
> Are you on the latest sacha-dev?  I saw the same underlining problem
> (w/ emacs-wiki), using Chris's nifty bit of embedded lisp, but it
> went away when I upgraded.

No, I'm using sacha-stable.  However, it looks like Michael O. has
rolled another stable.  I'm not sure how this fits in with
sacha-stable.

I've not tried the sacha-dev yet - these are my work machines
and I can't really afford for them to offline with 'dev' that might
break, etc.

> 
> I also wrote the below function to make the string construction &
> modification less hairy -- still hairy enough though!
> 
> Code critiques welcome, as I'm a dilettante as far as elisp is
> concerned -- I used concat rather than format because I like to be
> able to read through the construction of the string sequentially.

I'm certainly not in a position to critique.  I might be able to code
a little Lisp and Scheme but I'm a complete newbie when it comes to
elisp and planner code :-)

Cheers
Alex.

> 
> (defun pjh/planner-task-counter (planner-plan-page
>                                             &optional function-name )
>   "Construct a string for use with chrismdp/planner-count-tasks"
>   (setq counting-string  (concat "<lisp>("
>                                 (cond (function-name  function-name)
>                                       (t "chrismdp/planner-count-tasks"))" 
> \""))
>   (concat "[[" planner-plan-page "][" planner-plan-page"]]\t"
>           counting-string  planner-plan-page "\" \"_\" \"A\")</lisp> high 
> priority\t"
>           counting-string planner-plan-page "\"\"_\")</lisp> open tasks"))
> 
> Call it like so when constructing your day-page-template:
> 
> (custom-set-variables
>         ; lots of other variables 
>  '(planner-day-page-template (concat "\n"
>         (pjh/planner-task-counter "EmailReplies") "\n"
>         (pjh/planner-task-counter "PlanAndOrg") "\n"
> ; etc
> ; rest of template))
> )
> 
> -- 
> Patricia J. Hawkins
> Hawkins Internet Applications
> www.hawkinsia.com
> 
> 
> 
> _______________________________________________
> emacs-wiki-discuss mailing list
> emacs-wiki-discuss@nongnu.org
> http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss


_______________________________________________
emacs-wiki-discuss mailing list
emacs-wiki-discuss@nongnu.org
http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss

Reply via email to