about summary refs log tree commit diff
path: root/emacs.d
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2018-06-15T18·23-0400
committerWilliam Carroll <wpcarro@gmail.com>2018-07-19T16·00-0400
commit30cdf1e94183dd2ca761e2283dea7c756eb814c5 (patch)
treec2918168f2d2fd18523218367c8cff77282a4696 /emacs.d
parent519be4dca1a5b7505aa3ad18f604b9db1f7a175b (diff)
Support current-project variable
DRYs up configuration...

This value is used to set:
  - my initial buffer
  - where <leader>-p jumps to
Diffstat (limited to 'emacs.d')
-rw-r--r--emacs.d/wpc/packages/wpc-misc.el2
-rw-r--r--emacs.d/wpc/packages/wpc-ui.el2
-rw-r--r--emacs.d/wpc/variables.el4
3 files changed, 6 insertions, 2 deletions
diff --git a/emacs.d/wpc/packages/wpc-misc.el b/emacs.d/wpc/packages/wpc-misc.el
index fc65d7aa19b1..5958a47aa10f 100644
--- a/emacs.d/wpc/packages/wpc-misc.el
+++ b/emacs.d/wpc/packages/wpc-misc.el
@@ -34,7 +34,7 @@
 (set-register ?o '(file . "~/Dropbox/org/"))
 (set-register ?c '(file . "~/Dropbox/org/chains.org"))
 (set-register ?b '(file . "~/Dropbox/org/backlog.org"))
-(set-register ?p '(file . "~/urbint/grid-client"))
+(set-register ?p `(file . ,wpc/current-project))
 
 ;; persist history etc b/w Emacs sessions
 (setq desktop-save 'if-exists)
diff --git a/emacs.d/wpc/packages/wpc-ui.el b/emacs.d/wpc/packages/wpc-ui.el
index 3d3b577e5906..c8126356e4f7 100644
--- a/emacs.d/wpc/packages/wpc-ui.el
+++ b/emacs.d/wpc/packages/wpc-ui.el
@@ -54,7 +54,7 @@
 ;;(add-hook 'after-init-hook (lambda () (set-face-foreground 'linum "#da5468")))
 
 ;; set default buffer for Emacs
-(setq initial-buffer-choice "~/urbint/grid-client")
+(setq initial-buffer-choice wpc/current-project)
 
 ;; transparent Emacs
 (set-frame-parameter (selected-frame) 'alpha '(100 . 100))
diff --git a/emacs.d/wpc/variables.el b/emacs.d/wpc/variables.el
index af6bfde45a41..bd5af2a01051 100644
--- a/emacs.d/wpc/variables.el
+++ b/emacs.d/wpc/variables.el
@@ -6,6 +6,10 @@
 
 ;;; Code:
 
+(defconst wpc/current-project
+  "~/urbint/grid/"
+  "Variable holding the directory for my currently active project.")
+
 (defvar wpc/mouse-kbds
   '([mouse-1] [down-mouse-1] [drag-mouse-1] [double-mouse-1] [triple-mouse-1]
     [mouse-2] [down-mouse-2] [drag-mouse-2] [double-mouse-2] [triple-mouse-2]