emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] POLL: the 40 variables project


From: Matthew Lundin
Subject: Re: [Orgmode] POLL: the 40 variables project
Date: Thu, 29 Jan 2009 08:10:26 -0600
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.3 (darwin)

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
another.

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.

Best,

Matt

-------

(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){:} 
%20SCHEDULED %20DEADLINE")
(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)" "|" 
"DONE(d)")
                          (sequence "PROJECT(p)" "SUBPROJ(u)" "HOLD(h)" "|" 
"SOMEDAY(y)" "COMPLETE(c)")
                          (sequence "GOAL(g)" "|" "ACHIEVED(a)")
                          (sequence "WAITING(w@/!)" "|" "RESOLVED(r@)")
                          (sequence "BORROWED(1@)" "|" "RETURNED(2@)")
                          (sequence "ORDERED(3@)" "|" "RECEIVED(4@)")
                          (sequence "LATER(l)" "|" "MAYBE(m)" 
"CANCELED(x@/!)")))

(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 
\n?\n#+end_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 
'scheduled))))
        ("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 "PROJECT|SUBPROJ")
          (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 
'scheduled))))
        ("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 
'scheduled))))
        ("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 
'scheduled))))
        ("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 "\\* \\(NOW\\|STARTED\\)"))))
           (todo "TODO" ((org-agenda-starting-strategy '(priority-down 
category-up))
                         (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 "\\* \\(NOW\\|STARTED\\)"))))))
;; 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 
":DAILY:"))))
        ("de" "Effort" 
         ((todo "NOW|STARTED")
          (agenda "" ((org-agenda-ndays 1)
                      (org-agenda-skip-function '(org-agenda-skip-entry-if 
'regexp "\\* \\(NOW\\|STARTED\\|PROJECT\\|GOAL\\)")))))
         ((org-agenda-view-columns-initially t)))
        ("da" "Active" todo "GOAL|PROJECT|SUBPROJ|TODO|NOW|STARTED"
         ((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)

(org-remember-insinuate)

(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
      '(
        ("org-notes"
         :base-directory "~/mystuff/website/"
         :base-extension "org"
         :publishing-directory "path/to/directory"
         :section-numbers nil
         :email 
"Matthew.Lundin@valpo.edu"
         :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 "<link rel=\"stylesheet\" type=\"text/css\" 
href=\"css/stylesheet.css\" />"
         ;;:style-include-default nil
         :preamble "
<div id=\"wrapper\">
<div id=\"menu\">
<div id=\"sidemenu\">
<a href=\"index.html\">Home</a> &#124;
<a href=\"sitemap.html\">Site Map</a>
</div>
<div id=\"sidetitle\">
Matthew Lundin
</div>
</div>
<div id=\"content\">"
         :postamble "</div>
</div>"
         )
        ("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"))
        ))





reply via email to

[Prev in Thread] Current Thread [Next in Thread]