From: James TD Smith <ahktenzero@mohorovi.cc>
To: emacs-orgmode@gnu.org
Subject: Re: POLL: the 40 variables project
Date: Sun, 1 Feb 2009 15:18:04 +0000 [thread overview]
Message-ID: <20090201151804.GD2267@yog-sothoth.mohorovi.cc> (raw)
In-Reply-To: <FD50CA36-A385-4C80-8E86-E3BE9F352B0A@uva.nl>
Hi Carsten,
On 2009-01-29 09:49:21(+0100), Carsten Dominik wrote:
> So here is my question to all of you. Could you, in reply to this
> message, list all the Org-related variables that you have customized,
> along with the values you used?
Here are my org settings, with commentary. I've included definitions for
org-related functions as well.
; I use frequently use org in a terminal, so I need the replacement keys.
(setq org-replace-disputed-keys t)
(setq org-disputed-keys
'(([(shift up)] . [(control c) (up)])
([(shift down)] . [(control c) (down)])
([(shift left)] . [(control c) (left)])
([(shift right)] . [(control c) (right)])
([(control shift right)] . [(control c) (control x) (right)])
([(control shift left)] . [(control c) (control x) (left)])))
; Clock persistence
(org-clock-persistence-insinuate)
(setq org-clock-persist t) ; Persist clock data
(setq org-clock-in-resume t) ; Resume persisted clock when loading emacs
(setq org-clock-persist-query-resume nil) ; Resume clock without asking
(aput 'auto-mode-alist "\\.org$" (function org-mode))
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)
(define-key global-map "\C-cf" 'org-footnote-action)
(define-key org-mode-map "\C-\M-g" 'org-plot/gnuplot)
(setq org-log-done t)
; I use the emacs diary mostly for things like
(setq org-agenda-include-diary t)
; TODO sequences.
(setq org-todo-keywords
'((sequence "TODO" "|" "DONE")
(sequence "PLANNING" "PARTS" "FABRICATION" "REVISION" "SUSPENDED" "|"
"COMPLETED" "CANCELLED")
(sequence "DESIGN" "CODING" "PACKAGING" "|" "COMPLETE" "CANCELLED")
(sequence "INVESTIGATE(i)" "TOGET(g)" "ORDERED(!@o)" "|"
"GOT(r)" "UNNEEDED(!@u)")
(sequence "INVESTIGATE(i)" "TOGET(g)" "TOREAD(t)" "READING(r)" "|"
"READ(d)" "UNNEEDED(!@u)")
(sequence "PROPOSED(p)" "TRIAL(t)" "|" "ACCEPTED(!@a)" "REJECTED(!@r)")
(sequence "INVESTIGATE(i)" "TOGET(g)" "TOLISTEN(l)" "LISTENING(L)" "|"
"HEARD(h)" "NOTINTERESTED(@n)")
(sequence "INVESTIGATE(i)" "TOGET(g)" "TOWATCH(w)" "WATCHING(W)" "|"
"WATCHED(d)" "NOTINTERESTED(@n)")))
I also have some per-file settings:
#+SEQ_TODO: PLANNED(p) TODO(t) FEEDBACK(f) | DONE(d) ASSIGNED(a) CANCELLED(c) LATER(l)
; Some of my entries contain extensive notes in plain list format, so being able
; to fold them is useful.
(setq org-cycle-include-plain-lists t)
; Turn on tag inheritance
(setq org-use-tag-inheritance t)
; Make headlines with inherited tags show up in tag searches
(setq org-tags-match-list-sublevels t)
(setq org-directory "~/Personal")
(setq org-special-ctrl-a/e 'reversed)
; Hide scheduled items which I've done.
(setq org-agenda-skip-scheduled-if-done t)
; I can fit ~155 characters across the screen; 3 more are needed for the
; ellipsis for folded items, so -150 is about right for the tag position.
(setq org-tags-column -150)
; Use the same settings in the agenda
(setq org-agenda-tags-column org-tags-column)
; Always put clock items into drawers.
(setq org-clock-into-drawer t)
; I set this when the default was changed to f, but I just use C-u TAB now.
(setq org-cycle-global-at-bob t)
(setq org-refile-use-outline-path t)
(setq org-outline-path-complete-in-steps nil)
(setq org-context-in-file-links nil)
(setq org-confirm-elisp-link-function 'y-or-n-p)
; I like to see how much time I've spent on things in the agenda
(setq org-agenda-start-with-clockreport-mode t)
(setq org-agenda-sorting-strategy
'((agenda time-up priority-down effort-up category-up )
(todo priority-down effort-up category-up)
(tags priority-down effort-up category-keep)
(search category-keep)))
; Four priority levels. Items with no set priority are equivalent to the lowest.
(setq org-default-priority ?D)
(setq org-lowest-priority ?D)
(setq org-empty-line-terminates-plain-lists nil)
; I prefer to keep my drawers at the top of items.
(setq org-log-state-notes-insert-after-drawers t)
(setq org-completion-use-ido t)
; Makes the display look nicer
(setq org-hide-leading-stars t)
;;Stop org from opening DXFs in emacs
(add-to-list 'org-file-apps '("dxf" . "qcad %s"))
; Use my style sheet for HTML export
(setq org-export-html-style
"<link rel=\"stylesheet\" type=\"text/css\" href=\"ahktdefault.css\"")
;;Default notes file, publishing and agenda files settings. These are different
;;for home and at work.
(cond ((string= (getenv "USER") "james")
(setq org-default-notes-file
"~/work/currentproj/planning/main.org")
(setq org-publish-project-alist
'(("orgfiles"
:base-directory "~/work/currentproj/planning"
:base-extension "org"
:exclude "\\(testCardData.org\\|misc.org\\)"
:publishing-directory "~/public_html"
:auto-index t
:index-title "Box Office Work Status")
("css"
:base-directory "~/stuff/homedir/config"
:base-extension "css"
:publishing-directory "~/public_html"
:publishing-function org-publish-attachment)
("main" :components ("orgfiles" "css"))))
(setq org-agenda-files (quote ("~/work/currentproj/planning/main.org"
"~/work/currentproj/planning/misc.org"
"~/work/currentproj/planning/version1.org"
"~/work/currentproj/planning/version2.org"
"~/work/currentproj/planning/version2.org")))
(setq org-refile-targets '((org-agenda-files . (:maxlevel . 2))
(nil . (:maxlevel . 3)))))
((string= (getenv "USER") "ahktenzero")
(setq org-default-notes-file "~/Personal/notes.org")
(setq org-agenda-files
(list "~/Personal/Personal.org"
"~/Personal/Business.org"
"~/Personal/Financial.org"
"~/Personal/Household.org"
"~/Personal/ReadingList.org"
"~/Personal/Web.org"
"~/Personal/stuff.org"
"~/Personal/projects.org"
"~/Personal/shoppingList.org"
"~/Personal/rebuild.org"
"~/Personal/Audio.org"
"~/Personal/stores.org"
"~/Personal/Video.org"
"~/Personal/Interactive.org"
"~/Personal/org-mode.org"
"~/projects/Gear/Gear.org"
"~/projects/Construction/Construction.org"
"~/src/gorge/doc/gorge.org"
"~/src/Xspansion/Xspansion.org"
"~/work/employer/currentproj/planning/main.org"))
(setq single-org-files (list "~/Personal/ReadingList.org"
"~/Personal/Audio.org"
"~/Personal/notes.org"
"~/Personal/Interactive.org"
"~/Personal/Web.org"
"~/Personal/org-mode.org"
"~/Personal/Video.org"))
(setq double-org-files (list "~/Personal/Personal.org"
"~/Personal/Business.org"
"~/Personal/Financial.org"
"~/Personal/stuff.org"
"~/Personal/shoppingList.org"
"~/Personal/rebuild.org"
"~/Personal/projects.org"
"~/Personal/Household.org"
"~/projects/Gear/Gear.org"))
(setq org-refile-targets '((single-org-files . (:maxlevel . 1))
(double-org-files . (:maxlevel . 2))
(nil . (:maxlevel . 3)))))
(t "Not setting org notes/publish settings"))
;; Remember
(add-to-list 'load-path "~/share/emacs/site-lisp/remember")
(org-remember-insinuate)
; My remember templates.
(setq org-remember-templates
(list
'("Task" ?t "* TODO %i%?\n%U" "~/Personal/stuff.org" bottom)
'("Task (l)"?T "* TODO %^C%?\n%U\n%a" "~/Personal/stuff.org" bottom)
'("Scheduled" ?S "* TODO %^C%?\n%^{When}T" "~/Personal/Personal.org"
"Appointments")
'("Project" ?p "* PLANNING %^C%?\n%U\n%K" "~/Personal/projects.org"
bottom)
'("Project (l)" ?P "* PLANNING %^L%?\n%U\n%K\n%a"
"~/Personal/projects.org" bottom)
'("Note" ?n "* %^C%?\n %U\n" "~/Personal/notes.org" "Notes")
'("Note (ann)" ?N "* %^C%?\n %U\n %a" "~/Personal/notes.org" "Notes")
;Web-related stuff
'("Web reading" ?w "* TOREAD %^L\n%U %k\n%? "
"~/Personal/Web.org" "Web sites to read")
'("Web reading <" ?W "* TOREAD %^L (%K)\n%U\n%?"
"~/Personal/Web.org" "Web sites to read")
'("Bookmark" ?b "* %^L\n%U\n%?" "~/Personal/bookmarks.org" "Bookmarks")
;Reading list
'("Book" ?r
"* INVESTIGATE %^{Title} %?%^g\n %U %k\n%^{AUTHOR}p %^{ISBN}p"
"~/Personal/ReadingList.org" "Books")
'("Book (clipboard)" ?R
"* INVESTIGATE %^C %?%^g\n %U %k\n%^{AUTHOR}p %^{ISBN}p"
"~/Personal/ReadingList.org" "Books")
;;Video
'("Video" ?v
"* INVESTIGATE %^{Title} %? %^g \n%U %k%^{Type}p%^{Length}p%^{Year}p"
"~/Personal/Video.org" top)
'("Video (c)" ?V
"* INVESTIGATE %^C%? %^g\n%U %k%^{Type}p%^{Length}p%^{Year}p"
"~/Personal/Video.org" top)
'("Game" ?g "* INVESTIGATE %^{Title} %? %^g \n%U %k"
"~/Personal/Interactive.org" top)
'("Game (l)" ?G "* INVESTIGATE %^L %? %^g \n%U %k"
"~/Personal/Interactive.org" top)))
; Remember templates in plist format, from the improved org-remember I'm working
; on.
(setq org-remember-templates-2
(list
'(:name "Task" :key ?t :template "* TODO %i%?\n%U"
:target "~/Personal/stuff.org")
'(:name "Task (l)" :key ?T :template "* TODO %^C%?\n%U\n%a"
:target "~/Personal/stuff.org")
'(:name "Scheduled" :key ?S :template "* TODO %^C%?\n%^{When}T"
:target "~/Personal/Personal.org::Appointments")
'(:name "Project" :key ?p :template "* PLANNING %^C%?\n%U\n%K"
:target "~/Personal/projects.org")
'(:name "Project (l)" :key ?P :template "* PLANNING %^L%?\n%U\n%K\n%a"
:target "~/Personal/projects.org")
'(:name "Note" :key ?n :template "* %^C%?\n %U\n"
:target "~/Personal/notes.org::Notes")
'(:name "Note (ann)" :key ?N :template "* %^C%?\n %U\n %a"
:target "~/Personal/notes.org::Notes")
;Web-related stuff
'(:name "Web reading" :key ?w :template "* TOREAD %^L\n%U %k\n%? "
:target "~/Personal/Web.org::Web sites to read")
'(:name "Web reading <" :key ?W :template "* TOREAD %^L (%K)\n%U\n%?"
:target "~/Personal/Web.org::Web sites to read")
'(:name "Bookmark" :key ?b :template "* %^L\n%U\n%?"
:target "~/Personal/bookmarks.org::Bookmarks")
;Reading list
'(:name "Book" :key ?r
:template "* INVESTIGATE %^{Title} %?%^g\n %U %k\n%^{AUTHOR}p %^{ISBN}p"
:target "~/Personal/ReadingList.org::Books")
'(:name "Book (clipboard)" :key ?R
:template "* INVESTIGATE %^C %?%^g\n %U %k\n%^{AUTHOR}p %^{ISBN}p"
:target "~/Personal/ReadingList.org::Books")
;;Video
'(:name "Video" :key ?v
:template "* INVESTIGATE %^{Title} %? %^g \n%U %k%^{Type}p%^{Length}p%^{Year}p"
:target "~/Personal/Video.org" :prepend t)
'(:name "Video (c)" :key ?V
:template "* INVESTIGATE %^C%? %^g\n%U %k%^{Type}p%^{Length}p%^{Year}p"
:target "~/Personal/Video.org" :prepend t)
'(:name "Game" :key ?g :template "* INVESTIGATE %^{Title} %? %^g \n%U %k"
:target "~/Personal/Interactive.org" :prepend t)
'(:name "Game (l)" :key ?G :template "* INVESTIGATE %^L %? %^g \n%U %k"
:target "~/Personal/Interactive.org" :prepend t)))
;; Remember
(define-key global-map [(control c) ?m] 'org-remember)
(define-key global-map [(control c) (shift m)] 'remember-clipboard)
;; Access clock from anywhere.
(global-set-key [(control c) (control x) (control o)] 'org-clock-out)
(global-set-key [(control c) (control x) (control j)] 'org-clock-goto)
(global-set-key [(control c) (control x) (control x)] 'org-clock-cancel)
: There isn't a key binding to toggle between descriptive and literal link display
(defun ahkt-org-toggle-link-type ()
"Toggle visibility of org-mode links"
(interactive "*")
(if (member '(org-link) buffer-invisibility-spec)
(org-remove-from-invisibility-spec '(org-link))
(org-add-to-invisibility-spec '(org-link)))
(org-restart-font-lock))
(define-key org-mode-map [(control c) ?v] 'ahkt-org-toggle-link-type)
;; This is my link description generator. It either uses the URL, if it contains
;; a useful value, or fetches the page and gets the title from the HTML.
(require'mm-url)
(defun undashify (str)
(replace-regexp-in-string
"[-_]" " "
(mm-url-decode-entities-string (url-unhex-string str nil))))
(setq ahkt-link-sites
'(("http://ask.metafilter.com/[0-9]*/\\(.*\\)" . "Ask Mefi")
("http://www.metafilter.com/[0-9]*/\\(.*\\)" . "Mefi" )
("http://www.rudyrucker.com/blog/[0-9/]*\\([^/]*\\)" . "Rudy Rucker")
("http://www.ectomo.com/index.php/[0-9/]*\\([^/]*\\)" . "ectomo")
("http://.*wikipedia.org/wiki/\\(.*\\)" . "WP")
("http://io9.com/[0-9]*/\\(.*\\)". "io9")
("http://weirdtales.net/wordpress/[0-9/]*\\([^/]*\\)/". "Wierd Tales")
("http://lifehacker.com/[0-9]*/\\(.*\\)" . "lifehacker")
("http://www.instructables.com/id/\\([^/]*\\)" . "Instructables")
("http://toolmonger.com/[0-9/]*\\([^/]*\\)" . "Toolmonger" )))
(defun ahkt-link-description (link desc)
"Better link description generator for orgmode"
(or (car (remove nil
(mapcar (lambda (x)
(if (string-match (car x) link)
(concat (cdr x) ": "
(undashify (match-string 1 link)))))
ahkt-link-sites)))
(cond
((string-match "https?:" link)
(with-temp-buffer
(w3m-retrieve link)
(w3m-region (point-min) (point-max))
(if (string= "text/html" (w3m-content-type link))
(replace-regexp-in-string "[ \t]+" " "
(replace-regexp-in-string
"\\(\n\\|
\\)" ""
(w3m-current-title))))))
((string-match "file:\\([^:]+\\)::\\(.+\\)" link)
(let ((search (match-string-no-properties 2 link))
(filename
(car (last
(split-string (match-string-no-properties 1 link) "/")))))
(format "%s: %s" filename search)))
((string-match "file:\\([^:]+\\)" link)
(car (last (split-string (match-string-no-properties 1 link) "/"))))
(t (or desc link)))))
(setq org-make-link-description-function 'ahkt-link-description)
(defun ahkt-org-end-of-day ()
(save-excursion
(save-restriction
(org-clock-out t)
(org-dblock-update 1)
(org-publish-current-project))))
; Helper function for
(defun ahkt-org-open-read ()
(interactive "")
(if (string= (org-get-todo-state) "TOREAD") (org-todo "READING"))
(org-open-at-point))
(define-key org-mode-map [(control c) ?o] 'ahkt-org-open-read)
; Select clock in state based on initial state
(defun ahkt-clock-state (state)
(cond ((string= state "TOREAD") "READING")
((string= state "TOWATCH") "WATCHING")
((string= state "TOPLAY") "PLAYING")
(t state)))
(setq org-clock-in-switch-to-state 'ahkt-clock-state)
; This is a custom sort function I wrote. It sorts by priority, todo state and
; then headline text.
(defun ahkt-org-sort-function ()
(save-excursion
(if (looking-at org-complex-heading-regexp)
(let* ((todo (match-string-no-properties 2))
(todo-pos (or (position todo org-todo-keywords-1 :test 'string=)
9999))
(headline-str (match-string-no-properties 4))
(priority-str (match-string-no-properties 3))
(headline (if (string-match org-bracket-link-analytic-regexp
headline-str)
(match-string-no-properties 5 headline-str)
headline-str))
(priority (- (if (and priority-str
(string-match org-priority-regexp
priority-str))
(+ (string-to-char (match-string 2 priority-str))
(if (member todo org-done-keywords)
(- org-lowest-priority
org-highest-priority)
0))
(+ org-lowest-priority 1000))
org-highest-priority)))
(format "%04d%04d%s" priority todo-pos headline)))))
; Load org-checklist
(require 'org-checklist "org-checklist" t)
;;org-registry
(require 'org-registry)
(org-registry-initialize)
(org-registry-insinuate)
; Put the org-registry data file in .emacs.d.
(setq org-registry-file "~/.emacs.d/org-registry.el")
;;org-annotation-helper
(require 'org-annotation-helper)
;;some custom agenda commands.
(setq org-agenda-custom-commands
'(("S" "shopping"
((agenda "") (todo "TOGET"))
((org-agenda-files '("~/Personal/info.org"
"~/Personal/shoppingList.org"
"~/Personal/stores.org"))
(org-agenda-text-search-extra-files nil)
(org-agenda-start-with-clockreport-mode nil)))
("w" "TV to watch" ((todo "WATCHING|TOWATCH")))))
I'll probably be adding various things from the other configs people have
posted; there are lots of great ideas in this thread.
James
--
|-<James TD Smith>-<email/ahktenzero@mohorovi.cc>-|
next prev parent reply other threads:[~2009-02-01 15:18 UTC|newest]
Thread overview: 70+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-01-29 8:49 POLL: the 40 variables project Carsten Dominik
2009-01-29 11:13 ` Friedrich Delgado Friedrichs
2009-01-29 13:02 ` Carsten Dominik
2009-01-29 13:40 ` Dan Griswold
2009-01-29 11:46 ` Womick, Don
2009-01-29 11:59 ` Tassilo Horn
2009-01-29 13:37 ` Sebastian Rose
2009-01-29 13:30 ` Bernt Hansen
2009-01-29 13:46 ` Chris Leyon
2009-01-29 14:10 ` Matthew Lundin
2009-01-29 14:49 ` Bernt Hansen
2009-01-29 14:55 ` srandby
2009-01-29 16:01 ` Eric S Fraga
2009-01-29 16:40 ` Dan Davison
2009-01-29 16:40 ` Michael Ekstrand
2009-01-29 17:24 ` Sivaram Neelakantan
2009-01-29 17:56 ` Manish
2009-01-29 21:02 ` Dan Davison
2009-01-29 23:07 ` Carsten Dominik
2009-01-30 7:46 ` Manish
2009-01-30 8:18 ` Carsten Dominik
2009-01-30 8:29 ` Manish
2009-01-30 8:38 ` Carsten Dominik
2009-01-30 8:52 ` Manish
2009-01-30 9:16 ` Carsten Dominik
2009-01-30 10:35 ` Scot Becker
[not found] ` <e7cdbe30902011255y680747e8vb8731a775a73dc73@mail.gmail.com>
2009-02-01 22:15 ` Carsten Dominik
2009-02-02 10:36 ` Carsten Dominik
[not found] ` <87ljstx71e.fsf@gollum.intra.norang.ca>
2009-01-30 13:50 ` Carsten Dominik
2009-01-30 15:27 ` Carsten Dominik
2009-01-29 18:02 ` William Henney
2009-01-29 19:07 ` Peter Jones
2009-01-29 19:44 ` Hsiu-Khuern Tang
2009-01-29 22:06 ` Steven E. Harris
2009-01-29 22:43 ` Oliver Charles
2009-01-30 3:32 ` Ross Patterson
2009-01-30 12:13 ` Sebastian Rose
2009-01-30 3:44 ` Dennis Groves
2009-01-30 4:12 ` Manish
2009-01-30 4:46 ` Austin Frank
2009-01-30 8:17 ` Ulf Stegemann
2009-01-30 12:26 ` Sebastian Rose
2009-01-30 8:26 ` Cameron Horsburgh
2009-01-30 8:43 ` R: " Giovanni Ridolfi
2009-01-30 9:21 ` Manish
2009-01-30 11:09 ` Shaun Johnson
2009-01-30 12:08 ` Rainer Stengele
2009-01-30 12:48 ` Mikael Fornius
2009-01-30 15:56 ` William Henney
2009-01-30 16:12 ` Christian Egli
2009-01-30 16:34 ` Manuel Hermenegildo
2009-02-01 0:34 ` Samuel Wales
2009-01-30 16:36 ` Eric Schulte
2009-01-31 13:06 ` Martin Stemplinger
2009-02-01 15:18 ` James TD Smith [this message]
2009-02-04 15:29 ` Charles Sebold
2009-02-05 14:55 ` Manish
2009-02-04 21:28 ` Mike Newman
2014-01-17 20:55 ` [Orgmode] " Manish
2014-01-19 15:54 ` Bastien
2014-01-20 2:18 ` M
2014-01-20 11:17 ` Bastien
2014-01-20 11:38 ` Rainer M Krug
2014-01-20 11:47 ` Bastien
2014-01-20 17:07 ` Eric S Fraga
2014-01-20 7:05 ` henry atting
2014-01-20 11:16 ` Bastien
2014-04-30 15:29 ` Sungmin
2014-04-30 15:50 ` Eric S Fraga
[not found] <20090130091800.B54F32868C@mailhost.cs.tu-berlin.de>
2009-01-30 11:33 ` Stephan Schmitt
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20090201151804.GD2267@yog-sothoth.mohorovi.cc \
--to=ahktenzero@mohorovi.cc \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.