Re: Charles Cave's .emacs

From: Rustom Mody <rustompmody@gmail.com>
To: emacs-orgmode <emacs-orgmode@gnu.org>
Cc: charles_cave@optusnet.com.au
Subject: Re: Charles Cave's .emacs
Date: Wed, 8 Apr 2009 19:29:55 +0530	[thread overview]
Message-ID: <f46c52560904080659m7bf1fabar8c39c5a5e4ca6633@mail.gmail.com> (raw)
In-Reply-To: <f46c52560903310603n606ecb23m735aa0068a37d079@mail.gmail.com>

[-- Attachment #1.1: Type: text/plain, Size: 771 bytes --]

Just an update.
Attached is my current org-related file as taken off from Charles file
A small bug in Charles' file:
org-time-stamp-rounding-minutes set to 5 (rather than to 2 numbers) had me
spend a day of lisp debugging (not something I am very adept at :-).  [Why
the H___ emacs allows ill-typed customizations when the vars are
meticulously typed?? Gawd knows! ]

Another (unimportant) bug is that  org-log-done should be set to time (not
'(done))  [This is masked because the same setting is an infile setting in
Charles setup]

The rest are cleanups, regularizations and Charles->Rustom conversions

I am posting this here because I'm too dumb to have worked this out on my
own without Charles' excellent tutorial and files and others need
not spend the time I did

[-- Attachment #1.2: Type: text/html, Size: 915 bytes --]

[-- Attachment #2: ccorg.el --]
[-- Type: application/octet-stream, Size: 4990 bytes --]

;;   -*- mode: emacs-lisp  -*-
;; .emacs file     Selected entries from ~/.emacs.el
;; file of Charles Cave to run org-mode 
;; with minor modifications and corrections by Rustom

(require 'org)
(require 'org-agenda)
(require 'remember)
(require 'org-annotation-helper)
(org-remember-insinuate)

(add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
(add-to-list 'auto-mode-alist '("\\.status\\'" . org-mode))

;; The small customizations

(custom-set-faces
 '(org-hide ((((background light)) (:foreground "wheat")))))

(custom-set-variables
 ;; Rustom specific
 '(org-startup-folded t)
 '(org-odd-levels-only t)
 '(org-hide-leading-stars t)

 '(org-time-stamp-custom-formats '("<%a %d %b>" . "<%a %d %b %H:%M>"))

 ;; the year is obvious and wastes space

 ;; Moved here from Charles GTD File
 '(org-tag-alist '((:startgroup . nil)
                   ("OFFICE" . ?o)
                   ("HOME" . ?h)
		   ("GPHOME". ?g)
                   (:endgroup . nil)
                   ("COMPUTER" . ?c )
                   ("PROJECT" . ?p)
                   ("READING" . ?r)
                   ("SHOPPING" . ?s)
                   ))
 '(org-todo-keywords
         '((sequence "TODO(t)" "STARTED(s)" "WAITING(w)" "APPT(a)" 
		     "|" "DONE(d)" "CANCELLED(c)" "DEFERRED(f)")))
 '(org-global-properties
   '(("Effort_ALL". "0:10 0:20 0:30 1:00 2:00 4:00 6:00 8:00")))

 ;; From Charles original customizations and setqs
 '(calendar-week-start-day 1)
 '(org-directory "~/Desktop/orghacks/")
 '(org-agenda-files '("yearcal.org" 
		      "mylife.org"))
 '(org-default-notes-file "~/Desktop/orghacks/.notes")
 '(org-agenda-ndays 7)
 '(org-agenda-repeating-timestamp-show-all nil)
 '(org-agenda-restore-windows-after-quit t)
 '(org-agenda-show-all-dates t)
 '(org-agenda-skip-deadline-if-done t)
 '(org-agenda-skip-scheduled-if-done t)
 '(org-agenda-start-on-weekday nil)
 '(org-agenda-todo-ignore-deadlines t)
 '(org-agenda-todo-ignore-scheduled t)
 '(org-agenda-todo-ignore-with-date t)
 '(org-agenda-window-setup 'other-window)
 '(org-deadline-warning-days 7)
 '(org-agenda-sorting-strategy 
   '((agenda time-up priority-down tag-up) (todo tag-up)))
 '(org-fast-tag-selection-single-key nil)
 '(org-log-done 'time)
 ; Error in Charles file: should be 'time' not 'done'
 ; removed from file customization
 '(org-refile-targets '(("mylife.org" :maxlevel . 1)
			("someday.org" :level . 2)))
 '(org-reverse-note-order nil)
 '(org-tags-column -75)
 '(org-tags-match-list-sublevels nil)
; '(org-time-stamp-rounding-minutes 5)
 ;; spent a day debugging this (cannot be a number but a list of two numbers)
 '(org-use-fast-todo-selection t)
 '(org-use-tag-inheritance nil)
 '(org-agenda-include-diary nil)
 '(org-deadline-warning-days 7)
 '(org-timeline-show-empty-dates t)
 '(org-insert-mode-line-in-empty-file t)
)

; The BIG customizations
(custom-set-variables
 '(org-agenda-sorting-strategy '((agenda time-up priority-down tag-up) (todo tag-up)))

 '(org-export-html-style "<link rel=\"stylesheet\" type=\"text/css\" href=\"mystyles.css\">")

 '(org-agenda-exporter-settings
      '((ps-number-of-columns 1)
        (ps-landscape-mode t)
        (htmlize-output-type 'css)))

 '(org-remember-templates 
'(
  ("Todo" ?t "* TODO %^{Brief Description} %^g\n%?\nAdded: %U"  "~/Desktop/orghacks/mylife.org" "Tasks")
  ("Private" ?p "\n* %^{topic} %T \n%i%?\n" "~/Desktop/orghacks/privnotes.org")
  ("WordofDay" ?w "\n* %^{topic} \n%i%?\n" "~/Desktop/orghacks/wotd.org")
  ))

 '(org-agenda-custom-commands
'(

("P" "Projects"   
((tags "PROJECT")))

("H" "Office and Home Lists"
     ((agenda)
          (tags-todo "OFFICE")
          (tags-todo "HOME")
          (tags-todo "COMPUTER")
          (tags-todo "DVD")
          (tags-todo "READING")))

("D" "Daily Action List"
     (
          (agenda "" ((org-agenda-ndays 1)
                      (org-agenda-sorting-strategy
                       '((agenda time-up priority-down tag-up) ))
                      (org-deadline-warning-days 0)
                      ))))
)
))

;Hookly things

(add-hook 'remember-annotation-functions 'org-remember-annotation)
(add-hook 'remember-handler-functions 'org-remember-handler)
(add-hook 'org-mode-hook 'org-toggle-time-stamp-overlays)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(add-hook 'remember-mode-hook 'org-remember-apply-template)
(add-hook 'org-agenda-mode-hook 'hl-line-mode)

;; Keybindings
(global-set-key (kbd "C-c l")   'org-store-link)
(global-set-key (kbd "C-c a")   'org-agenda)
(global-set-key (kbd "C-c r")   'org-remember)
(global-set-key [f8]            'remember)
(global-set-key [f9]            'remember-region)
(global-set-key (kbd "C-c g")   'gtd)
(global-set-key (kbd "C-x C-l") 'goto-line)
(global-set-key (kbd "C-x C-y") 'copy-region-as-kill)

(defun gtd ()
    (interactive)
    (find-file "~/Desktop/orghacks/mylife.org")
)

[-- Attachment #3: Type: text/plain, Size: 204 bytes --]

_______________________________________________
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