1574 (require 'org) |
1574 (require 'org) |
1575 (require 'org-capture nil t) |
1575 (require 'org-capture nil t) |
1576 |
1576 |
1577 (eval-when 'compile |
1577 (eval-when 'compile |
1578 (require 'org-agenda) |
1578 (require 'org-agenda) |
1579 (require 'org-archive) |
1579 (require 'org-archive)) |
1580 (require 'remember nil t)) |
|
1581 |
1580 |
1582 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c |
1581 ;; XXX org-todo-keywords '((sequence "TODO" "START" "|" "DONE")) for org-version 4.67c |
1583 (add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) |
1582 (add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) |
1584 (setq org-directory "~/my/gtd") |
1583 (setq org-directory "~/my/gtd") |
1585 (setq |
1584 (setq |
1626 ;; `org-tag-alist' instead until bug fixed. |
1625 ;; `org-tag-alist' instead until bug fixed. |
1627 (setq org-tag-persistent-alist nil) |
1626 (setq org-tag-persistent-alist nil) |
1628 |
1627 |
1629 (setq org-support-shift-select t) |
1628 (setq org-support-shift-select t) |
1630 |
1629 |
1631 (cond |
1630 (setq org-default-notes-file my-org-agenda-todo-file) |
1632 ((featurep 'org-capture) |
1631 (setq org-capture-templates |
1633 (setq org-default-notes-file my-org-agenda-todo-file) |
1632 '(("t" "Todo" entry (file my-org-agenda-todo-file) "* %?\n SCHEDULED: %T"))) |
1634 (setq org-capture-templates |
1633 (define-key global-map "\C-vr" |
1635 '(("t" "Todo" entry (file my-org-agenda-todo-file) "* %?\n SCHEDULED: %T"))) |
1634 (lambda () (interactive) (org-capture nil "t"))) |
1636 (define-key global-map "\C-vr" |
|
1637 (lambda () (interactive) (org-capture nil "t"))) |
|
1638 ) |
|
1639 ((or (featurep 'remember) (fboundp 'remember)) |
|
1640 (setq remember-annotation-functions '(org-remember-annotation)) |
|
1641 (setq remember-handler-functions '(org-remember-handler)) |
|
1642 (add-hook 'remember-mode-hook 'org-remember-apply-template) |
|
1643 (define-key global-map "\C-vr" 'org-remember) |
|
1644 (setq org-remember-templates |
|
1645 ;; With one item org-mode do not prompt choose template. |
|
1646 `( |
|
1647 ("todo" ?t "* TODO %?" ,my-org-agenda-todo-file) |
|
1648 ;; ("note" ?n "* %?\n" ,my-org-agenda-note-file) |
|
1649 )) |
|
1650 (setq org-remember-store-without-prompt t) |
|
1651 (org-remember-insinuate) |
|
1652 )) |
|
1653 |
1635 |
1654 (defun my/org-archive-location (path) |
1636 (defun my/org-archive-location (path) |
1655 "For given PATH make path to archive. Currently add undescore |
1637 "For given PATH make path to archive. Currently add undescore |
1656 before file extention. If file name doesn't match |
1638 before file extention. If file name doesn't match |
1657 `org-agenda-file-regexp' or have no extention return `nil'." |
1639 `org-agenda-file-regexp' or have no extention return `nil'." |