emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor org-mode config

Browse source
This commit is contained in:
Henrik Lissner 2015-11-21 18:03:11 -05:00
parent 8537361e50
commit b7d03fff52
3 changed files with 104 additions and 98 deletions
Download patch file Download diff file Expand all files Collapse all files

90
modules/lib/defuns-org-custom.el
View file

@ -1,57 +1,61 @@
;;; defuns-org-custom.el -- custom functions, links, etc. for Org-mode
(progn ;; 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)))
;;; 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))
(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))
(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))
(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)))))
(defun org-contact-complete-link ()
(narf-org-complete "contact"))
(defun org-project-complete-link ()
(narf-org-complete "project"))
(defun org-invoice-complete-link ()
(narf-org-complete "invoice")))
(progn ;; Deft
;;;###autoload
(defun narf/deft-projects ()
(interactive)
(require 'deft)
(let ((deft-directory org-directory-projects))
(deft)))
(defun narf/org-link-invoice (id)
(org-open-file (narf--org-id-to-file id org-directory-invoices "%s.org") t))
;;;###autoload
(defun narf/deft-contact ()
(interactive)
(require 'deft)
(let ((deft-directory org-directory-contacts))
(deft)))
(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 narf/deft-invoices ())
(defun org-contact-complete-link ()
(narf/org-complete "contact"))
;;;###autoload
(defun narf/deft-writing ()))
(defun org-project-complete-link ()
(narf/org-complete "project"))
;;;###autoload
(defun org-invoice-complete-link ()
(narf/org-complete "invoice"))
;;; Deft
;;;###autoload
(defun narf/deft-projects ()
(interactive)
(require 'deft)
(let ((deft-directory org-directory-projects))
(deft)))
;;;###autoload
(defun narf/deft-contact ()
(interactive)
(require 'deft)
(let ((deft-directory org-directory-contacts))
(deft)))
;;;###autoload
(defun narf/deft-invoices ())
;;;###autoload
(defun narf/deft-writing ())
(provide 'defuns-org-custom)
;;; defuns-org-custom.el ends here