1557 org-reverse-note-order t |
1557 org-reverse-note-order t |
1558 org-hide-leading-stars t |
1558 org-hide-leading-stars t |
1559 org-tags-column 64 |
1559 org-tags-column 64 |
1560 org-archive-save-context-info '(time file olpath todo itags) |
1560 org-archive-save-context-info '(time file olpath todo itags) |
1561 ) |
1561 ) |
1562 (defvar my-org-agenda-todo-file (concat org-directory "/TODO.org")) |
1562 (defvar my/org-agenda-todo-file (concat org-directory "/TODO.org")) |
1563 (defvar my-org-agenda-note-file (concat org-directory "/NOTE.org")) |
1563 (defvar my/org-agenda-note-file (concat org-directory "/NOTE.org")) |
1564 (setq org-agenda-file-regexp "\\`[^.#].*[^_]\\.org\\'" |
1564 (setq org-agenda-file-regexp "\\`[^.#].*[^_]\\.org\\'" |
1565 org-agenda-files (list org-directory)) |
1565 org-agenda-files (list org-directory)) |
1566 ;; (setq my-org-agenda-learning-file (concat org-directory "/LEARNING.org")) |
1566 ;; (setq my/org-agenda-learning-file (concat org-directory "/LEARNING.org")) |
1567 ;; (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file ,my-org-agenda-learning-file)) |
1567 ;; (setq org-agenda-files `(,my/org-agenda-todo-file ,my/org-agenda-note-file ,my/org-agenda-learning-file)) |
1568 (define-key global-map "\C-va" 'org-agenda) |
1568 (define-key global-map "\C-va" 'org-agenda) |
1569 (define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file))) |
1569 (define-key global-map "\C-ve" (lambda nil (interactive) (find-file my/org-agenda-note-file))) |
1570 |
1570 |
1571 (setq org-todo-keywords '("|" "DONE")) |
1571 (setq org-todo-keywords '("|" "DONE")) |
1572 |
1572 |
1573 ;; My tags for remember buffer. |
1573 ;; My tags for remember buffer. |
1574 (setq org-tag-alist |
1574 (setq org-tag-alist |
1590 ;; `org-tag-alist' instead until bug fixed. |
1590 ;; `org-tag-alist' instead until bug fixed. |
1591 (setq org-tag-persistent-alist nil) |
1591 (setq org-tag-persistent-alist nil) |
1592 |
1592 |
1593 (setq org-support-shift-select t) |
1593 (setq org-support-shift-select t) |
1594 |
1594 |
1595 (setq org-default-notes-file my-org-agenda-todo-file) |
1595 (setq org-default-notes-file my/org-agenda-todo-file) |
1596 (setq org-capture-templates |
1596 (setq org-capture-templates |
1597 '(("t" "Todo" entry (file my-org-agenda-todo-file) "* %?\n SCHEDULED: %T"))) |
1597 '(("t" "Todo" entry (file my/org-agenda-todo-file) "* %?\n SCHEDULED: %T"))) |
1598 (define-key global-map "\C-vr" |
1598 (define-key global-map "\C-vr" |
1599 (lambda () (interactive) (org-capture nil "t"))) |
1599 (lambda () (interactive) (org-capture nil "t"))) |
1600 |
1600 |
1601 (defun my/org-archive-location (path) |
1601 (defun my/org-archive-location (path) |
1602 "For given PATH make path to archive. Currently add undescore |
1602 "For given PATH make path to archive. Currently add undescore |
1649 (loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do |
1649 (loop for file in (if prefix (org-agenda-files) (list (buffer-file-name))) do |
1650 (my/org-archive-file file))) |
1650 (my/org-archive-file file))) |
1651 |
1651 |
1652 (setq org-agenda-include-diary nil) |
1652 (setq org-agenda-include-diary nil) |
1653 |
1653 |
1654 (defun my-org-kill-by-tag (tag) |
1654 (defun my/org-kill-by-tag (tag) |
1655 "Put all entries that matches TAG from current org-file to `kill-ring'." |
1655 "Put all entries that matches TAG from current org-file to `kill-ring'." |
1656 (interactive (list (completing-read "Enter tag: " (org-get-buffer-tags)))) |
1656 (interactive (list (completing-read "Enter tag: " (org-get-buffer-tags)))) |
1657 (let ( rs (last-command 'kill-region) ) |
1657 (let ( rs (last-command 'kill-region) ) |
1658 (setq rs (org-scan-tags |
1658 (setq rs (org-scan-tags |
1659 (lambda () |
1659 (lambda () |