[emacs-wiki-discuss] Extra brackets in Planner-Muse

[Michael Olson]

Can someone please take a look at this and send a patch to address the
issue, if it wouldn't be too inconvenient?  I'm not very familiar with
this part of the Planner source code, and I don't have any time this
weekend to fix the problem.

[Original email message follows, enclosed with permission]

From: David Ellis <address@hidden>
Subject: Re: problem with planner-muse
To: Michael Olson <address@hidden>
Date: Thu, 20 Oct 2005 13:22:55 -0500

Michael,

I was one of those with the extra bracket problem. I am not seeing the extra
brackets now, but some of the links in tasks with mulitple links are now
disappearing.

I sent the following to the group earlier, but I want to get your feedback.

Here is are the tasks from my plan page from yesterday :
* Tasks

#B _ Review =DBUpdate= source code (2005.10.19 [[¶CorpPubDBUpdate]]
address@hidden [[All]])
#B _ Review =V_TSOReport.pas= (2005.10.19 [[¶CorpPubDBUpdate]] address@hidden
[[All]])
#B _ Review =BloombergTypes.rinse= (2005.10.19 [[¶CorpPubDBUpdate]]
address@hidden [[All]])
#B _ Determine fields that need to be added to our db
(2005.10.19[[¶CorpPubDBUpdate]] address@hidden [[All]])
#B _ Review Bloomberg info from David T (2005.10.19 [[¶CorpPubDBUpdate]]
address@hidden [[All]])
#B _ Confirm with Sherry Wiese that she is no longer using the fields that
begin with dsc_ in the trust table. (2005.10.19 [[¶Fees%20and%20Charges]]
address@hidden [[All]])
#B _ Run update query ([[2005.10.05]] [[¶Reconcile sum(tp.unit_chg_qty) with
cum_deposit_qty]] address@hidden [[All]])
#B _ Develop query to fix problem ([[2005.10.05]] [[¶Reconcile sum(
tp.unit_chg_qty) with cum_deposit_qty]] address@hidden [[All]])
#B _ Review query with Mike ([[2005.10.05]] [[¶Reconcile sum(tp.unit_chg_qty)
with cum_deposit_qty]] address@hidden [[All]])
#B X Update =nike_secrty_id= 54565 (address@hidden)
#B X @10:00am Migrate and Weighting Update (address@hidden)
#B X Change query to include only equity trusts\
(2005.10.19[[¶FinalizeTrustWorkup]] address@hidden)

When I run plan using planner muse, some of the multiple links are removed.
The above tasks become the following:

#B _ Review =DBUpdate= source code ([[¶CorpPubDBUpdate]])
#B _ Review =V_TSOReport.pas= ([[¶CorpPubDBUpdate]])
#B _ Review =BloombergTypes.rinse= ([[¶CorpPubDBUpdate]])
#B _ Determine fields that need to be added to our db ([[¶CorpPubDBUpdate]])
#B _ Review Bloomberg info from David T ([[¶CorpPubDBUpdate]])
#B _ Confirm with Sherry Wiese that she is no longer using the fields that
begin with dsc_ in the trust table. ([[¶Fees%20and%20Charges]])
#B _ Run update query ([[2005.10.05]] [[¶Reconcile sum(tp.unit_chg_qty) with
cum_deposit_qty]] address@hidden [[All]])
#B _ Develop query to fix problem ([[2005.10.05]] [[¶Reconcile sum(
tp.unit_chg_qty) with cum_deposit_qty]] address@hidden [[All]])
#B _ Review query with Mike ([[2005.10.05]] [[¶Reconcile sum(tp.unit_chg_qty)
with cum_deposit_qty]] address@hidden [[All]])
#B _ @10:00am Migrate and Weighting Update ([[2005.10.20]] address@hidden
[[All]])

Notice that for some of the tasks the date and the multiple plan pages are
stripped off.

Here is the appropriate part of my .emacs file.

(add-to-list 'load-path "C:/Program Files/emacs/lisp/muse/lisp")
(add-to-list 'load-path "C:/Program Files/emacs/lisp/planner-muse")
;(add-to-list 'load-path "C:/Program Files/emacs/lisp/sacha-dev/emacs-wiki")
;(add-to-list 'load-path "C:/Program Files/emacs/lisp/sacha-dev/planner")
;(add-to-list 'load-path "C:/Program Files/emacs/lisp/sacha-dev/remember")

;; Load planner
(require 'muse)
(require 'planner)
;(require 'emacs-wiki)
;(require 'remember)
(require 'planner-multi)
(require 'planner-tasks-overview)
(require 'planner-diary)
(require 'planner-cyclic)
(require 'planner-appt)

(setq planner-project "WikiPlanner")
(setq muse-project-alist
'(("WikiPlanner" ;; use value of `planner-project'
("~/Memos" ;; where your Planner pages are located
:default "TaskPool" ;; use value of `planner-default-page'
:major-mode planner-mode
:visit-link planner-visit-link)

;; This next part is for specifying where Planner pages
;; should be published and what Muse publishing style to
;; use. In this example, we will use the XHTML publishing
;; style.

(:base "xhtml"
;; value of `planner-publishing-directory'
:path "~/public_html/Plans"))))

(setq planner-cyclic-diary-file "~/Memos/diary.cyclic-tasks")
(setq planner-directory "~/Memos")
(setq diary-file "~/Memos/diary")
(setq planner-diary-file "~/Memos/diary")
(setq planner-cyclic-task-description-format "%s")
(add-hook 'diary-display-hook 'fancy-diary-display)
(setq planner-multi-copy-tasks-to-page "All")
(setq planner-tasks-file-behavior 'save)
(setq planner-reverse-chronological-notes 't)
(setq planner-diary-use-diary t)
(planner-diary-insinuate)
(setq planner-day-page-template
"* Tasks\n\n\n* Diary\n\n\n* Notes")
(planner-appt-use-tasks)
(planner-appt-insinuate)
(setq planner-cyclic-task-description-format "%s")
;;(setq planner-multi-separator ",")
(setq planner-read-name-function 'planner-multi-read-name-multiple-prompts)
;(setq appt-message-warning-time 10)
;(setq appt-display-interval 2)

(defun dde/planner-install-extra-task-keybindings ()
"Install additional task key bindings.
Warning! Overwrites some standard key bindings. See function
definition for keys added."
(let ((map planner-mode-map))
(define-key map "\C-t" nil)
(define-key map "\C-t\C-t" 'planner-create-task)
(define-key map "\C-t\C-k" 'planner-delete-task)
(define-key map "\C-t\C-u" 'planner-update-task)
(define-key map "\C-t\C-c" 'planner-copy-or-move-task)
(define-key map '[(control ?t) (control ?C)]
'planner-copy-or-move-region)
(define-key map "\C-t\C-x" 'planner-task-done)
(define-key map '[(control ?t) (control ?X)]
'planner-task-cancelled)
(define-key map "\C-t\C-d" 'planner-task-delegated)
(define-key map "\C-t\C-p" 'planner-task-pending)
(define-key map "\C-t\C-i" 'planner-task-in-progress)
(define-key map "\C-t\C-o" 'planner-task-open)
(define-key map "\C-t\C-r" 'planner-raise-task)
(define-key map "\C-t\C-l" 'planner-lower-task)
(define-key map "\C-t\C-f" 'planner-fix-tasks)
(define-key map "\C-t\C-n" 'planner-create-note)
(define-key map "\C-t\C-e" 'planner-edit-task-description)))

(dde/planner-install-extra-task-keybindings)

-- 
Michael Olson -- FSF Associate Member #652 -- http://www.mwolson.org/
Interests: anime, Debian, XHTML, wiki, Emacs Lisp
  /` |\ | | | IRC: mwolson on freenode.net: #hcoop, #muse, #PurdueLUG
 |_] | \| |_| Jabber: mwolson_at_hcoop.net

pgpZqLgNys3Ol.pgp
Description: PGP signature