1887 (define-key global-map "\C-vr"

  1887 (define-key global-map "\C-vr"

  1888   (lambda () (interactive) (org-capture nil "t")))

  1888   (lambda () (interactive) (org-capture nil "t")))

  1889 

  1889 

  1890 (when (featurep 'company)

  1890 (when (featurep 'company)

  1891   (add-hook 'org-mode-hook #'my-company-text-setup))

  1891   (add-hook 'org-mode-hook #'my-company-text-setup))

  1892 

  1893 

  1893 (defun my-org-archive-location (path)

  1894 (defun my-org-archive-location (path)

  1894   "For given PATH make path to archive. Currently add undescore

  1895   "For given PATH make path to archive. Currently add undescore

  1895 before file extention. If file name doesn't match

  1896 before file extention. If file name doesn't match

  1896 `org-agenda-file-regexp' or have no extention return `nil'."

  1897 `org-agenda-file-regexp' or have no extention return `nil'."