From mboxrd@z Thu Jan 1 00:00:00 1970 From: Manuel Hermenegildo Subject: Re: POLL: the 40 variables project Date: Fri, 30 Jan 2009 17:34:45 +0100 Message-ID: <18819.11301.765496.876639@clip.dia.fi.upm.es> References: Reply-To: Manuel Hermenegildo Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LTDe7-0000gB-Ut for emacs-orgmode@gnu.org; Sat, 31 Jan 2009 06:04:19 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LTDe7-0000fz-Ao for emacs-orgmode@gnu.org; Sat, 31 Jan 2009 06:04:19 -0500 Received: from [199.232.76.173] (port=56947 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LTDe6-0000fw-Ug for emacs-orgmode@gnu.org; Sat, 31 Jan 2009 06:04:18 -0500 Received: from relay.fi.upm.es ([138.100.8.25]:58110 helo=relay2.fi.upm.es) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1LTDe6-0006Yf-4w for emacs-orgmode@gnu.org; Sat, 31 Jan 2009 06:04:18 -0500 In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Carsten Dominik Cc: emacs org-mode mailing list Hi Carsten, we have a general org file that a lot of people in the organization include. These are the values in it. Cheers --Manuel ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; General emacs things ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq inhibit-splash-screen t) (global-font-lock-mode 1) ;; Should be done locally instead: ;; (add-hook 'org-mode-hook 'turn-on-font-lock) ; just in case ;; To highlight the line the cursor is at in the agenda (add-hook 'org-agenda-mode-hook '(lambda () (hl-line-mode 1))) (setq transient-mark-mode t) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; General org settings ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Actually, needs to be done before loading org (setq org-return-follows-link t) ;; Links followed when typing return ;; The following lines are always needed. You can choose your own keys. (global-set-key "\C-ca" 'org-agenda) (global-set-key "\C-cb" 'org-iswitchb) (global-set-key "\C-ct" (lambda () (interactive) (find-file org-default-notes-file))) (global-set-key "\C-cl" 'org-store-link) (add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) (add-to-list 'auto-mode-alist '("\\.org_archive$" . org-mode)) (add-to-list 'auto-mode-alist '("\\.org.gpg$" . org-mode)) (add-to-list 'auto-mode-alist '("\\.org.gpg_archive$" . org-mode)) (setq org-hide-leading-stars t) ;; Nicer decoration (setq org-yank-adjusted-subtrees nil) ;; Too smart otherwise (confusing) (setq org-log-done 'time) ;; Insert time stamp on done (setq org-agenda-todo-list-sublevels t) ;; Whether to check sublevels (setq org-tags-match-list-sublevels t) ;; Match tags in sublevels (setq org-tags-column -77) ;; So that "..." is visible after the tags ;; (setq org-agenda-include-diary t) ;; Connect w/diary - using only org now ;; (setq org-popup-calendar-for-date-prompt nil) ;; was distracting (setq org-popup-calendar-for-date-prompt t) ;; works better in recent versions (setq org-startup-folded t) ;; reduces clutter (setq org-cycle-include-plain-lists nil) ;; Confusing for me... (setq org-highest-priority ?A) (setq org-default-priority ?C) (setq org-lowest-priority ?E) (setq org-special-ctrl-k t) (setq org-special-ctrl-a/e t) (setq org-fontify-done-headline t) (setq org-fontify-emphasized-text t) ;; (setq org-extend-today-until 6) ;; Does not work yet? (setq org-ellipsis (quote org-ellipsis)) (setq org-agenda-window-setup 'current-window) ;; normal value: reorganize-frame ;; Default binding of n and p in agenda view is confusing for emacs users (add-hook 'org-mode-hook (lambda () (define-key org-agenda-keymap "n" 'org-agenda-later) (define-key org-agenda-mode-map "n" 'org-agenda-later) (define-key org-agenda-keymap "p" 'org-agenda-earlier) (define-key org-agenda-mode-map "p" 'org-agenda-earlier) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Customize in what order entries are sorted (important for todo ;; lists). Default is first by category -> changed to first by priority. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq org-agenda-sorting-strategy '((agenda time-up priority-down category-keep) (todo time-up priority-down category-keep) (tags time-up priority-down category-keep) (search category-keep))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Archiving (used to hide done or dismissed/canceled tasks from agenda) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq org-archive-location "::* Archive") (setq org-agenda-todo-ignore-scheduled t) ;; reduces clutter (setq org-agenda-todo-ignore-deadlines t) ;; reduces clutter (setq org-agenda-todo-ignore-with-date t) ;; reduces clutter (setq org-agenda-show-log nil) ; By default do not show closed tasks (defun org-agenda-my-archive () (interactive) (if org-agenda-archives-mode (message "Archiving not allowed in archives mode.") (org-agenda-archive-to-archive-sibling)) ) (add-hook 'org-mode-hook (lambda () (define-key org-agenda-keymap "$" 'org-agenda-my-archive) (define-key org-agenda-mode-map "$" 'org-agenda-my-archive) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; With this typing "L" in agenda and todo buffers allows toggling ;; whether category/file names appear or not at the left or entries in ;; agenda/todo listings. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar my-org-agenda-list-category t) (defun my-org-agenda-toggle-list-category () "Toggles whether category/file name appears or not at the left of entries in agenda listings. Useful to unclutter listings." (interactive) (if my-org-agenda-list-category (progn (setq my-org-agenda-list-category nil) (setq org-agenda-prefix-format '((agenda . " %-12:c%?-12t% s") (timeline . " % s") (todo . " %-12:c") (tags . " %-12:c") (search . " %-12:c"))) ) (setq my-org-agenda-list-category t) (setq org-agenda-prefix-format '((agenda . " %?-12t% s") (timeline . " % s") (todo . " ") (tags . " ") (search . " "))) ) (org-agenda-redo)) (my-org-agenda-toggle-list-category) (add-hook 'org-mode-hook (lambda () (define-key org-agenda-keymap "L" 'my-org-agenda-toggle-list-category) (define-key org-agenda-mode-map "L" 'my-org-agenda-toggle-list-category) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq Info-default-directory-list (cons (expand-file-name (concat org-general-path "org/doc")) Info-default-directory-list)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Connection w/remember: allows adding quickly entries in agenda. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (org-remember-insinuate) ;; (setq org-directory "~/path/to/my/orgfiles/") (setq org-default-notes-file (car org-agenda-files)) (define-key global-map "\C-cr" 'org-remember) (setq org-remember-templates '(("Todo" ?t "** TODO [#C] %? %t \n %i\n %a" "" "Unclassified") ("Appointments" ?a "** %^t %?\n %a" "" "Unclassified") ("Idea" ?i "* %^{Title}\n %a" "" "Raw New Ideas") ("Journal Entry" ?j "* %U %?\n\n %i\n %a" "" "Journal Notes") )) -- ------------------------------------------------------------------------------- Manuel Hermenegildo | Prof., C.S.Dept., T.U. Madrid (UPM) Director, IMDEA-Software and CLIP Group | +34-91-336-7435 (W) -352-4819 (Fax) -------------------------------------------------------------------------------