Carsten Dominik wrote:
On Aug 12, 2009, at 11:29 AM, Bruce Hackett wrote:
I have just installed v 6.29c and find that the agenda weekly view
(C-c a a) fails with the following message:
Wrong type argument: stringp, nil
If I revert to my previous version 6.28e, the agenda view works
properly. I have not changed anything else. This indicates that the
problem arose between 6.28e and 6.29c.
I have looked through the gmane threads and the 6.29 release notes
from Carsten, but I cannot find anything that would explain this (I
may well have overlooked something). I guess this is a trivial
problem, but it's beyond me.
Thanks for any help,
Bruce Hackett
Please make a backtrace, as explained in the manual.
- Carsten
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
Thanks for pointing the manual entry out to me. Here's the info
Versions:
emacs 22.1.1
org 6.29c
Ubuntu 8.04
What I did:
- Load my org files on startup of emacs
- C-u M-x org-reload RET
- Turn on Enter Debugger on Error
- Select a frame with an org file
- Hit C-c a a
What happened:
- The Agenda frame popped up with a single line:
"Week-agenda (W33):"
Backtrace:
See attached file
My .emacs is attached
Thanks again,
Bruce
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
re-search-forward(nil nil t)
(while (re-search-forward regexp nil t) (catch :skip
(org-agenda-skip) (setq s ... txt nil pos ... d2 ... diff ... wdays
... dfrac ... upcomingp ...) (if ... ...)))
(let* ((props ...) (regexp org-deadline-time-regexp) (todayp ...) (d1
...) d2 diff dfrac wdays pos pos1 category tags ee txt head face s
todo-state upcomingp donep timestr) (goto-char (point-min)) (while
(re-search-forward regexp nil t) (catch :skip ... ... ...)) (nreverse
ee))
org-agenda-get-deadlines()
(setq rtn (org-agenda-get-deadlines))
(cond ((and ... ...) (setq rtn ...) (setq results ...)) ((eq arg
:timestamp) (setq rtn ...) (setq results ...) (setq rtn ...) (setq
results ...)) ((eq arg :sexp) (setq rtn ...) (setq results ...)) ((eq
arg :scheduled) (setq rtn ...) (setq results ...)) ((eq arg :closed)
(setq rtn ...) (setq results ...)) ((eq arg :deadline) (setq rtn ...)
(setq results ...)))
(while (setq arg (pop args)) (cond (... ... ...) (... ... ... ...
...) (... ... ...) (... ... ...) (... ... ...) (... ... ...)))
(save-restriction (if org-agenda-restrict (narrow-to-region
org-agenda-restrict-begin org-agenda-restrict-end) (widen)) (while
(setq arg ...) (cond ... ... ... ... ... ...)))
(save-excursion (save-restriction (if org-agenda-restrict ... ...)
(while ... ...)))
(let ((case-fold-search nil)) (save-excursion (save-restriction ...
...)))
(save-current-buffer (set-buffer buffer) (unless (org-mode-p) (error
"Agenda file %s is not in `org-mode'" file)) (let (...)
(save-excursion ...)) results)
(with-current-buffer buffer (unless (org-mode-p) (error "Agenda file
%s is not in `org-mode'" file)) (let (...) (save-excursion ...))
results)
(if (not buffer) (list (format "ORG-AGENDA-ERROR: No such org-file
%s" file)) (with-current-buffer buffer (unless ... ...) (let ... ...)
results))
(let* ((org-startup-folded nil) (org-startup-align-all-tables nil)
(buffer ...) arg results rtn) (if (not buffer) (list ...)
(with-current-buffer buffer ... ... results)))
org-agenda-get-day-entries("~/Admin/Org/ToDo.org" (8 10 2009)
:deadline :scheduled :sexp :timestamp)
(setq rtn (org-agenda-get-day-entries file date :deadline :scheduled
:sexp :timestamp))
(cond ((eq org-agenda-show-log ...) (setq rtn ...))
(org-agenda-show-log (setq rtn ...)) (t (setq rtn ...)))
(catch (quote nextfile) (org-check-agenda-file file) (cond (... ...)
(org-agenda-show-log ...) (t ...)) (setq rtnall (append rtnall rtn)))
(while (setq file (pop files)) (catch (quote nextfile)
(org-check-agenda-file file) (cond ... ... ...) (setq rtnall ...)))
(while (setq d (pop day-numbers)) (setq date
(calendar-gregorian-from-absolute d) wd (calendar-day-of-week date) s
(point)) (if (or ... ...) (setq start-pos ...) (if ... ...)) (setq
files thefiles rtnall nil) (while (setq file ...) (catch ... ... ...
...)) (if org-agenda-include-diary (let ... ... ... ...)) (if (or
rtnall org-agenda-show-all-dates) (progn ... ... ... ... ... ... ...
... ...)))
(let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files
thefiles) (today ...) (sd ...) (start ...) (day-numbers ...) (day-cnt
0) (inhibit-redisplay ...) s e rtn rtnall file date d start-pos
end-pos todayp nd wd clocktable-start clocktable-end) (setq
org-agenda-redo-command (list ... ... start-day ndays)) (setq ndays
(or ndays org-agenda-ndays) nd ndays) (while (> ndays 1) (push ...
day-numbers) (setq ndays ...)) (setq day-numbers (nreverse
day-numbers)) (setq clocktable-start (car day-numbers) clocktable-end
(1+ ...)) (org-prepare-agenda "Day/Week") (org-set-local (quote
org-starting-day) (car day-numbers)) (org-set-local (quote
org-include-all-loc) include-all) (org-set-local (quote
org-agenda-span) (org-agenda-ndays-to-span nd)) (when (and ... ...)
(setq files thefiles rtnall nil) (while ... ...) (when rtnall ... ...
...)) (unless org-agenda-compact-blocks (let* ... ... ...)
(add-text-properties s ... ...)) (while (setq d ...) (setq date ...
wd ... s ...) (if ... ... ...) (setq files thefiles rtnall nil)
(while ... ...) (if org-agenda-include-diary ...) (if ... ...)) (when
(and org-agenda-clockreport-mode clocktable-start) (let ... ... ...
... ... ... ...)) (goto-char (point-min)) (or org-agenda-multi
(org-fit-agenda-window)) (unless (and ... ...) (goto-char ...)
(recenter -1) (if ... ...)) (goto-char (or start-pos 1))
(add-text-properties (point-min) (point-max) (quote ...))
(org-finalize-agenda) (setq buffer-read-only t) (message ""))
org-agenda-list(nil)
call-interactively(org-agenda-list)
(cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq
org-agenda-custom-commands org-agenda-custom-commands-orig)
(customize-variable ...)) ((equal keys "a") (call-interactively ...))
((equal keys "s") (call-interactively ...)) ((equal keys "t")
(call-interactively ...)) ((equal keys "T") (org-call-with-arg ...
...)) ((equal keys "m") (call-interactively ...)) ((equal keys "M")
(org-call-with-arg ... ...)) ((equal keys "e") (call-interactively
...)) ((equal keys "L") (unless ... ...) (unless restriction ...
...)) ((equal keys "#") (call-interactively ...)) ((equal keys "/")
(call-interactively ...)) ((equal keys "!") (customize-variable ...))
(t (error "Invalid agenda key")))
(let* ((prefix-descriptions nil) (org-agenda-custom-commands-orig
org-agenda-custom-commands) (org-agenda-custom-commands ...) (buf
...) (bfn ...) entry key type match lprops ans) (unless
org-agenda-overriding-restriction (put ... ... nil) (setq
org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil)
(move-marker org-agenda-restrict-end nil)) (put (quote
org-agenda-redo-command) (quote org-lprops) nil) (setq
org-agenda-last-dispatch-buffer (current-buffer)) (unless keys (setq
ans ... keys ... restriction ...)) (when (and ... restriction) (put
... ... ...) (cond ... ...)) (require (quote calendar)) (cond (...
...) (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...)
(... ...) (... ...) (... ... ...) (... ...) (... ...) (... ...) (t
...)))
(catch (quote exit) (let* (... ... ... ... ... entry key type match
lprops ans) (unless org-agenda-overriding-restriction ... ... ...
...) (put ... ... nil) (setq org-agenda-last-dispatch-buffer ...)
(unless keys ...) (when ... ... ...) (require ...) (cond ... ... ...
... ... ... ... ... ... ... ... ... ... ...)))
org-agenda(nil)
call-interactively(org-agenda)
;
;; INTERNALS
;
(set-time-zone-rule "GMT-1")
;; Put local lisp code in load path
(add-to-list 'load-path "/home/bruceh/Tools/gnu/emacs/site-lisp/")
(remove-hook 'text-mode-hook 'flyspell-mode) ; Turn off spell check
on-the-fly
;; Options Menu Settings
;; =====================
(cond
((and (string-match "XEmacs" emacs-version)
(boundp 'emacs-major-version)
(or (and
(= emacs-major-version 19)
(>= emacs-minor-version 14))
(= emacs-major-version 21))
(fboundp 'load-options-file))
(load-options-file "~/.xemacs-options")))
;; ============================
;; End of Options Menu Settings
; AUTOINSERTS
(require 'autoinsert)
(add-hook 'find-file-hooks 'auto-insert)
; C++ AUTOINSERT
(setq auto-insert-alist
(cons '(latex-mode
;; should try to offer completing read for these
"options, RET: "
"\\documentclass[" str & ?\] | -1
?{ (read-string "class: ") "}\n"
("package, %s: "
"\\usepackage[" (read-string "options, RET: ")
& ?\] | -1 ?{ str "}\n")
_ "\n\\begin{document}\n" _
"\n\\end{document}")
auto-insert-alist))
(push '(("\\.cc\\'" . "C / C++ header")
"\n\n\n"
"#include <fstream>\n"
"#include <iostream>\n\n"
"using namespace std; \n\n\n"
"int main(int argc, char** argv)\n"
"{\n\n\n\n"
" return 0;\n};")
auto-insert-alist)
(push '(("\\.c\\'" . "C / C++ header")
"\n\n\n"
"#include <stdlib.h>\n"
"#include <stdio.h>\n\n"
"int main(int argc, char** argv)\n"
"{\n\n\n\n"
" return 0;\n};")
auto-insert-alist)
; FAVOURITE FONT SETTING
;;bh-reinstall(add-spec-list-to-specifier (face-property 'default
'font) '((global (nil .
"-*-Lucidatypewriter-Medium-R-*-*-*-140-75-75-*-*-ISO8859-1"))))
;;bh-reinstall(add-spec-list-to-specifier (face-property 'bold 'font)
'((global (nil .
"-*-Lucidatypewriter-Bold-R-*-*-*-140-75-75-*-*-ISO8859-1"))))
;;bh-reinstall(add-spec-list-to-specifier (face-property 'italic
'font) '((global (nil .
"-*-courier-medium-i-*-*-*-140-75-75-*-*-iso8859-1"))))
;;bh-reinstall(add-spec-list-to-specifier (face-property 'bold-italic
'font) '((global (nil .
"-*-courier-bold-i-*-*-*-140-75-75-*-*-iso8859-1"))))
; AUC-TeX
;;bh-reinstall(require 'tex-site)
; FILLING
;;bh-reinstall(require 'filladapt)
;;bh-reinstall(autoload 'turn-on-auto-fill "auto-fill"
;;bh-reinstall "Unconditionally turn on auto-fill mode")
;;bh-reinstall(add-hook 'text-mode-hook 'turn-on-filladapt-mode)
;;bh-reinstall(add-hook 'text-mode-hook 'turn-on-auto-fill)
;;bh-reinstall(add-hook 'message-mode-hook 'turn-on-filladapt-mode)
;;bh-reinstall(add-hook 'message-mode-hook 'turn-on-auto-fill)
;;bh-reinstall(add-hook 'mail-mode-hook 'turn-on-filladapt-mode)
;;bh-reinstall(add-hook 'mail-mode-hook 'turn-on-auto-fill)
;;bh-reinstall(add-hook 'LaTeX-mode-hook 'turn-on-filladapt-mode)
;;bh-reinstall(add-hook 'LaTeX-mode-hook 'turn-on-auto-fill)
; FONT-LOCK-MODE
(require 'font-lock)
(autoload 'turn-on-font-lock "font-lock"
"Unconditionally turn on Font Lock mode.")
(add-hook 'mail-mode-hook 'turn-on-font-lock)
;
;; INTERNET/MAIL
;
; W3
(setq w3-default-homepage "http://cyclone.oslo.dnmi.no:8001/";)
(setq url-keep-history t)
; VM
(setq user-mail-address "bruce.hack...@met.no")
(setq mail-archive-file-name "~/Mail/VM/archive/outbox")
(setq query-user-mail-address nil)
;
;; KEYS
;
(global-set-key [f1] 'find-file)
(global-set-key [f2] 'undo)
(global-set-key [f3] 'save-buffer)
(global-set-key [f4] 'save-buffers-kill-emacs)
(global-set-key [f5] 're-search-backward)
(global-set-key [f6] 're-search-forward)
(global-set-key [f8] 'query-replace-regexp)
(global-set-key [f9] 'goto-line)
(global-set-key [f10] 'replace-regexp)
(global-set-key [f11] 'end-of-buffer)
(global-set-key [f12] 'auto-fill-mode)
(global-unset-key "\M-[")
(global-unset-key "\C-h")
(global-unset-key "\e\e") ; unbinds ESC ESC
(global-set-key "\b" 'delete-backward-char)
;
;; CALENDAR & DIARY
;
(setq calendar-latitude 60.0)
(setq calendar-longitude 11.0)
(setq calendar-location-name "Oslo")
(setq calendar-time-zone +60)
(setq calendar-standard-time-zone-name "CET")
(setq calendar-daylight-time-zone-name "CET+1")
(setq calendar-daylight-savings-starts '(calendar-nth-named-day 1 0 4
year))
(setq calendar-daylight-savings-ends '(calendar-nth-named-day -1 0 10
year))
(setq european-calendar-style t)
(setq all-christian-calendar-holidays t)
; Fancy diary view
(diary)
(setq view-diary-entries-initially t
mark-diary-entries-in-calendar t
number-of-diary-entries 7)
(add-hook 'diary-display-hook 'fancy-diary-display)
(add-hook 'today-visible-calendar-hook 'calendar-mark-today)
;
;;; Commands added by calc-private-autoloads on Tue Jul 20 10:33:18
1999.
;
(autoload 'calc-dispatch "calc" "Calculator Options" t)
(autoload 'full-calc "calc" "Full-screen Calculator" t)
(autoload 'full-calc-keypad "calc" "Full-screen X Calculator" t)
(autoload 'calc-eval "calc" "Use Calculator from Lisp")
(autoload 'defmath "calc" nil t t)
(autoload 'calc "calc" "Calculator Mode" t)
(autoload 'quick-calc "calc" "Quick Calculator" t)
(autoload 'calc-keypad "calc" "X windows Calculator" t)
(autoload 'calc-embedded "calc" "Use Calc inside any buffer" t)
(autoload 'calc-embedded-activate "calc" "Activate =>'s in buffer" t)
(autoload 'calc-grab-region "calc" "Grab region of Calc data" t)
(autoload 'calc-grab-rectangle "calc" "Grab rectangle of data" t)
;; (setq load-path (nconc load-path (list
"~/Tools/gnu/emacs/site-lisp/calc")))
(global-set-key "\e#" 'calc-dispatch)
;;; End of Calc autoloads.
;; BBDB
;;bh-reinstall(setq bbdb-north-american-phone-numbers-p nil)
;;bh-reinstall(require 'bbdb)
;;bh-reinstall(bbdb-initialize)
;
;; APPEARANCE
;; =====================
;
; COMMENTS ( HAEBFIX )
;;(add-spec-list-to-specifier
;; (face-property 'font-lock-comment-face 'font)
;; '((global
;; (nil . "-*-haebfix-*-*-*-*-*-*-*-*-*-*-*-*"))))
;;(add-spec-list-to-specifier
;; (face-property 'font-lock-comment-face 'foreground)
;; '((global
;; ((color). "red"))))
;
;; MISCELLANEOUS
;; =====================
;
(setq standard-display-european t)
; always display line and column numbers
(setq line-number-mode t)
(setq-default column-number-mode 1)
;; put clock in emacs bar
(display-time)
(setq display-time-24hr-format t)
(setq fortran-continuation-string "&")
(put 'narrow-to-region 'disabled nil)
(setq delete-key-deletes-forward t)
(setq sentence-end-double-space t)
(setq scroll-step 1)
(setq-default next-line-add-newlines t)
(setq-default case-replace t)
(setq-default case-fold-search t)
(setq initial-scratch-message nil)
(setq minibuffer-max-depth nil)
; Prepare filesets
(filesets-init)
;;bh-reinstall(set-specifier modeline-shadow-thickness 2)
;
;; MODES
;; =====================
;
; allout outlining minor mode
(require 'allout)
(setq outline-init t)
; use cperl-mode for perl and scripts (doesn't work)
(add-to-list 'auto-mode-alist '("\\.pl\\'" . cperl-mode))
; org-mode (a GTD organizer)
(require 'org-install)
(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(global-set-key "\C-cb" 'org-iswitchb)
;; (global-set-key "\M-S-left" 'org-promote-subtree)
;; (global-set-key "\M-S-right" 'org-demote-subtree)
(add-hook 'org-mode-hook 'turn-on-font-lock) ; org-mode buffers only
;; (eval-after-load "org"
;; '(progn
;; (define-prefix-command 'org-todo-state-map)
;; (define-key org-mode-map "\C-cx" 'org-todo-state-map)
;; (define-key org-todo-state-map "x"
;; #'(lambda nil (interactive) (org-todo "CANCELLED")))
;; (define-key org-todo-state-map "d"
;; #'(lambda nil (interactive) (org-todo "DONE")))
;; (define-key org-todo-state-map "f"
;; #'(lambda nil (interactive) (org-todo "DEFERRED")))
;; (define-key org-todo-state-map "l"
;; #'(lambda nil (interactive) (org-todo "DELEGATED")))
;; (define-key org-todo-state-map "s"
;; #'(lambda nil (interactive) (org-todo "STARTED")))
;; (define-key org-todo-state-map "w"
;; #'(lambda nil (interactive) (org-todo "WAITING")))
;; (define-key org-agenda-mode-map "\C-n" 'next-line)
;; (define-key org-agenda-keymap "\C-n" 'next-line)
;; (define-key org-agenda-mode-map "\C-p" 'previous-line)
;; (define-key org-agenda-keymap "\C-p" 'previous-line)))
(setq org-todo-keyword-faces
'(("DEFERRED" . org-done)
("CANCELLED" . org-done)))
(font-lock-add-keywords 'org-mode
'(("^\\([ \t]*[-*+]\\|^\\*+\\)[ \t]+→.*"
0 font-lock-warning-face prepend)))
; include diary items in org agenda
(setq org-agenda-include-diary t)
; make htmlize available for publishing
(require 'htmlize)
; user contrib function regenerates html versions of org file at each
save
(defun wicked/org-publish-files-maybe ()
"Publish this file if it contains the #+PUBLISH: keyword"
(save-excursion
(save-restriction
(widen)
(goto-char (point-min))
(when (re-search-forward
"^#?[ \t]*\\+\\(PUBLISH\\)"
nil t)
(org-export-as-html-batch)
nil))))
(add-hook 'org-mode-hook
(lambda ()
(add-hook (make-local-variable 'write-file-functions)
'wicked/org-publish-files-maybe)))
; remember (a good companion of org-mode)
(require 'remember)
(setq remember-annotation-functions '(org-remember-annotation))
(setq remember-handler-functions '(org-remember-handler))
(add-hook 'remember-mode-hook 'org-remember-apply-template)
(define-key global-map "\C-cr" 'org-remember)
;; Matlab-mode functions
;; (autoload 'matlab-mode "matlab-mode" "Enter Matlab mode." t)
;; (setq auto-mode-alist (cons '("\\.m$" . matlab-mode)
auto-mode-alist))
;; (defun my-matlab-mode-hook ()
;; (setq matlab-function-indent t) ; if you want function bodies
indented
;; (setq fill-column 76) ; where auto-fill should wrap
;; (turn-on-auto-fill))
;; (setq matlab-mode-hook 'my-matlab-mode-hook)
;; Matlab.el functions (newer version of same)
(autoload 'matlab-mode "matlab" "Enter Matlab mode." t)
(autoload 'matlab-shell "matlab" "Interactive Matlab mode." t)
;;
;; User Level customizations (You need not use them all):
(setq matlab-indent-function t) ; if you want function bodies indented
(setq auto-mode-alist (cons '("\\.m\\'" . matlab-mode) auto-mode-alist))
(setq matlab-verify-on-save-flag nil) ; turn off auto-verify on save
(defun my-matlab-mode-hook ()
(setq fill-column 76)) ; where auto-fill should wrap
(add-hook 'matlab-mode-hook 'my-matlab-mode-hook)
(defun my-matlab-shell-mode-hook ()
'())
(add-hook 'matlab-shell-mode-hook 'my-matlab-shell-mode-hook)
;; Set the default major mode
(setq default-major-mode 'text-mode)
;; Add file types to be recognized
(setq auto-mode-alist
(cons '("\\.oct\\'" . matlab-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.h\\'" . c++-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.\\(lex\\|y\\)\\'" . c++-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.sh\\'" . shell-script-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.make\\'" . makefile-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.eps\\'" . postscript-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.epsi\\'" . postscript-mode) auto-mode-alist))
;; Start in abbrev mode
; (setq-default abbrev-mode t)
;; Abbreviation parameters
(quietly-read-abbrev-file "~/.abbrev_defs")
(setq fast-lock-cache-directories '("~/.emacs-flc"))
; crypt
;;tobeinstalled(setq crypt-encryption-type 'pgp
;;tobeinstalled crypt-confirm-password t
;;tobeinstalled crypt-never-ever-decrypt t)
;;tobeinstalled(require 'crypt)
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(Info-additional-directory-list (quote
("/home/bruceh/Tools/gnu/info")))
'(diary-file "~/diary")
'(dired-listing-switches "-alrt")
'(filesets-data (quote (("My Org" (:pattern "~/Admin/Org/"
"^.+\\\\.org$") (:open filesets-find-file)) ("Configuration files"
(:files "~/.bashrc" "~/.bash_profile" "~/.emacs" "~/.aliases")))))
'(inhibit-splash-screen t)
'(inhibit-startup-buffer-menu t)
'(inhibit-startup-screen t)
'(list-directory-verbose-switches "-lrt")
'(org-agenda-custom-commands (quote (("d" todo #("DELEGATED" 0 9
(face org-warning)) nil) ("c" todo #("DONE|DEFERRED|CANCELLED" 0 23
(face org-warning)) nil) ("w" todo #("WAITING" 0 7 (face
org-warning)) nil) ("W" "3-week agenda" agenda "" ((org-agenda-ndays
21))) ("1" "Today's #A tasks" agenda "" ((org-agenda-skip-function
(lambda nil (org-agenda-skip-entry-if (quote notregexp)
"\\=.*\\[#A\\]"))) (org-agenda-ndays 1) (org-agenda-overriding-header
"Today's Priority #A tasks: "))) ("u" "Unscheduled TODO entries"
alltodo "" ((org-agenda-skip-function (lambda nil
(org-agenda-skip-entry-if (quote scheduled) (quote deadline) (quote
regexp) "<[^>]+>"))) (org-agenda-overriding-header "Unscheduled TODO
entries: "))))))
'(org-agenda-dim-blocked-tasks t)
'(org-agenda-files (quote ("~/Admin/Org/ToDo.org"
"~/Admin/Org/Job.org" "~/Admin/Org/InterRisk.org"
"~/Admin/Org/ECOOP.org" "~/Admin/Org/Mersea.IP.org"
"~/Admin/Org/MyOcean.org" "~/Admin/Org/NOOS.org"
"~/Admin/Org/EuroGOOS.org" "~/Admin/Org/SKS-LAT.org"
"~/Admin/Org/Opera.org" "~/Admin/Org/OOMM.org"
"~/Admin/Org/TransHav.org" "~/Admin/Org/SFT-Tareskog.org"
"~/Admin/Org/CIENS.org" "~/Admin/Org/MONBASE.org"
"~/Admin/Org/Forsvar.org" "~/Admin/Org/Private.org")))
'(org-agenda-skip-scheduled-if-done t)
'(org-combined-agenda-icalendar-file "~/Admin/Org/org.ics")
'(org-deadline-warning-days 14)
'(org-default-notes-file "~/Admin/Org/notes.org")
'(org-directory "~/Admin/Org")
'(org-enforce-todo-checkbox-dependencies t)
'(org-enforce-todo-dependencies t)
'(org-icalendar-include-todo (quote all))
'(org-icalendar-store-UID t)
'(org-log-done (quote note))
'(org-remember-store-without-prompt t)
'(org-remember-templates (quote ((116 "* TODO %? %u"
"~/Admin/Org/ToDo.org" "Tasks") (110 "* %u %?"
"~/Admin/Org/notes.org" "Notes"))))
'(org-stuck-projects (quote ("+LEVEL=2/-DONE" ("TODO" "NEXT"
"NEXTACTION" "STARTED" "DELEGATED" "WAITING") nil)))
'(org-tag-alist (quote ((#("@office" 0 7 (face nil)) . 111)
(#("@home" 0 5 (face nil)) . 104) (#("@online" 0 7 (face nil)) . 119)
(#("@computer" 0 9 (face nil)) . 99) (#("phone" 0 5 (face nil)) .
112) (#("email" 0 5 (face nil)) . 101) (#("errand" 0 6 (face nil)) .
114) (#("larspr" 0 6 (face nil)) . 76) (#("goranb" 0 6 (face nil)) .
71) (#("haralde" 0 7 (face nil)) . 72) (#("jonal" 0 5 (face nil)) .
74) (#("anac" 0 4 (face nil)) . 67) (#("yvonneg" 0 7 (face nil)) .
89) (#("annks" 0 5 (face nil)) . 75) (#("arnem" 0 5 (face nil)) . 77)
(#("ingunnb" 0 7 (face nil)) . 73) (#("jensd" 0 5 (face nil)) . 68)
(#("larsab" 0 6 (face nil)) . 66) (#("oyvinds" 0 7 (face nil)) . 79)
(#("oyvindb" 0 7 (face nil)) . 2264) (#("antone" 0 6 (face nil)) .
49) (#("oysteinh" 0 8 (face nil)) . 50) (#("roars" 0 5 (face nil)) .
51) (#("jenss" 0 5 (face nil)) . 52) (#("IT" 0 2 (face nil)) . 105)
(#("@Klover2" 0 8 (face nil)) . 107) (#("@MonaLisa" 0 9 (face nil)) .
109) (#("Anne" 0 4 (face nil)) . 65) (#("Stian" 0 5 (face nil)) . 83)
(#("Eivind" 0 6 (face nil)) . 69) (#("Peg" 0 3 (face nil)) . 80))))
'(org-tags-column -79)
'(org-todo-interpretation (quote type))
'(org-todo-keywords (quote ((sequence "TODO" "NEXTACTION" "STARTED"
"LATER/MAYBE" "WAITING" "DELEGATED" "|" "DEFERRED" "CANCELLED"
"DONE"))))
'(pr-txt-printer-alist (quote ((default "lpr" nil "fou3p1d") (fou3
"lpr" nil "fou3p1d") (color "lpr" nil "fou3p3fd"))))
'(remember-annotation-functions (quote (org-remember-annotation)))
'(remember-data-file "~/Admin/Org/remember.notes")
'(remember-handler-functions (quote (org-remember-handler)))
'(scroll-bar-mode (quote right))
'(tool-bar-mode t)
'(transient-mark-mode t)
'(utf-translate-cjk-mode nil))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(default ((t (:stipple nil :background "white" :foreground "black"
:inverse-video nil :box nil :strike-through nil :overline nil
:underline nil :slant normal :weight normal :height 147 :width normal
:family "misc-fixed"))))
'(cursor ((t (:background "darkred" :weight normal :width normal))))
'(fixed-pitch ((t (:family "fixed"))))
'(font-lock-comment-face ((((class color) (min-colors 88) (background
light)) (:foreground "cornflowerblue"))))
'(italic ((((supports :underline t)) (:underline t))))
'(menu ((((type x-toolkit)) (:height 1.0))))
'(mouse ((t (:background "#000000"))))
'(org-scheduled-today ((((class color) (min-colors 88) (background
light)) (:foreground "DarkGreen")))))
