* Charles Cave's .emacs
@ 2009-03-31 13:03 Rustom Mody
2009-04-01 1:04 ` Charles Cave
2009-04-08 13:59 ` Rustom Mody
0 siblings, 2 replies; 3+ messages in thread
From: Rustom Mody @ 2009-03-31 13:03 UTC (permalink / raw)
To: emacs-orgmode; +Cc: charles_cave
[-- Attachment #1.1: Type: text/plain, Size: 559 bytes --]
I am trying to use Charles Cave's 'How I use Emacs and Org-mode to implement
GTD' as a starter for myself.
So I took his .emacs and am in the process of making it my (org part of)
emacs setup
I found that some parts are relevant to org and some not.
So Ive split it into two files ccorg.el and otherccorg.el which Ive
attached.
ccorg.el + otherccorg.el should (hopefully!) add up to original Charles'
file
Whats the best require.. org-install etc sequence is not clear so Ive
removed that
And Ive put in some other comments preceded with RC: (Rustom Comment)
[-- Attachment #1.2: Type: text/html, Size: 652 bytes --]
[-- Attachment #2: ccorg.el --]
[-- Type: application/octet-stream, Size: 4029 bytes --]
;; -*- mode: emacs-lisp -*-
;; RC: changed it from lisp to emacs-lisp. Why lisp??
;; RC is Rustom comment
;; .emacs file Selected entries from ~/.emacs.el
;; file of Charles Cave to run org-mode
(add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
(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.
;; RC: Well this is edited by hand... quite a bit
'(calendar-week-start-day 1)
'(org-agenda-files '("c:/Charles/GTD/birthday.org" "c:/Charles/GTD/newgtd.org"))
'(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-sorting-strategy '((agenda time-up priority-down tag-up) (todo tag-up)))
'(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-export-html-style "<link rel=\"stylesheet\" type=\"text/css\" href=\"mystyles.css\">")
;; RC: Charles has not supplied mystyles.css (as far as I know)
'(org-fast-tag-selection-single-key nil)
'(org-log-done '(done))
'(org-refile-targets '(("newgtd.org" :maxlevel . 1) ("someday.org" :level . 2)))
'(org-reverse-note-order nil)
'(org-tags-column -78)
'(org-tags-match-list-sublevels nil)
'(org-time-stamp-rounding-minutes 5)
'(org-use-fast-todo-selection t)
'(org-use-tag-inheritance nil)
'(org-log-done 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)
'(org-directory "~/orgfiles/")
'(org-default-notes-file "~/.notes")
)
;Hookly things
(setq remember-annotation-functions '(org-remember-annotation))
(setq remember-handler-functions '(org-remember-handler))
(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)
;; RC: keybinding stuff put together
;; RC: Im assuming that global-set-key == def-key global-map ... dont know about more arcane distinctions
;; RC: regularized "\Cs to (kbd "C-
(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)
; The major customizations
(custom-set-variables
'(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" "c:/charles/GTD/newgtd.org" "Tasks")
("Private" ?p "\n* %^{topic} %T \n%i%?\n" "C:/charles/gtd/privnotes.org")
("WordofDay" ?w "\n* %^{topic} \n%i%?\n" "C:/charles/gtd/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)
))))
)
))
(defun gtd ()
(interactive)
(find-file "c:/charles/gtd/newgtd.org")
)
[-- Attachment #3: otherccorg.el --]
[-- Type: application/octet-stream, Size: 1705 bytes --]
(setq load-path (append load-path (list "L:/elisp")))
(custom-set-variables
'(auto-raise-tool-bar-buttons t t)
'(auto-resize-tool-bars t t)
'(case-fold-search t)
'(current-language-environment "Latin-1")
'(default-input-method "latin-1-prefix")
'(make-backup-files nil)
'(normal-erase-is-backspace t)
'(unify-8859-on-encoding-mode t nil (ucs-tables))
'(default-major-mode 'text-mode)
)
;; RC why setq-default and not a custom-set-variables?
; Save files in DOS mode
(setq-default buffer-file-coding-system 'raw-text-dos)
; dont use tabs for indenting
; seems to be for python programming??
(setq-default indent-tabs-mode nil)
(setq-default tab-width 3)
;; These lines only if org-mode is not part of the X/Emacs distribution.
;; is this the way to do these things??
(autoload 'org-mode "org" "Org mode" t)
(autoload 'org-diary "org" "Diary entries from Org mode")
(autoload 'org-agenda "org" "Multi-file agenda from Org mode" t)
(autoload 'org-store-link "org" "Store a link to the current location" t)
(autoload 'orgtbl-mode "org" "Org tables as a minor mode" t)
(autoload 'turn-on-orgtbl "org" "Org tables as a minor mode")
(require 'org-install)
(add-to-list 'load-path "L:/elisp/")
(add-to-list 'load-path "L:/elisp/remember-1.9/")
(autoload 'remember "remember" nil t)
(autoload 'remember-region "remember" nil t)
;; Changes all yes/no questions to y/n type
(fset 'yes-or-no-p 'y-or-n-p)
(set-variable 'confirm-kill-emacs 'yes-or-no-p)
(global-set-key "\C-x\C-r" 'prefix-region) ;; whats that
;; Highlight text chosen in with Mark region
;; momentary mark is enough most of the time
(transient-mark-mode t)
(global-font-lock-mode t)
[-- Attachment #4: 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
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Charles Cave's .emacs
2009-03-31 13:03 Charles Cave's .emacs Rustom Mody
@ 2009-04-01 1:04 ` Charles Cave
2009-04-08 13:59 ` Rustom Mody
1 sibling, 0 replies; 3+ messages in thread
From: Charles Cave @ 2009-04-01 1:04 UTC (permalink / raw)
To: emacs-orgmode
Rustom Mody <rustompmody <at> gmail.com> writes:
One of the cokments was that I had not supplied mystyles.css
You can download it from here:
http://members.optusnet.com.au/~charles57/GTD/mystyles.css
Charles
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: Charles Cave's .emacs
2009-03-31 13:03 Charles Cave's .emacs Rustom Mody
2009-04-01 1:04 ` Charles Cave
@ 2009-04-08 13:59 ` Rustom Mody
1 sibling, 0 replies; 3+ messages in thread
From: Rustom Mody @ 2009-04-08 13:59 UTC (permalink / raw)
To: emacs-orgmode; +Cc: charles_cave
[-- 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
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2009-04-08 14:00 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2009-03-31 13:03 Charles Cave's .emacs Rustom Mody
2009-04-01 1:04 ` Charles Cave
2009-04-08 13:59 ` Rustom Mody
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).