emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Manuel Hermenegildo <herme@fi.upm.es>
To: Carsten Dominik <dominik@science.uva.nl>
Cc: emacs org-mode mailing list <emacs-orgmode@gnu.org>
Subject: Re: POLL: the 40 variables project
Date: Fri, 30 Jan 2009 17:34:45 +0100	[thread overview]
Message-ID: <18819.11301.765496.876639@clip.dia.fi.upm.es> (raw)
In-Reply-To: <FD50CA36-A385-4C80-8E86-E3BE9F352B0A@uva.nl>



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)
-------------------------------------------------------------------------------

  parent reply	other threads:[~2009-01-31 11:04 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 [this message]
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
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

  List information: https://www.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=18819.11301.765496.876639@clip.dia.fi.upm.es \
    --to=herme@fi.upm.es \
    --cc=dominik@science.uva.nl \
    --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 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).