Better approach to running Emacs for work.

This commit is contained in:
Howard Abrams 2022-08-31 21:45:21 -07:00
parent 6725f2a354
commit 71f47a5490

View file

@ -32,15 +32,15 @@ I'm going to be installing everything using the [[https://github.com/raxod502/st
(defvar bootstrap-version) (defvar bootstrap-version)
(let ((bootstrap-file (let ((bootstrap-file
(expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
(bootstrap-version 5)) (bootstrap-version 5))
(unless (file-exists-p bootstrap-file) (unless (file-exists-p bootstrap-file)
(with-current-buffer (with-current-buffer
(url-retrieve-synchronously (url-retrieve-synchronously
"https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el" "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
'silent 'inhibit-cookies) 'silent 'inhibit-cookies)
(goto-char (point-max)) (goto-char (point-max))
(eval-print-last-sexp))) (eval-print-last-sexp)))
(load bootstrap-file nil 'nomessage)) (load bootstrap-file nil 'nomessage))
#+end_src #+end_src
@ -174,7 +174,7 @@ Sure the Emacs application will almost always have the =server-start= going, but
the native-comp model, but I reserve the right to change this." the native-comp model, but I reserve the right to change this."
(and (f-dir? "~/work") (and (f-dir? "~/work")
;; (string-match "emacs-plus@28" exec-directory) ;; (string-match "emacs-plus@28" exec-directory)
(not (string-match "Emacs.app" exec-directory)))) (string-match "Emacs-Work" exec-directory)))
#+end_src #+end_src
And now start the server with an appropriate tag name: And now start the server with an appropriate tag name: