feat(emacs): Library additions

- Fixes bug with TRAMP Eshell prompt

users/crumb/programs/emacs/lib/syd-project.el

@@ -35,5 +35,16 @@ project\"."
   ;; TODO: Prompt for path project root is not found.
   (syd-search-directory (syd-project-root)))
 
+(defun syd-project-root-find-file (file-name)
+  "Just like `project-root-find-file', but allowing you to select the root
+directory itself."
+  (declare (interactive-only find-file))
+  (interactive
+   (list (let ((root (project-root (project-current t))))
+           (read-file-name
+            "Find file in root: "
+            root root (confirm-nonexistent-file-or-buffer)))))
+  (find-file file-name t))
+
 (provide 'syd-project)
 ;;; syd-project.el ends here