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