# HG changeset patch # User Oleksandr Gavenko # Date 1471101751 -10800 # Node ID 436e2cb0d9c0bcf9436e2bbe472733fb9d7d82d8 # Parent 63a3141a7ffe8682a6de3b71ee6d70d63ea4d198 Rename own org variable and function to use "my/" prefix. diff -r 63a3141a7ffe -r 436e2cb0d9c0 .emacs-my --- a/.emacs-my Tue Aug 02 23:46:27 2016 +0300 +++ b/.emacs-my Sat Aug 13 18:22:31 2016 +0300 @@ -1559,14 +1559,14 @@ org-tags-column 64 org-archive-save-context-info '(time file olpath todo itags) ) -(defvar my-org-agenda-todo-file (concat org-directory "/TODO.org")) -(defvar my-org-agenda-note-file (concat org-directory "/NOTE.org")) +(defvar my/org-agenda-todo-file (concat org-directory "/TODO.org")) +(defvar my/org-agenda-note-file (concat org-directory "/NOTE.org")) (setq org-agenda-file-regexp "\\`[^.#].*[^_]\\.org\\'" org-agenda-files (list org-directory)) -;; (setq my-org-agenda-learning-file (concat org-directory "/LEARNING.org")) -;; (setq org-agenda-files `(,my-org-agenda-todo-file ,my-org-agenda-note-file ,my-org-agenda-learning-file)) +;; (setq my/org-agenda-learning-file (concat org-directory "/LEARNING.org")) +;; (setq org-agenda-files `(,my/org-agenda-todo-file ,my/org-agenda-note-file ,my/org-agenda-learning-file)) (define-key global-map "\C-va" 'org-agenda) -(define-key global-map "\C-ve" (lambda nil (interactive) (find-file my-org-agenda-note-file))) +(define-key global-map "\C-ve" (lambda nil (interactive) (find-file my/org-agenda-note-file))) (setq org-todo-keywords '("|" "DONE")) @@ -1592,9 +1592,9 @@ (setq org-support-shift-select t) -(setq org-default-notes-file my-org-agenda-todo-file) +(setq org-default-notes-file my/org-agenda-todo-file) (setq org-capture-templates - '(("t" "Todo" entry (file my-org-agenda-todo-file) "* %?\n SCHEDULED: %T"))) + '(("t" "Todo" entry (file my/org-agenda-todo-file) "* %?\n SCHEDULED: %T"))) (define-key global-map "\C-vr" (lambda () (interactive) (org-capture nil "t"))) @@ -1651,7 +1651,7 @@ (setq org-agenda-include-diary nil) -(defun my-org-kill-by-tag (tag) +(defun my/org-kill-by-tag (tag) "Put all entries that matches TAG from current org-file to `kill-ring'." (interactive (list (completing-read "Enter tag: " (org-get-buffer-tags)))) (let ( rs (last-command 'kill-region) )