Support utils for finding Emacs dotfiles and Org files

Defined `dotfiles/find-emacs-file` and `org-helpers/find-file`, to clean up some
of the `find-file` calls I have with long path names. This DRYs things up as
well so that the path can be changed without breaking many other things.

1 files changed, 29 insertions, 0 deletions

diff --git a/configs/shared/.emacs.d/wpc/org-helpers.el b/configs/shared/.emacs.d/wpc/org-helpers.el
new file mode 100644
index 000000000000..ef99b18ee053
--- /dev/null
+++ b/configs/shared/.emacs.d/wpc/org-helpers.el
@@ -0,0 +1,29 @@
+;;; org-helpers.el --- Utility functions for working with my Org setup -*- lexical-binding: t -*-
+;; Author: William Carroll <wpcarro@gmail.com>
+
+;;; Commentary:
+;; Some small utility functions intended to make me more likely to use Org mode
+;; more often.
+
+;;; Code:
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Dependencies
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(require 'f)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Library
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defconst org-helpers/directory "~/Dropbox/org"
+  "The directory where I store most of my Org files.")
+
+(defun org-helpers/find-file (name)
+  "Call `find-file' on NAME in my org directory"
+  (find-file
+   (f-join org-helpers/directory name)))
+
+(provide 'org-helpers)
+;;; org-helpers.el ends here