From 513745c23b4e96bf1d1c16f69367d386438efd92 Mon Sep 17 00:00:00 2001
From: Thomas Voss <mail@thomasvoss.com>
Date: Mon, 23 Sep 2024 08:59:45 +0200
Subject: emacs: Comment out some code for now
---
.config/emacs/init.el | 38 ++++++++++++++++++--------------------
1 file changed, 18 insertions(+), 20 deletions(-)
(limited to '.config/emacs')
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 "\\`[^.]")))
--
cgit v1.2.3