diff options
Diffstat (limited to 'emacs')
| -rw-r--r-- | emacs/.emacs.d/wpc/bookmark.el | 9 | ||||
| -rw-r--r-- | emacs/.emacs.d/wpc/constants.el | 2 | ||||
| -rw-r--r-- | emacs/.emacs.d/wpc/dotfiles.el | 9 | ||||
| -rw-r--r-- | emacs/.emacs.d/wpc/window-manager.el | 10 | ||||
| -rw-r--r-- | emacs/.emacs.d/wpc/wpc-nix.el | 20 |
5 files changed, 25 insertions, 25 deletions
diff --git a/emacs/.emacs.d/wpc/bookmark.el b/emacs/.emacs.d/wpc/bookmark.el index 734ddaa13a27..01c28ff00474 100644 --- a/emacs/.emacs.d/wpc/bookmark.el +++ b/emacs/.emacs.d/wpc/bookmark.el @@ -62,11 +62,8 @@ Otherwise, open with `counsel-find-file'." (make-bookmark :label "org" :path "~/Dropbox/org" :kbd "o") - (make-bookmark :label "universe" - :path "~/universe" - :kbd "m") - (make-bookmark :label "dotfiles" - :path "~/dotfiles" + (make-bookmark :label "briefcase" + :path (getenv "BRIEFCASE") :kbd "d") (make-bookmark :label "current project" :path constants/current-project @@ -81,7 +78,7 @@ Otherwise, open with `counsel-find-file'." (defun bookmark/magit-status () "Use ivy to select a bookmark and jump to its `magit-status' buffer." (interactive) - (let ((labels (set/new "dotfiles" "universe" "depot")) + (let ((labels (set/new "briefcase" "depot")) (all-labels (->> bookmark/whitelist (list/map (>> bookmark-label)) set/from-list))) diff --git a/emacs/.emacs.d/wpc/constants.el b/emacs/.emacs.d/wpc/constants.el index 5bfedf5553c6..9f12e249fbba 100644 --- a/emacs/.emacs.d/wpc/constants.el +++ b/emacs/.emacs.d/wpc/constants.el @@ -21,7 +21,7 @@ ;; current consumers of these constants, and I'm unsure if the indirection that ;; globally defined constants introduces is worth it. -(defconst constants/current-project "~/universe" +(defconst constants/current-project "~/briefcase/blog" "Variable holding the directory for my currently active project.") (prelude/assert (f-directory? constants/current-project)) diff --git a/emacs/.emacs.d/wpc/dotfiles.el b/emacs/.emacs.d/wpc/dotfiles.el index 2e78cf213733..d27815c9e3e4 100644 --- a/emacs/.emacs.d/wpc/dotfiles.el +++ b/emacs/.emacs.d/wpc/dotfiles.el @@ -20,9 +20,12 @@ (defconst dotfiles/install-kbds? t "When t, install the keybindings.") +(defconst dotfiles/directory (getenv "BRIEFCASE") + "The root directory of my configuration files.") + (defconst dotfiles/whitelist - '(("compton" . "~/.config/compton.conf") - ("dotfiles" . "~/dotfiles/") + `(("compton" . "~/.config/compton.conf") + ("dotfiles" . ,dotfiles/directory) ("functions" . "~/functions.zsh") ("aliases" . "~/aliases.zsh") ("variables" . "~/variables.zsh") @@ -47,7 +50,7 @@ (defun dotfiles/find-emacs-file (name) "Call `find-file' on NAME located in dotfiles's emacs.d directory." (find-file - (f-join "~/dotfiles/configs/shared/.emacs.d" name))) + (f-join dotfiles/directory "emacs/.emacs.d" name))) (provide 'dotfiles) ;;; dotfiles.el ends here diff --git a/emacs/.emacs.d/wpc/window-manager.el b/emacs/.emacs.d/wpc/window-manager.el index cf7f1efeb799..b6caa8adfd8f 100644 --- a/emacs/.emacs.d/wpc/window-manager.el +++ b/emacs/.emacs.d/wpc/window-manager.el @@ -78,7 +78,7 @@ :index 1 :kbd "p") (make-exwm/named-workspace - :label "Dotfiles" + :label "Briefcase" :index 2 :kbd "d") (make-exwm/named-workspace @@ -611,10 +611,8 @@ Currently using super- as the prefix for switching workspaces." ;; Dotfiles ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (progn - (exwm/switch "Dotfiles") - (dotfiles/find-emacs-file "init.el") - (wpc/evil-window-vsplit-right) - (dotfiles/find-emacs-file "wpc/window-manager.el")) + (exwm/switch "Briefcase") + (dotfiles/find-emacs-file "init.el")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Chatter ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -641,7 +639,7 @@ Currently using super- as the prefix for switching workspaces." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Reset to default ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - (exwm/switch "Dotfiles")))) + (exwm/switch "Briefcase")))) (provide 'window-manager) ;;; window-manager.el ends here diff --git a/emacs/.emacs.d/wpc/wpc-nix.el b/emacs/.emacs.d/wpc/wpc-nix.el index 68d542e01176..7407e02bfd41 100644 --- a/emacs/.emacs.d/wpc/wpc-nix.el +++ b/emacs/.emacs.d/wpc/wpc-nix.el @@ -8,8 +8,10 @@ ;; Dependencies ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(prelude/assert (f-exists? "~/universe")) -(prelude/assert (f-exists? "~/depot")) +;; TODO: These may fail at startup. How can I make sure that the .envrc is +;; consulted when Emacs starts? +(prelude/assert (f-exists? (getenv "BRIEFCASE"))) +(prelude/assert (f-exists? (getenv "DEPOT"))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Library @@ -19,7 +21,7 @@ (use-package nix-mode :mode "\\.nix\\'") -(defun nix/sly-from-universe (attribute) +(defun nix/sly-from-briefcase (attribute) "Start a Sly REPL configured with a Lisp matching a derivation from my monorepo. @@ -29,12 +31,12 @@ This function was taken from @tazjin's depot and adapted for my monorepo. asynchronously. The build output is included in the error thrown on build failures." (interactive "sAttribute: ") - (lexical-let* ((outbuf (get-buffer-create (format "*universe-out/%s*" attribute))) - (errbuf (get-buffer-create (format "*universe-errors/%s*" attribute))) - (expression (format "let depot = import <depot> {}; universe = import <universe> {}; in depot.nix.buildLisp.sbclWith [ universe.%s ]" attribute)) + (lexical-let* ((outbuf (get-buffer-create (format "*briefcase-out/%s*" attribute))) + (errbuf (get-buffer-create (format "*briefcase-errors/%s*" attribute))) + (expression (format "let depot = import <depot> {}; briefcase = import <briefcase> {}; in depot.nix.buildLisp.sbclWith [ briefcase.%s ]" attribute)) (command (list "nix-build" "-E" expression))) - (message "Acquiring Lisp for <depot>.%s" attribute) - (make-process :name (format "depot-nix-build/%s" attribute) + (message "Acquiring Lisp for <briefcase>.%s" attribute) + (make-process :name (format "nix-build/%s" attribute) :buffer outbuf :stderr errbuf :command command @@ -45,7 +47,7 @@ This function was taken from @tazjin's depot and adapted for my monorepo. ("finished\n" (let* ((outpath (s-trim (with-current-buffer outbuf (buffer-string)))) (lisp-path (s-concat outpath "/bin/sbcl"))) - (message "Acquired Lisp for <depot>.%s at %s" attribute lisp-path) + (message "Acquired Lisp for <briefcase>.%s at %s" attribute lisp-path) (sly lisp-path))) (_ (with-current-buffer errbuf (error "Failed to build '%s':\n%s" attribute (buffer-string))))) |