59 lines
1.8 KiB
EmacsLisp
59 lines
1.8 KiB
EmacsLisp
;;; defuns-org-custom.el -- custom functions, links, etc. for Org-mode
|
|
|
|
;;; Custom links
|
|
(defun narf--org-id-to-file (id dir &optional pattern)
|
|
(let* ((glob (f-glob (format (concat "%s" (or pattern "%s-*.org")) dir id)))
|
|
(glob-len (length glob)))
|
|
(when (zerop glob-len)
|
|
(user-error "Could not find file with that ID"))
|
|
(car glob)))
|
|
|
|
;;;###autoload
|
|
(defun narf/org-link-contact (id)
|
|
(org-open-file (narf--org-id-to-file id org-directory-contacts) t))
|
|
;;;###autoload
|
|
(defun narf/org-link-project (id)
|
|
(org-open-file (narf--org-id-to-file id org-directory-projects) t))
|
|
;;;###autoload
|
|
(defun narf/org-link-invoice (id)
|
|
(org-open-file (narf--org-id-to-file id org-directory-invoices "%s.org") t))
|
|
|
|
;;;###autoload
|
|
(defun narf/org-complete (type)
|
|
(let ((default-directory (symbol-value (intern (format "org-directory-%ss" type)))))
|
|
(let* ((file (org-iread-file-name ">>> "))
|
|
(match (s-match "^\\([0-9]+\\)[-.]" (f-filename file))))
|
|
(unless match
|
|
(user-error "Invalid file ID"))
|
|
(format "%s:%s" type (cadr match)))))
|
|
|
|
;;;###autoload
|
|
(defun org-contact-complete-link ()
|
|
(narf/org-complete "contact"))
|
|
;;;###autoload
|
|
(defun org-project-complete-link ()
|
|
(narf/org-complete "project"))
|
|
;;;###autoload
|
|
(defun org-invoice-complete-link ()
|
|
(narf/org-complete "invoice"))
|
|
|
|
;;; Deft
|
|
;;;###autoload
|
|
(defun narf/helm-org-projects ()
|
|
(interactive)
|
|
(narf/helm-org-search org-directory-projects))
|
|
;;;###autoload
|
|
(defun narf/helm-org-contacts ()
|
|
(interactive)
|
|
(narf/helm-org-search org-directory-contacts))
|
|
;;;###autoload
|
|
(defun narf/helm-org-invoices ()
|
|
(interactive)
|
|
(narf/helm-org-search org-directory-invoices))
|
|
;;;###autoload
|
|
(defun narf/helm-org-writing ()
|
|
(interactive)
|
|
(narf/helm-org-search (expand-file-name "writing/" org-directory)))
|
|
|
|
(provide 'defuns-org-custom)
|
|
;;; defuns-org-custom.el ends here
|