From 30cdf1e94183dd2ca761e2283dea7c756eb814c5 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Fri, 15 Jun 2018 14:23:41 -0400 Subject: Support current-project variable DRYs up configuration... This value is used to set: - my initial buffer - where -p jumps to --- emacs.d/wpc/packages/wpc-misc.el | 2 +- emacs.d/wpc/packages/wpc-ui.el | 2 +- emacs.d/wpc/variables.el | 4 ++++ 3 files changed, 6 insertions(+), 2 deletions(-) (limited to 'emacs.d') 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] -- cgit 1.4.1