[emacs-wiki-discuss] Timeclock error

[Paul D. Kraus]

When marking a task as in progress so that time begins to record I get 
an error
wrong type of argument number-or-marker-p, nil

Then when i clock out.
I get the same error.

when I run planner-timeclock-summary-show and choose today i get this ...
Project |     Time| Ratio| Task
TaskPool|  1:06:36|100.0%| Install Realvnc on Fedex Machine
Total: |  1:06:36|100.0%| .   


Day began: 10:07:47, Day ended: 11:14:23
Time elapsed: 1:06:36, Time clocked: 1:06:36
Time clocked ratio: 100.0%

Now i clocked in and out of 4 tasks and only two are shown and only one 
with the task name.
here is what the .timelog shows.

i 2005/08/09 10:07:47 TaskPool: Install Realvnc on Fedex Machine
o 2005/08/09 11:06:23
o 2005/08/09 11:07:45
o 2005/08/09 11:11:22
o 2005/08/09 11:11:35
o 2005/08/09 11:13:52
o 2005/08/09 11:13:54


here is my .emacs file
----------------------
;; Add the directories to your load path
(add-to-list 'load-path "C:/emacs-21.3/lisp/emacs-wiki")
(add-to-list 'load-path "C:/emacs-21.3/lisp/planner")
(add-to-list 'load-path "C:/emacs-21.3/lisp/remember")
(add-to-list 'load-path "C:/emacs-21.3/lisp/escreen")
(add-to-list 'load-path "C:/emacs-21.3/lisp/python-mode")


(load "escreen")
(escreen-install)

;; Load planner
(require 'planner)
(require 'remember-planner)
(require 'planner-cyclic)
(require 'planner-diary)
(require 'planner-deadline)
(require 'allout)
(require 'planner-timeclock)
(require 'planner-timeclock-summary)
(outline-init t)

(defvar rf-allout-font-lock-keywords
 '(;;
   ;; Highlight headings according to the level.
   (eval . (list (concat "^\\(" outline-regexp "\\).+")
       0 '(or (cdr (assq (outline-depth)
                 '((1 . font-lock-function-name-face)
                   (2 . font-lock-variable-name-face)
                   (3 . font-lock-keyword-face)
                   (4 . font-lock-builtin-face)
                   (5 . font-lock-comment-face)
                   (6 . font-lock-constant-face)
                   (7 . font-lock-type-face)
                   (8 . font-lock-string-face))))
              font-lock-warning-face)
       nil t)))
 "Additional expressions to highlight in Outline mode.")

;; add font-lock to allout mode
(defun rf-allout-font-lock-hook ()
 (set (make-local-variable 'font-lock-defaults)
      '(rf-allout-font-lock-keywords t nil nil 
outline-back-to-current-heading)))

(add-hook 'outline-mode-hook 'rf-allout-font-lock-hook)


(planner-diary-insinuate)
(setq remember-handler-functions '(remember-planner-append))
(setq remember-annotation-functions planner-annotation-functions)
(setq planner-cyclic-diary-nag nil)
(setq mark-diary-entries-in-calendar t)
(setq mark-holidays-in-calendar t)
(setq planner-diary-number-of-days 5)
(setq planner-diary-use-diary t)
(add-hook 'diary-display-hook 'fancy-diary-display)
(setq planner-day-page-template
     "* Tasks\n\n\n* Schedule\n\n\n* Diary\n\n\n* Notes")
(setq printer-name "//smartconnect/hp9000")
(setq ps-print-color-p 'nil)
(setq planner-diary-create-section-flag nil)
;(custom-set-faces)
(require 'color-theme)
(color-theme-comidia)

(iswitchb-mode 1)
(define-key planner-mode-map (kbd "C-c C-n") 'planner-create-note-from-task)
(define-key planner-mode-map (kbd "C-c C-e") 'planner-edit-task-description)
(global-set-key [f1] 'goto-line)
(global-set-key [f2] 'comment-region)
(global-set-key [f3] 'uncomment-region)
(global-set-key [f9] 'planner-goto-today)
(global-set-key [f10] 'pkraus-planner-save)

(setq inhibit-startup-message t)
(fset 'yes-or-no-p 'y-or-n-p)

(line-number-mode 1)
(setq column-number-mode t)
(set-default 'truncate-lines t)

(setq make-backup-files nil)
(setq display-time-day-and-date t )
(setq-default ispell-program-name "aspell")
(display-time)

;; Use cperl-mode instead of the default perl-mode
(add-to-list 'auto-mode-alist '("\\.\\([pP][Llm]\\|al\\)\\'" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("perl" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("perl5" . cperl-mode))
(add-to-list 'interpreter-mode-alist '("miniperl" . cperl-mode))

;; Custom Settings for cperl-mode
(add-hook 'cperl-mode-hook 'n-cperl-mode-hook t)
(defun n-cperl-mode-hook ()
 (setq cperl-indent-level 4)
 (setq cperl-extra-newline-before-brace t)
 )

(plan)
;(calendar)
(custom-set-variables
 ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
 ;; Your init file should contain only one such instance.
'(case-fold-search t)
'(current-language-environment "Latin-1")
'(default-input-method "latin-1-prefix")
'(global-font-lock-mode t nil (font-lock))
'(show-paren-mode t nil (paren))
'(truncate-lines t))
(custom-set-faces
 ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
 ;; Your init file should contain only one such instance.
'(cperl-array-face ((t (:foreground "yellow" :weight bold))))
'(cperl-hash-face ((t (:foreground "Red" :weight bold))))
'(planner-delegated-task-face ((t (:background "red4" :foreground 
"gray" :inverse-video nil :underline nil)))))

(fset 'pkraus-planner-save
  [?\M-x ?p ?l ?a ?n ?n ?e ?r ?- ?s ?o ?r ?t ?- ?t ?a ?s ?k ?s ?\C-m 
?\M-x ?p ?l ?a ?n ?n ?e ?r ?- ?d ?e ?a ?d ?l ?i ?n ?e ?- ?u ?p ?d ?a ?t 
?e ?\C-m])

(autoload 'python-mode "python-mode" "Python Mode." t)
(add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
(add-to-list 'interpreter-mode-alist '("python" . python-mode))

(add-hook 'python-mode-hook
          (lambda ()
            (set (make-variable-buffer-local 'beginning-of-defun-function)
                 'py-beginning-of-def-or-class)
            (setq outline-regexp "def\\|class ")))