diff options
| author | Thomas Voss <mail@thomasvoss.com> | 2024-09-23 08:59:45 +0200 |
|---|---|---|
| committer | Thomas Voss <mail@thomasvoss.com> | 2024-09-23 08:59:45 +0200 |
| commit | 513745c23b4e96bf1d1c16f69367d386438efd92 (patch) | |
| tree | c9e2aa9c7b64248ff2372294bc2d7a6538173368 /.config | |
| parent | f1f25d7089afacc5de1c3b11adae9a39f1e2e4ff (diff) | |
emacs: Comment out some code for now
Diffstat (limited to '.config')
| -rw-r--r-- | .config/emacs/init.el | 38 |
1 files changed, 18 insertions, 20 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index 07c0395..66054db 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -686,30 +686,28 @@ ligatures for `c-ts-mode', the following two entries could be added: (global-ligature-mode)) ;;; Set Project List -(eval-and-compile - (require 'files)) - -(defun x-project-root-override (directory) - "Find the project root of DIRECTORY. This function works under the -assumption that projects are stored under $REPODIR in the format -OWNER/PROJECT. This would mean for example that Emacs would be located -under $REPODIR/GNU/Emacs." - (when-let* ((repo-dir (getenv "REPODIR")) - (canonical (f-canonical directory)) - (canonical-parts (f-split canonical)) - (length-dir-parts (length canonical-parts)) - (length-repo-parts (length (f-split repo-dir))) - (projectp (and (string-prefix-p repo-dir canonical) - (>= length-dir-parts (+ length-repo-parts 2))))) - (list - 'vc - (ignore-errors (vc-responsible-backend canonical)) - (apply #'f-join (take (+ length-repo-parts 2) canonical-parts))))) +;; (defun x-project-root-override (directory) +;; "Find the project root of DIRECTORY. This function works under the +;; assumption that projects are stored under $REPODIR in the format +;; OWNER/PROJECT. This would mean for example that Emacs would be located +;; under $REPODIR/GNU/Emacs." +;; (when-let* ((repo-dir (getenv "REPODIR")) +;; (canonical (f-canonical directory)) +;; (canonical-parts (f-split canonical)) +;; (length-dir-parts (length canonical-parts)) +;; (length-repo-parts (length (f-split repo-dir))) +;; (projectp (and (string-prefix-p repo-dir canonical) +;; (>= length-dir-parts (+ length-repo-parts 2))))) +;; (list +;; 'vc +;; (ignore-errors (vc-responsible-backend canonical)) +;; (apply #'f-join (take (+ length-repo-parts 2) canonical-parts))))) (use-package project :ensure nil + :defer nil :config - (add-hook 'project-find-functions #'x-project-root-override) + ;; (add-hook 'project-find-functions #'x-project-root-override) (mapc #'project-remember-projects-under (directory-files (getenv "REPODIR") :full "\\`[^.]"))) |