feat(emacs): Add `withLocalConfig` override function r/167

This function makes it possible to pass in a folder with additional
local configuration from somewhere downstream.

1 files changed, 6 insertions, 5 deletions

diff --git a/tools/emacs/config/init.el b/tools/emacs/config/init.el
index a23a16fca550..83621a99f9c1 100644
--- a/tools/emacs/config/init.el
+++ b/tools/emacs/config/init.el
@@ -170,10 +170,11 @@
 (telephone-line-setup)
 (ace-window-display-mode)
 
-;; If a local configuration file exists, it should be loaded. No
-;; other configuration comes from `user-emacs-directory'.
-(let ((local-file (expand-file-name (f-join user-emacs-directory "local.el"))))
-  (when (f-exists? local-file)
-    (load local-file)))
+;; If a local configuration library exists, it should be loaded.
+;;
+;; This can be provided by calling my Emacs derivation with
+;; `withLocalConfig'.
+(if-let (local-file (locate-library "local"))
+    (load local-file))
 
 (provide 'init)