howard/hamacs
howard/hamacs
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change approach for determining if Emacs is "for work".

Browse source
This commit is contained in:
Howard Abrams 2022-10-03 10:10:38 -07:00
parent a00bcbf88c
commit 097431544e
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
bootstrap.org
View file

@ -165,16 +165,13 @@ Much of my more complicated code comes from my website essays and other projects
Hopefully, this will tie me over while I transition. Hopefully, this will tie me over while I transition.
** Emacs Server Control ** Emacs Server Control
Sure the Emacs application will almost always have the =server-start= going, but I need to control it (because I often have two instances running on some of my machines). What /defines/ the Emacs instance for work changes ... often: I actually run two instances of Emacs on some systems, where one instance has all my work-related projects, perspectives, and packages installed (like LSP), and my personal instance has other packages running (like IRC and Mail). I need a function that can make that distinction, and based on that, it will set =server-start= appropriately, so that =emacsclient= can call into the correct one.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defun ha-emacs-for-work? () (defun ha-emacs-for-work? ()
"Return non-nil when the Emacs application's location matches as one for work. "Return non-nil when the Emacs application's location matches as one for work.
This is the `emacs-plus@28' app that I have built with Based on initially running the app with a `FOR_WORK' environment variable."
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) (getenv "FOR_WORK")))
(string-match "emacs-plus@29" 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: