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