Features Download
From: Matthew Lundin <mdl <at> imapmail.org>
Subject: Re: POLL: the 40 variables project
Newsgroups: gmane.emacs.orgmode
Date: Thursday 29th January 2009 14:10:26 UTC (over 8 years ago)
Hi Carsten,

> Hi,
> yesterday I did this command in my org-mode git repo:
>   grep defcustom lisp/*el |wc -l
> and got 378 as an answer.  378 user-customizable variables,
> no kidding.

Yes, I'm afraid I've used a fair number of those myself at one point or

I've attached my list of variables. Some of the settings are set to the
default, but their still in my .emacs file as a result of switching them
on and off. I certainly don't use a majority of the variables, but it's
nice to know they are there.

Perhaps in customization there could be a distinction between "basic"
(or "setup") and "advanced" variables. The basic variables could be
those that most org users adjust--the ones that have the most visible
consequences and are central to the core functionality of org
(org-directory, for instance). The advanced variables could then be for
those hopeless souls, like myself, who spend far too much time tweaking.




(setq org-log-done 'time)
(setq org-log-repeat 'time)
;; If I want a note, I set it using LOGGING property

(setq org-global-properties '(("Effort_ALL" . "0:05 0:10 0:15 0:30 0:45
1:00 1:30 2:00 3:00 4:00 5:00 6:00 7:00 8:00")))
(setq org-columns-default-format "%50ITEM(Task) %8Effort(Estimate){:}
(setq org-agenda-columns-compute-summary-properties nil)

(setq org-blank-before-new-entry '((heading) (plain-list-item . auto)))
;; I like a blank line for plain lists, but not for headings

(setq org-clock-in-switch-to-state "STARTED")

(setq org-clock-remove-zero-time-clocks t)
;; shows only closed items in the agenda log 
;; I have some custom commands that show more
(setq org-agenda-log-mode-items '(closed))

(setq org-drawers '("PROPERTIES" "CLOCK" "HIDDEN" "INFO"))

;; puts footnotes at end of current outline section -- also with sorting
(setq org-footnote-section nil) 
(setq org-footnote-auto-label 'nil)

(setq org-archive-location (concat "~/mystuff/org/" (format-time-string
"%Y") ".archive::* %s"))
;; puts archive in a single file, organized by file of origin

(setq org-archive-save-context-info '(olpath time itags))
;; other options include file, time, ltags (local tags), itags (inherited
tags), category

(setq org-archive-mark-done nil)

(setq org-attach-method 'cp)
(setq org-attach-directory "~/mystuff/data")

(setq org-use-fast-todo-selection t)

(setq org-todo-keywords '((sequence "TODO(t)" "NOW(n)" "STARTED(s)" "|"
			  (sequence "PROJECT(p)" "SUBPROJ(u)" "HOLD(h)" "|" "SOMEDAY(y)"
			  (sequence "GOAL(g)" "|" "ACHIEVED(a)")
			  (sequence "WAITING([email protected]/!)" "|" "RESOLVED([email protected])")
 			  (sequence "BORROWED([email protected])" "|" "RETURNED([email protected])")
 			  (sequence "ORDERED([email protected])" "|" "RECEIVED([email protected])")
			  (sequence "LATER(l)" "|" "MAYBE(m)" "CANCELED([email protected]/!)")))

(setq org-todo-state-tags-triggers
      '(("NOW" ("NEXT" . t) ("DEFERRED" . nil))
	("TODO" ("NEXT" . nil) ("DEFERRED" . nil))
	("PROJECT" ("DEFERRED" . nil))
	("STARTED" ("NEXT" . t) ("DEFERRED"))
	("LATER" ("DEFERRED" . t) ("NEXT" . nil))
	("HOLD" ("DEFERRED" . t) ("NEXT" . nil))
	("" ("NEXT" . nil) ("DEFERRED" . nil))
	(done ("DEFERRED" . nil) ("NEXT" . nil))))
(add-to-list 'org-structure-template-alist '("d" "#+begin_ditaa

(setq org-fast-tag-selection-single-key 'expert)

(setq org-tag-alist '((:startgroup . nil)
		      ("home" . ?h)
		      ("office" . ?o)
		      ("errands" . ?e)
		      ("library" . ?l)
		      ("travel" . ?t)
		      (:endgroup . nil)
		      (:startgroup . nil)
		      ("computer" . ?c)
		      ("rwb" . ?r)
		      ("phone" . ?p)
		      (:endgroup . nil)
		      (:endgroup . nil)
		      (:startgroup . nil)
		      ("prof" . ?1)
		      ("per" . ?2)
		      (:endgroup . nil)
		      ("noexport" . ?N)
		      (:startgroup . nil)
		      ("DEFERRED" . ?d)
		      ("NEXT" . ?n)
		      (:endgroup . nil)
		      ("DAILY" . ?.)))

(setq org-refile-targets '((org-agenda-files :maxlevel . 2)))
(setq org-goto-interface 'outline-path-completion)

(setq org-outline-path-complete-in-steps t)
(setq org-completion-use-ido nil)
(setq org-refile-use-outline-path 'file)  

(setq org-special-ctrl-k t)

(setq org-stuck-projects '("/!+PROJECT" ("TODO" "SUBPROJ" "NOW" "STARTED"
"WAITING") nil ""))

(setq org-agenda-skip-unavailable-files t)

(setq org-agenda-time-grid nil)

(setq org-agenda-sorting-strategy 
      '((agenda time-up priority-down effort-down) 
	(todo todo-state-up priority-down category-up) 
	(tags priority-down category-up)))

(setq org-sort-agenda-noeffort-is-high nil)

(setq org-agenda-include-diary nil)

(setq org-agenda-ndays 1) ;; limit org-agenda to one day

(setq org-agenda-show-inherited-tags nil)

(setq org-agenda-window-setup 'other-window)
(setq org-agenda-restore-windows-after-quit t)

(setq org-agenda-start-on-weekday 1)

(setq org-show-entry-below '((default . nil) (isearch .t ) (agenda . t))) 
(setq org-show-siblings '((default . nil) (isearch . t) (agenda . t)))

(setq org-agenda-custom-commands
      '(("P" . "Printed agendas")			
	("Pg" "GTD agenda"
	 ((todo "NOW|STARTED")
	  (agenda "" ((org-agenda-ndays 1)
		       (org-deadline-warning-days 7)
		       (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline
'regexp "\\* \\(NOW\\|STARTED\\)"))
		       (org-agenda-sorting-strategy '(priority-down tag-up))
		       (org-agenda-todo-keyword-format "[ ]")
		       (org-agenda-scheduled-leaders '("" ""))
		       (org-agenda-prefix-format "%t%s")))
	  (tags-todo "office/!+TODO"
		     ((org-agenda-overriding-header "Office\n-------")))
          (tags-todo "computer/!+TODO"
		     ((org-agenda-overriding-header "Computer\n-------")))
	  (tags-todo "rwb/!+TODO"
		     ((org-agenda-overriding-header "RWB\n-------")))
          (tags-todo "phone/!+TODO"
		     ((org-agenda-overriding-header "Phone\n-------")))
          (tags-todo "home/!+TODO"
		     ((org-agenda-overriding-header "Home\n-------")))
          (tags-todo "errands/!+TODO"
		     ((org-agenda-overriding-header "Errands\n------"))))
	 ((org-agenda-with-colors nil)
	  (org-agenda-todo-ignore-with-date t)
	  (org-agenda-block-separator "------")
	  (org-agenda-prefix-format "")
	  (org-agenda-todo-keyword-format "[ ]")
	  (org-agenda-remove-tags t)))
	("Pc" "Calendar" agenda ""
	 ((org-agenda-ndays 30)
	  (org-agenda-start-on-weekday nil)
	  (org-agenda-repeating-timestamp-show-all t)
	  (org-agenda-with-colors nil)
	  (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline
	("p" . "Priorities")
	("pa" "A items" tags-todo "+PRIORITY=\"A\"")
	("pb" "B items" tags-todo "+PRIORITY=\"B\"")
	("pc" "C items" tags-todo "+PRIORITY=\"C\"")
	("pp" "A, B, & C"
	 tags-todo "PRIORITY=\"A\"|PRIORITY=\"B\"|PRIORITY=\"C\"")
	("g" . "GTD Contexts")
        ("go" "Office" tags-todo "office")
        ("gc" "Computer" tags-todo "computer")
        ("gp" "Phone" tags-todo "phone")
        ("gh" "Home" tags-todo "home")
        ("ge" "Errands" tags-todo "errands")
        ("gt" "Travel" tags-todo "travel")
        ("gb" "GTD Block Agenda"
         ((tags-todo "office")
          (tags-todo "computer")
          (tags-todo "phone")
          (tags-todo "home")
          (tags-todo "errands")))
	("S" . "Searches")
	("Sw" "Website search" search ""
	 ((org-agenda-files (file-expand-wildcards "~/mystuff/website/*.org"))))
	("A" "Agenda with todos" agenda ""
	 ((org-agenda-ndays 1)
	  (org-agenda-sorting-strategy '(time-up priority-down todo-state-down))
	  (org-agenda-todo-ignore-scheduled t)
	  (org-agenda-include-all-todo t)))
	("r" . "Reviews")
	("ra" "Agenda - Next seven days" agenda ""	    ;; this is after the daily
review is done
	 ((org-agenda-repeating-timestamp-show-all t)
	  (org-agenda-ndays 7)
	  (org-agenda-start-on-weekday nil)))
	("rd" "Daily Review" 
	 ((stuck "")
	  (stuck "" ((org-stuck-projects '("/!+SUBPROJ" ("TODO" "NOW" "STARTED"
"WAITING") nil ""))))
	  (todo "TODO|NOW|STARTED")
	  (todo "WAITING|ORDERED|BORROWED" ((org-agenda-sorting-strategy
'(priority-down category-up))))))
	("rw" "Weekly Review Block"
         ((stuck "" ((org-stuck-projects '("/!+GOAL" ("TODO" "PROJECT"
"NOW" "STARTED" "WAITING") nil ""))))
	  (stuck "")
	  (stuck "" ((org-stuck-projects '("/!+SUBPROJ" ("TODO" "NOW" "STARTED"
"WAITING") nil ""))))
	  (todo "GOAL")
	  (todo "PROJECT")
	  (todo "SUBPROJ")
	  (todo "HOLD") ;; Projects & goals on ice
	  (todo "LATER") ;; Review later items
	  (agenda "" ((org-agenda-ndays 7)
		      (org-agenda-time-grid nil)
		      (org-agenda-start-on-weekday nil))))) 
	("rm" "Monthly Review"
	 ((todo "SOMEDAY")
	  (todo "MAYBE")))
	("rl" "Daily log" 
	 ((agenda "" ((org-agenda-ndays 1) 
;;		      (org-agenda-start-day (format-time-string "%Y-%m-%d"
(my-yesterday-time))) ;; starts with yesterday
		      (org-agenda-log-mode-items '(closed state))
		      (org-agenda-show-log t))))) ;; shows log
	("rz" "Without deadlines" agenda ""
	 ((org-agenda-ndays 1)
	  (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline))))
	("rp" "Project overview"
	 ((stuck "")
	  (todo "GOAL")
	  (todo "PROJECT")
	  (todo "SUBPROJ")
	  (todo "HOLD")))
	("rt" "Todo overview"
	 ((todo "STARTED")
	   (todo "TODO")
	   (todo "WAITING|ORDERED|BORROWED") ;; review waiting items
	   (todo "LATER"))) 
	("c" . "Calendars")
	("cc" "Weekly schedule" agenda ""
	 ((org-agenda-ndays 7)
	  (org-agenda-start-on-weekday 1)
	  (org-agenda-repeating-timestamp-show-all t)
	  (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline
	("cn" "Next 14 days" agenda ""
	 ((org-agenda-ndays 14)
	  (org-agenda-start-on-weekday nil)
	  (org-agenda-repeating-timestamp-show-all t)
	  (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline
	("cm" "Next 30 days" agenda ""
	 ((org-agenda-ndays 30)
	  (org-agenda-start-on-weekday nil)
	  (org-agenda-repeating-timestamp-show-all t)
	  (org-agenda-skip-function '(org-agenda-skip-entry-if 'deadline
	("u" . "Upcoming deadlines")
	("uw" "Upcoming deadlines (one week)" agenda ""
	 ((org-agenda-skip-function '(org-agenda-skip-entry-if 'scheduled))
	  (org-agenda-ndays 1)
	  (org-deadline-warning-days 7)
	  (org-agenda-time-grid nil)))
	("u2" "Upcoming deadlines (two weeks)" agenda ""
	 ((org-agenda-skip-function '(org-agenda-skip-entry-if 'scheduled))
	  (org-agenda-ndays 1)
	  (org-deadline-warning-days 14)
	  (org-agenda-time-grid nil)))
	("um" "Upcoming deadlines (one month)" agenda ""
	 ((org-agenda-skip-function '(org-agenda-skip-entry-if 'scheduled))
	  (org-agenda-ndays 1)
	  (org-deadline-warning-days 30)
	  (org-agenda-time-grid nil)))
	("uq" "Upcoming deadlines (three months)" agenda ""
	 ((org-agenda-skip-function '(org-agenda-skip-entry-if 'scheduled))
	  (org-agenda-ndays 1)
	  (org-deadline-warning-days 60)
	  (org-agenda-time-grid nil)))
	("uh" "Upcoming deadlines (half year)" agenda ""
	 ((org-agenda-skip-function '(org-agenda-skip-entry-if 'scheduled))
	  (org-agenda-ndays 1)
	  (org-deadline-warning-days 180)
	  (org-agenda-time-grid nil)))
	("uy" "Upcoming deadlines (1 year)" agenda ""
	 ((org-agenda-skip-function '(org-agenda-skip-entry-if 'scheduled))
	  (org-agenda-ndays 1)
	  (org-deadline-warning-days 365)
	  (org-agenda-time-grid nil)))
	("d" . "Next")
	("dd" "Today (all)" 
	  ((todo "NOW|STARTED")
	   (agenda "" ((org-agenda-ndays 1)
 		       (org-agenda-skip-function '(org-agenda-skip-entry-if 'regexp "\\*
	   (todo "TODO" ((org-agenda-starting-strategy '(priority-down
			 (org-agenda-todo-ignore-with-date t)))
	   (todo "WAITING|ORDERED|BORROWED" ((org-agenda-sorting-strategy
'(priority-down category-up))))))
	("dt" "Today" 
	  ((todo "NOW|STARTED")
	   (agenda "" ((org-agenda-ndays 1)
 		       (org-agenda-skip-function '(org-agenda-skip-entry-if 'regexp "\\*
;; if you want to skip daily tasks in the agenda view
;;		       (org-agenda-skip-function '(org-agenda-skip-entry-if 'regexp
"\\* \\(NOW\\|STARTED\\)\\|:DAILY:"))))))
	("dn" "Now" todo "NOW|STARTED")
	("dh" "Daily habits" 
	 ((agenda ""))
	 ((org-agenda-show-log t)
	  (org-agenda-ndays 7)
	  (org-agenda-log-mode-items '(state))
	  (org-agenda-skip-function '(org-agenda-skip-entry-if 'notregexp
	("de" "Effort" 
	 ((todo "NOW|STARTED")
	  (agenda "" ((org-agenda-ndays 1)
		      (org-agenda-skip-function '(org-agenda-skip-entry-if 'regexp "\\*
	 ((org-agenda-view-columns-initially t)))
	 ((org-agenda-sorting-strategy '(category-up))))
	("dp" "Projects" todo "PROJECT|SUBPROJ")
	("dc" "Clock report" agenda ""
	 ((org-agenda-ndays 1)
	  (org-agenda-start-with-clockreport-mode t)
	  (org-agenda-time-grid nil)
	  (org-agenda-skip-function '(org-agenda-skip-entry-if 'notscheduled
'deadline 'scheduled))))))

(setq org-agenda-skip-scheduled-if-done t)
(setq org-agenda-skip-deadline-if-done t)

(setq org-agenda-repeating-timestamp-show-all nil)


(setq org-directory "~/mystuff/org/")
(setq org-default-notes-file (concat org-directory "index.org"))

(setq org-remember-store-without-prompt t)

;; Remember templates

(setq org-remember-templates
	(?t "* TODO %^{Todo} %^G\n %i\n %a\n %U\n")
	(?T "* TODO %^{Todo} %^G\n %i\n %U\n")
	(?a "* %^{Appt} %t%?\n %i\n %a\n")
	(?A "* %^{Appt} %t%?\n %i\n")
	(?n "* %^{Title}\n %i\n %a\n %U\n")
	(?N "* %^{Title}\n %i\n %U\n")
	(?w "* %a\n %?\n %i\n %U\n")
	(?W "* %a\n %? %i\n")))

(setq org-publish-project-alist
	 :base-directory "~/mystuff/website/"
	 :base-extension "org"
	 :publishing-directory "path/to/directory"
	 :section-numbers nil
	 :publishing-function org-publish-org-to-html
	 :table-of-contents nil
;;	 :auto-index t
;;	 :index-filename "pagelist.org"
;;	 :index-title "Page List"
	 :recursive t
	 :style ""
	 ;;:style-include-default nil
	 :preamble "
Matthew Lundin
" :postamble "
" ) ("org-static" :base-directory "~/mystuff/website/" :publishing-directory "/path/to/directory" :recursive t :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf" :publishing-function org-publish-attachment ) ("org" :components ("org-notes" "org-static")) )) _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. [email protected] http://lists.gnu.org/mailman/listinfo/emacs-orgmode
CD: 4ms