.emacs-my
changeset 1471 431c5408394c
parent 1470 787318562f0a
child 1472 c8da9757d036
equal deleted inserted replaced
1470:787318562f0a 1471:431c5408394c
  1710 (setq org-default-notes-file my/org-agenda-todo-file)
  1710 (setq org-default-notes-file my/org-agenda-todo-file)
  1711 (setq org-capture-templates
  1711 (setq org-capture-templates
  1712       '(("t" "Todo" entry (file my/org-agenda-todo-file) "* %?\n  SCHEDULED: %T")))
  1712       '(("t" "Todo" entry (file my/org-agenda-todo-file) "* %?\n  SCHEDULED: %T")))
  1713 (define-key global-map "\C-vr"
  1713 (define-key global-map "\C-vr"
  1714   (lambda () (interactive) (org-capture nil "t")))
  1714   (lambda () (interactive) (org-capture nil "t")))
       
  1715 
       
  1716 (when (featurep 'company)
       
  1717   (add-hook 'org-mode-hook #'my/company-text-setup))
  1715 
  1718 
  1716 (defun my/org-archive-location (path)
  1719 (defun my/org-archive-location (path)
  1717   "For given PATH make path to archive. Currently add undescore
  1720   "For given PATH make path to archive. Currently add undescore
  1718 before file extention. If file name doesn't match
  1721 before file extention. If file name doesn't match
  1719 `org-agenda-file-regexp' or have no extention return `nil'."
  1722 `org-agenda-file-regexp' or have no extention return `nil'."