From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: 6.29c breaks my agenda weekly view Date: Wed, 12 Aug 2009 12:59:11 +0200 Message-ID: References: <4A828B7A.6020109@met.no> <57875844-E95F-43F0-B01E-CDE42AC4AFB2@gmail.com> <4A829D3F.5000408@met.no> Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=WINDOWS-1252; format=flowed; delsp=yes Content-Transfer-Encoding: quoted-printable Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1MbBYA-000548-Sq for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 06:59:22 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1MbBY5-00052l-KE for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 06:59:21 -0400 Received: from [199.232.76.173] (port=46513 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1MbBY5-00052i-Ep for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 06:59:17 -0400 Received: from mail-ew0-f207.google.com ([209.85.219.207]:55070) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1MbBY4-0000tw-9h for emacs-orgmode@gnu.org; Wed, 12 Aug 2009 06:59:16 -0400 Received: by ewy3 with SMTP id 3so140774ewy.42 for ; Wed, 12 Aug 2009 03:59:15 -0700 (PDT) In-Reply-To: <4A829D3F.5000408@met.no> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Bruce Hackett Cc: emacs-orgmode@gnu.org I cannot reproduce this and believe that something must be wrong in =20 your setup. It seems that the variable org-deadline-time-regexp is not defined. =20 The only reason how this could be is that your ToDo.org file is *not* =20= in Org-mode. - Carsten On Aug 12, 2009, at 12:45 PM, Bruce Hackett wrote: > 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 =20= >>> (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 =20 >>> properly. I have not changed anything else. This indicates that =20 >>> the problem arose between 6.28e and 6.29c. >>> >>> I have looked through the gmane threads and the 6.29 release notes =20= >>> from Carsten, but I cannot find anything that would explain this =20 >>> (I may well have overlooked something). I guess this is a trivial =20= >>> 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-=20 > skip) (setq s ... txt nil pos ... d2 ... diff ... wdays ... =20 > dfrac ... upcomingp ...) (if ... ...))) > (let* ((props ...) (regexp org-deadline-time-regexp) (todayp ...) =20 > (d1 ...) d2 diff dfrac wdays pos pos1 category tags ee txt head face =20= > s todo-state upcomingp donep timestr) (goto-char (point-min)) (while =20= > (re-search-forward regexp nil t) (catch :skip ... ... ...)) =20 > (nreverse ee)) > org-agenda-get-deadlines() > (setq rtn (org-agenda-get-deadlines)) > (cond ((and ... ...) (setq rtn ...) (setq results ...)) ((eq =20 > arg :timestamp) (setq rtn ...) (setq results ...) (setq rtn ...) =20 > (setq results ...)) ((eq arg :sexp) (setq rtn ...) (setq =20 > results ...)) ((eq arg :scheduled) (setq rtn ...) (setq =20 > results ...)) ((eq arg :closed) (setq rtn ...) (setq results ...)) =20 > ((eq arg :deadline) (setq rtn ...) (setq results ...))) > (while (setq arg (pop args)) (cond (... ... ...) =20 > (... ... ... ... ...) (... ... ...) (... ... ...) (... ... ...) =20 > (... ... ...))) > (save-restriction (if org-agenda-restrict (narrow-to-region org-=20 > agenda-restrict-begin org-agenda-restrict-end) (widen)) (while (setq =20= > arg ...) (cond ... ... ... ... ... ...))) > (save-excursion (save-restriction (if org-agenda-restrict ... ...) =20= > (while ... ...))) > (let ((case-fold-search nil)) (save-excursion (save-=20 > restriction ... ...))) > (save-current-buffer (set-buffer buffer) (unless (org-mode-p) =20 > (error "Agenda file %s is not in `org-mode'" file)) (let (...) (save-=20= > excursion ...)) results) > (with-current-buffer buffer (unless (org-mode-p) (error "Agenda =20 > file %s is not in `org-mode'" file)) (let (...) (save-=20 > excursion ...)) results) > (if (not buffer) (list (format "ORG-AGENDA-ERROR: No such org-file =20= > %s" file)) (with-current-buffer buffer (unless ... ...) =20 > (let ... ...) results)) > (let* ((org-startup-folded nil) (org-startup-align-all-tables nil) =20= > (buffer ...) arg results rtn) (if (not buffer) (list ...) (with-=20 > current-buffer buffer ... ... results))) > org-agenda-get-day-entries("~/Admin/Org/ToDo.org" (8 10 =20 > 2009) :deadline :scheduled :sexp :timestamp) > (setq rtn (org-agenda-get-day-entries file =20 > date :deadline :scheduled :sexp :timestamp)) > (cond ((eq org-agenda-show-log ...) (setq rtn ...)) (org-agenda-=20 > show-log (setq rtn ...)) (t (setq rtn ...))) > (catch (quote nextfile) (org-check-agenda-file file) (cond =20 > (... ...) (org-agenda-show-log ...) (t ...)) (setq rtnall (append =20 > rtnall rtn))) > (while (setq file (pop files)) (catch (quote nextfile) (org-check-=20 > agenda-file file) (cond ... ... ...) (setq rtnall ...))) > (while (setq d (pop day-numbers)) (setq date (calendar-gregorian-=20 > from-absolute d) wd (calendar-day-of-week date) s (point)) (if =20 > (or ... ...) (setq start-pos ...) (if ... ...)) (setq files thefiles =20= > rtnall nil) (while (setq file ...) (catch ... ... ... ...)) (if org-=20= > agenda-include-diary (let ... ... ... ...)) (if (or rtnall org-=20 > agenda-show-all-dates) (progn ... ... ... ... ... ... ... ... ...))) > (let* ((org-agenda-start-on-weekday ...) (thefiles ...) (files =20 > thefiles) (today ...) (sd ...) (start ...) (day-numbers ...) (day-=20 > cnt 0) (inhibit-redisplay ...) s e rtn rtnall file date d start-pos =20= > end-pos todayp nd wd clocktable-start clocktable-end) (setq org-=20 > agenda-redo-command (list ... ... start-day ndays)) (setq ndays (or =20= > ndays org-agenda-ndays) nd ndays) (while (> ndays 1) (push ... day-=20 > numbers) (setq ndays ...)) (setq day-numbers (nreverse day-numbers)) =20= > (setq clocktable-start (car day-numbers) clocktable-end (1+ ...)) =20 > (org-prepare-agenda "Day/Week") (org-set-local (quote org-starting-=20 > day) (car day-numbers)) (org-set-local (quote org-include-all-loc) =20 > include-all) (org-set-local (quote org-agenda-span) (org-agenda-=20 > ndays-to-span nd)) (when (and ... ...) (setq files thefiles rtnall =20 > nil) (while ... ...) (when rtnall ... ... ...)) (unless org-agenda-=20 > compact-blocks (let* ... ... ...) (add-text-properties s ... ...)) =20 > (while (setq d ...) (setq date ... wd ... s ...) (if ... ... ...) =20 > (setq files thefiles rtnall nil) (while ... ...) (if org-agenda-=20 > include-diary ...) (if ... ...)) (when (and org-agenda-clockreport-=20 > mode clocktable-start) (let ... ... ... ... ... ... ...)) (goto-char =20= > (point-min)) (or org-agenda-multi (org-fit-agenda-window)) (unless =20 > (and ... ...) (goto-char ...) (recenter -1) (if ... ...)) (goto-char =20= > (or start-pos 1)) (add-text-properties (point-min) (point-max) =20 > (quote ...)) (org-finalize-agenda) (setq buffer-read-only t) =20 > (message "")) > org-agenda-list(nil) > call-interactively(org-agenda-list) > (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq =20 > org-agenda-custom-commands org-agenda-custom-commands-orig) =20 > (customize-variable ...)) ((equal keys "a") (call-=20 > interactively ...)) ((equal keys "s") (call-interactively ...)) =20 > ((equal keys "t") (call-interactively ...)) ((equal keys "T") (org-=20 > call-with-arg ... ...)) ((equal keys "m") (call-interactively ...)) =20= > ((equal keys "M") (org-call-with-arg ... ...)) ((equal keys "e") =20 > (call-interactively ...)) ((equal keys "L") (unless ... ...) (unless =20= > restriction ... ...)) ((equal keys "#") (call-interactively ...)) =20 > ((equal keys "/") (call-interactively ...)) ((equal keys "!") =20 > (customize-variable ...)) (t (error "Invalid agenda key"))) > (let* ((prefix-descriptions nil) (org-agenda-custom-commands-orig =20 > org-agenda-custom-commands) (org-agenda-custom-commands ...) =20 > (buf ...) (bfn ...) entry key type match lprops ans) (unless org-=20 > agenda-overriding-restriction (put ... ... nil) (setq org-agenda-=20 > restrict nil) (move-marker org-agenda-restrict-begin nil) (move-=20 > marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-=20 > command) (quote org-lprops) nil) (setq org-agenda-last-dispatch-=20 > buffer (current-buffer)) (unless keys (setq ans ... keys ... =20 > restriction ...)) (when (and ... restriction) (put ... ... ...) =20 > (cond ... ...)) (require (quote calendar)) (cond (... ...) =20 > (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...) =20 > (... ...) (... ...) (... ... ...) (... ...) (... ...) (... ...) =20 > (t ...))) > (catch (quote exit) (let* (... ... ... ... ... entry key type match =20= > lprops ans) (unless org-agenda-overriding-=20 > restriction ... ... ... ...) (put ... ... nil) (setq org-agenda-last-=20= > dispatch-buffer ...) (unless keys ...) (when ... ... ...) =20 > (require ...) =20 > (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 =20= > on-the-fly > > > > > ;; Options Menu Settings > ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D > (cond > ((and (string-match "XEmacs" emacs-version) > (boundp 'emacs-major-version) > (or (and > (=3D emacs-major-version 19) > (>=3D emacs-minor-version 14)) > (=3D emacs-major-version 21)) > (fboundp 'load-options-file)) > (load-options-file "~/.xemacs-options"))) > ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D > ;; 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 \n" > "#include \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 \n" > "#include \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 =20 > 'font) '((global (nil . "-*-Lucidatypewriter-Medium-R-*-*-=20 > *-140-75-75-*-*-ISO8859-1")))) > ;;bh-reinstall(add-spec-list-to-specifier (face-property 'bold =20 > 'font) '((global (nil . "-*-Lucidatypewriter-Bold-R-*-*-*-140-75-75-=20= > *-*-ISO8859-1")))) > ;;bh-reinstall(add-spec-list-to-specifier (face-property 'italic =20 > 'font) '((global (nil . "-*-courier-medium-i-*-*-*-140-75-75-*-*-=20 > iso8859-1")))) > ;;bh-reinstall(add-spec-list-to-specifier (face-property 'bold-=20 > italic 'font) '((global (nil . "-*-courier-bold-i-*-*-*-140-75-75-*-=20= > *-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.Hackett@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 =20= > 4 year)) > (setq calendar-daylight-savings-ends '(calendar-nth-named-day -1 0 =20 > 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 =20= > 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 =3D>'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-=20 > 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 > ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D > ; > > ; 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 > ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D > ; > (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 > ;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D > ; > ; 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]+=E2=86=92.*" > 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 =20 > 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-=20 > alist)) > ;; (defun my-matlab-mode-hook () > ;; (setq matlab-function-indent t) ; if you want function bodies =20= > 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 =20 > indented > (setq auto-mode-alist (cons '("\\.m\\'" . matlab-mode) auto-mode-=20 > 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/=20 > info"))) > '(diary-file "~/diary") > '(dired-listing-switches "-alrt") > '(filesets-data (quote (("My Org" (:pattern "~/Admin/Org/" "^.+\\\=20 > \.org$") (:open filesets-find-file)) ("Configuration files" (:files =20= > "~/.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 =20 > (face org-warning)) nil) ("c" todo #("DONE|DEFERRED|CANCELLED" 0 23 =20= > (face org-warning)) nil) ("w" todo #("WAITING" 0 7 (face org-=20 > warning)) nil) ("W" "3-week agenda" agenda "" ((org-agenda-ndays =20 > 21))) ("1" "Today's #A tasks" agenda "" ((org-agenda-skip-function =20 > (lambda nil (org-agenda-skip-entry-if (quote notregexp) "\\=3D.*\\[#A\=20= > \]"))) (org-agenda-ndays 1) (org-agenda-overriding-header "Today's =20 > Priority #A tasks: "))) ("u" "Unscheduled TODO entries" alltodo =20 > "" ((org-agenda-skip-function (lambda nil (org-agenda-skip-entry-if =20= > (quote scheduled) (quote deadline) (quote regexp) "<[^>]+>"))) (org-=20= > agenda-overriding-header "Unscheduled TODO entries: ")))))) > '(org-agenda-dim-blocked-tasks t) > '(org-agenda-files (quote ("~/Admin/Org/ToDo.org" "~/Admin/Org/=20 > Job.org" "~/Admin/Org/InterRisk.org" "~/Admin/Org/ECOOP.org" "~/=20 > Admin/Org/Mersea.IP.org" "~/Admin/Org/MyOcean.org" "~/Admin/Org/=20 > NOOS.org" "~/Admin/Org/EuroGOOS.org" "~/Admin/Org/SKS-LAT.org" "~/=20 > Admin/Org/Opera.org" "~/Admin/Org/OOMM.org" "~/Admin/Org/=20 > TransHav.org" "~/Admin/Org/SFT-Tareskog.org" "~/Admin/Org/CIENS.org" =20= > "~/Admin/Org/MONBASE.org" "~/Admin/Org/Forsvar.org" "~/Admin/Org/=20 > 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/=20 > ToDo.org" "Tasks") (110 "* %u %?" "~/Admin/Org/notes.org" "Notes")))) > '(org-stuck-projects (quote ("+LEVEL=3D2/-DONE" ("TODO" "NEXT" =20 > "NEXTACTION" "STARTED" "DELEGATED" "WAITING") nil))) > '(org-tag-alist (quote ((#("@office" 0 7 (face nil)) . 111) =20 > (#("@home" 0 5 (face nil)) . 104) (#("@online" 0 7 (face nil)) . =20 > 119) (#("@computer" 0 9 (face nil)) . 99) (#("phone" 0 5 (face =20 > nil)) . 112) (#("email" 0 5 (face nil)) . 101) (#("errand" 0 6 (face =20= > nil)) . 114) (#("larspr" 0 6 (face nil)) . 76) (#("goranb" 0 6 (face =20= > nil)) . 71) (#("haralde" 0 7 (face nil)) . 72) (#("jonal" 0 5 (face =20= > nil)) . 74) (#("anac" 0 4 (face nil)) . 67) (#("yvonneg" 0 7 (face =20 > nil)) . 89) (#("annks" 0 5 (face nil)) . 75) (#("arnem" 0 5 (face =20 > nil)) . 77) (#("ingunnb" 0 7 (face nil)) . 73) (#("jensd" 0 5 (face =20= > nil)) . 68) (#("larsab" 0 6 (face nil)) . 66) (#("oyvinds" 0 7 (face =20= > nil)) . 79) (#("oyvindb" 0 7 (face nil)) . 2264) (#("antone" 0 6 =20 > (face nil)) . 49) (#("oysteinh" 0 8 (face nil)) . 50) (#("roars" 0 5 =20= > (face nil)) . 51) (#("jenss" 0 5 (face nil)) . 52) (#("IT" 0 2 (face =20= > nil)) . 105) (#("@Klover2" 0 8 (face nil)) . 107) (#("@MonaLisa" 0 9 =20= > (face nil)) . 109) (#("Anne" 0 4 (face nil)) . 65) (#("Stian" 0 5 =20 > (face nil)) . 83) (#("Eivind" 0 6 (face nil)) . 69) (#("Peg" 0 3 =20 > (face nil)) . 80)))) > '(org-tags-column -79) > '(org-todo-interpretation (quote type)) > '(org-todo-keywords (quote ((sequence "TODO" "NEXTACTION" "STARTED" =20= > "LATER/MAYBE" "WAITING" "DELEGATED" "|" "DEFERRED" "CANCELLED" =20 > "DONE")))) > '(pr-txt-printer-alist (quote ((default "lpr" nil "fou3p1d") (fou3 =20 > "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 =20 > "black" :inverse-video nil :box nil :strike-through nil :overline =20 > nil :underline nil :slant normal :weight normal :height 147 :width =20 > 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) =20 > (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 =20 > light)) (:foreground "DarkGreen"))))) >