exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use builtin project instead of external projectile from now on

Browse Source 
`projectile` is nice, but I rarely use a fraction of its functionality
and not having to use an external package for project management feels
more robust.
This commit is contained in:
Daniel Borchmann 2024-12-31 14:57:56 +01:00
parent 70e85b9419
commit a1e372e31e
No known key found for this signature in database
GPG Key ID: 784AA8DF0CCDF625
2 changed files with 5 additions and 162 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
init.el
View File

@ -263,6 +263,9 @@
(proced-goal-attribute nil)
(proced-enable-color-flag t)))
(use-package project
:init (setq project-list-file (expand-file-name "projects" emacs-d-userdata)))
(use-package quail
:init (setq default-input-method "TeX")
:config (add-hook 'input-method-activate-hook
@ -411,9 +414,7 @@
(add-to-list 'package-pinned-packages '(lv . "melpa-stable"))
(use-package projectile
:ensure t
:commands (projectile-mode)
:defines (projectile-known-projects)
:bind (:map projectile-mode-map ("C-c p" . projectile-command-map))
:init (setq projectile-switch-project-action 'projectile-dired
projectile-completion-system 'helm
@ -422,8 +423,7 @@
projectile-known-projects-file (expand-file-name "projectile-bookmarks.eld"
emacs-d-userdata)
projectile-cache-file (expand-file-name "projectile.cache"
emacs-d-userdata))
:diminish projectile-mode)
emacs-d-userdata)))
;; * Text editing
@ -2524,8 +2524,7 @@ eventuelly be set to nil, however)."
(if (string= event "finished\n")
(kill-buffer ,buff)))))))
;; does not work; C-c is shadowed by some minor modes like semantic,
;; projectile, and winner
;; Does not work; C-c is shadowed by some minor modes like semantic and winner
(bind-key "C-c" #'term-send-raw term-raw-map)
;; unbind some keys to allow the global keymap to handle them
@ -2946,7 +2945,6 @@ eventuelly be set to nil, however)."
ace-window-display-mode
key-chord-mode
which-key-mode
projectile-mode
yas-global-mode
global-git-commit-mode
marginalia-mode

155
site-lisp/db-projects.el
View File

@ -1,155 +0,0 @@
;;; db-projects.el -- Simple Directory-Based Project Management -*- lexical-binding: t -*-
;;; Commentary:
;; A project is simply a directory under `db/projects-main-project-directory'
;; containing either .git or .projectile. This little collection of functions
;; helps to manage these project directories and integrate them consistently
;; with the projectile package.
;; To start, first customize `db/projects-main-project-directory' and
;; `db/projects-archive-directory' as needed. Then use
;; `db/projects-add-project' to add new projects and
;; `db/projects-archive-project' to archive them (i.e., move them to
;; `db/projects-archive-directory'). This package does not offer to remove
;; projects; this has to be done manually.
;;; Code:
(require 'subr-x)
(require 'cl-lib)
(require 'dash)
(require 'bookmark)
(require 'projectile)
(defgroup db/projects nil
"Simple directory-based project management."
:tag "Project Management"
:group 'db/projects)
(defcustom db/projects-main-project-directory "~/Documents/projects/"
"Main directory to host projects."
:group 'db/projects
:type 'directory)
(defcustom db/projects-archive-directory "~/Documents/projects/.archive/"
"Directory to archive projects into."
:group 'db/projects
:type 'directory)
(defun db/projects-project-exists-p (short-name)
"Check whether a project named SHORT-NAME already exists."
(or
(file-exists-p (expand-file-name (concat (file-name-as-directory short-name)
".git")
db/projects-main-project-directory))
(file-exists-p (expand-file-name (concat (file-name-as-directory short-name)
".projectile")
db/projects-main-project-directory))))
(defun db/projects-existing-projects ()
"Return list of all short-names of existing projects."
(cl-remove-if-not #'db/projects-project-exists-p
(directory-files db/projects-main-project-directory
nil "^[^.]")))
;;;###autoload
(defun db/projects-add-project (short-name)
"Add new project with SHORT-NAME.
The project directory will be located under
`projects-main-project-directory' within a directory named
SHORT-NAME."
(interactive "sShort Name: ")
(when (db/projects-project-exists-p short-name)
(user-error "Project %s already exists, exiting" short-name))
(when (file-exists-p (expand-file-name short-name
db/projects-archive-directory))
(user-error "Project %s already exists as archived project, exiting" short-name))
(let* ((project-directory (expand-file-name short-name
db/projects-main-project-directory))
(default-directory project-directory))
(make-directory project-directory)
(if-let ((git-executable (executable-find "git")))
(call-process git-executable nil nil nil "init")
(write-region "" nil (expand-file-name ".projectile")))
(projectile-add-known-project project-directory)))
;;;###autoload
(defun db/projects-archive-project (short-name)
"Archive existing project identified by SHORT-NAME.
This amounts to moving the project directory SHORT-NAME under
`projects-main-project-directory' to
`projects-archive-directory', deleting all bookmarks into the
project, and updating projectile's cache."
(interactive
(list (completing-read "Short Name: " (db/projects-existing-projects) nil t)))
(unless (db/projects-project-exists-p short-name)
(user-error "Project %s does not exist, exiting" short-name))
(let ((project-path (expand-file-name short-name db/projects-main-project-directory))
(archive-path (expand-file-name short-name db/projects-archive-directory)))
(when (file-exists-p archive-path)
(user-error "Archived project named %s already exists, aborting" short-name))
;; Move project directory into archive
(unless (file-exists-p db/projects-archive-directory)
(make-directory db/projects-archive-directory))
(rename-file project-path archive-path nil)
;; Update projectile’s cache
(projectile-cleanup-known-projects)))
(defun db/projects--org-files ()
"Return all Org Mode files in all known projects, recursively.
Paths returned are absolute, but may not be canonical."
(mapcan #'(lambda (dir)
(directory-files-recursively (expand-file-name dir db/projects-main-project-directory)
".*\\.org" nil))
(db/projects-existing-projects)))
;; Let's keep the byte compiler happy
(defvar org-agenda-text-search-extra-files)
(defvar org-agenda-files)
(defun db/projects-find-unsearched-org-files ()
"Find Org Mode files in known projects that are not searched by default.
This is done by checking all org Mode files in every project
whether it is included in `org-agenda-text-search-extra-files' or
in `org-agenda-files'."
(require 'org)
(let ((extra-files (make-hash-table :test #'equal)))
(mapc #'(lambda (entry)
(when (stringp entry)
(puthash (file-truename entry) t extra-files)))
(append org-agenda-files org-agenda-text-search-extra-files))
(cl-remove-if #'(lambda (org-file)
(gethash (file-truename org-file) extra-files nil))
(db/projects--org-files))))
;;;###autoload
(defun db/projects-lint-projects ()
"Check all known projects for proper configuration.
This includes checking whether all bookmarks are in place and
whether `org-agenda-text-search-extra-files' is set up to search
through all included Org Mode files."
(interactive)
(with-current-buffer (get-buffer-create " *projects lint results*")
(erase-buffer)
(when-let ((unsearched-org-files (db/projects-find-unsearched-org-files)))
(insert "The following Org Mode files are not included in `org-agenda-text-search-extra-files'; you may want to add them.")
(dolist (file unsearched-org-files)
(insert "\n " file))
(insert "\n\n"))
(display-buffer (current-buffer))))
(provide 'db-projects)
;;; db-projects.el ends here