blah

modules/home/users/msyds/emacs/lisp/syd/prelude.el

@@ -2,6 +2,7 @@
 
 (eval-when-compile (require 'cl-lib))
 (require 'syd/dash)
+(require 'dash)
 
 (cl-defmacro syd-define-stub
     (name &key (desc "implement me!") interactive)
@@ -167,6 +168,11 @@ form."
                         `(advice-add ,sym ,how #',name)))
                     advice))))
 
+(defun syd-emacs-file (&rest components)
+  "Construct a file path relative to `user-emacs-directory'."
+  (apply #'file-name-concat
+         user-emacs-directory components))
+
 ;; (syd-defadvice syd-lsp-install-server-a ()
 ;;   :override #'lsp-install-server
 ;;   (user-error (concat "Ignoring a call to `lsp-install-server'"