GNU bug report logs - #76587
31.0.50; [FR] project.el should have a way to exclude certain projects from being saved

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 76587 in the body.
You can then email your comments to 76587 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Visuwesh <visuweshm <at> gmail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 31.0.50; [FR] project.el should have a way to exclude certain
 projects from being saved
Date: Wed, 26 Feb 2025 19:29:40 +0530

It is quite frustrating to use C-x p p to jump to projects when it can
easily get cluttered with projects that you never want to jump to.
E.g., as my user-emacs-directory only really tracks init.el, I don't
want project.el to save it in the projects file.  When it does, it gets
in the way when I am completing ~/lib/ports/emacs which is where I keep
my checkout of the Emacs repo.
Likewise, I do not want to save remote projects at all.

AFAIU, the current way is to use project-forget-project and friends, but
they are cumbersome.  They work nice when you want to remove a
"completed" project but they don't help when you want to use project
commands judiciously for "temporary" projects (like a checkout that
you're editing for a patch).  I would like to have a user option like
recentf-exclude which would prevent project--write-project-list from
saving certain projects.  To that end, I propose the following patch,
WDYT?


diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 35bf66c9ffb..3bae0b7404c 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1837,6 +1837,12 @@ project-list-file
   :version "28.1"
   :group 'project)
 
+(defcustom project-ignore-regexps nil
+  "List of regexp for project names to ignore when saving known projects."
+  :type '(repeat regexp)
+  :version "31.1"
+  :group 'project)
+
 (defvar project--list 'unset
   "List structure containing root directories of known projects.
 With some possible metadata (to be decided).")
@@ -1877,11 +1883,17 @@ project--write-project-list
       (insert ";;; -*- lisp-data -*-\n")
       (let ((print-length nil)
             (print-level nil))
-        (pp (mapcar (lambda (elem)
-                      (let ((name (car elem)))
-                        (list (if (file-remote-p name) name
-                                (expand-file-name name)))))
-                    project--list)
+        (pp (delq
+             nil
+             (mapcar (lambda (elem)
+                       (let ((name (if (file-remote-p (car elem))
+                                       (car elem)
+                                     (expand-file-name (car elem)))))
+                         (when (or (null project-ignore-regexps)
+                                   (not (seq-some (lambda (r) (string-match-p r name))
+                                                  project-ignore-regexps)))
+                           (list name))))
+                     project--list))
             (current-buffer)))
       (write-region nil nil filename nil 'silent))))

P.S. I wish there was a way for project backends to bow out from
project--write-project-list too.  Context: I have a "sibling-file"
project backend which mainly offers meaningful candidates to C-x p f
when visiting a file that has associated siblings.  I could use
find-sibling-file but using project.el comes with bonuses like
project-list-buffer, etc.

--

In GNU Emacs 31.0.50 (build 32, x86_64-pc-linux-gnu, X toolkit, cairo
 version 1.18.2, Xaw scroll bars) of 2025-02-15 built on astatine
Repository revision: 167157fc210ae078e683c80dc650e6a2bb5a6050
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12101015
System Description: Debian GNU/Linux trixie/sid

Configured using:
 'configure --with-sound=alsa --with-x-toolkit=lucid --without-xaw3d
 --without-gconf --without-libsystemd --with-cairo CFLAGS=-O2'
Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
LCMS2 LIBOTF LIBSELINUX LIBXML2 MODULES NOTIFY INOTIFY PDUMPER PNG RSVG
SECCOMP SOUND SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS WEBP X11 XDBE XIM
XINERAMA XINPUT2 XPM XRANDR LUCID ZLIB
Important settings:
  value of $LC_MONETARY: ta_IN.UTF-8
  value of $LC_NUMERIC: ta_IN.UTF-8
  value of $LANG: en_GB.UTF-8
  locale-coding-system: utf-8-unix

Major mode: ELisp/l

Minor modes in effect:
  csv-field-index-mode: t
  TeX-PDF-mode: t
  recentf-mode: t
  bug-reference-prog-mode: t
  server-mode: t
  paredit-mode: t
  eros-mode: t
  flymake-mode: t
  pdf-occur-global-minor-mode: t
  minibuffer-depth-indicate-mode: t
  repeat-mode: t
  display-time-mode: t
  display-battery-mode: t
  delete-selection-mode: t
  xterm-mouse-mode: t
  vz/winkey-minor-mode: t
  straight-use-package-mode: t
  straight-package-neutering-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  use-hard-newlines: t
  tab-bar-history-mode: t
  tab-bar-mode: t
  file-name-shadow-mode: t
  context-menu-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  undelete-frame-mode: t
  minibuffer-regexp-mode: t
  transient-mark-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  abbrev-mode: t

Load-path shadows:
/home/viz/lib/emacs/straight/build/transient/transient hides /home/viz/lib/ports/emacs/lisp/transient
/home/viz/lib/emacs/straight/build/org/ob-awk hides /home/viz/lib/ports/emacs/lisp/org/ob-awk
/home/viz/lib/emacs/straight/build/org/org-capture hides /home/viz/lib/ports/emacs/lisp/org/org-capture
/home/viz/lib/emacs/straight/build/org/ob-sql hides /home/viz/lib/ports/emacs/lisp/org/ob-sql
/home/viz/lib/emacs/straight/build/org/ol-doi hides /home/viz/lib/ports/emacs/lisp/org/ol-doi
/home/viz/lib/emacs/straight/build/org/org-plot hides /home/viz/lib/ports/emacs/lisp/org/org-plot
/home/viz/lib/emacs/straight/build/org/ob-dot hides /home/viz/lib/ports/emacs/lisp/org/ob-dot
/home/viz/lib/emacs/straight/build/org/ol-eshell hides /home/viz/lib/ports/emacs/lisp/org/ol-eshell
/home/viz/lib/emacs/straight/build/org/ob-C hides /home/viz/lib/ports/emacs/lisp/org/ob-C
/home/viz/lib/emacs/straight/build/org/ob-ref hides /home/viz/lib/ports/emacs/lisp/org/ob-ref
/home/viz/lib/emacs/straight/build/org/org-list hides /home/viz/lib/ports/emacs/lisp/org/org-list
/home/viz/lib/emacs/straight/build/org/org-mouse hides /home/viz/lib/ports/emacs/lisp/org/org-mouse
/home/viz/lib/emacs/straight/build/org/ob-haskell hides /home/viz/lib/ports/emacs/lisp/org/ob-haskell
/home/viz/lib/emacs/straight/build/org/ob-plantuml hides /home/viz/lib/ports/emacs/lisp/org/ob-plantuml
/home/viz/lib/emacs/straight/build/org/org-keys hides /home/viz/lib/ports/emacs/lisp/org/org-keys
/home/viz/lib/emacs/straight/build/org/org-clock hides /home/viz/lib/ports/emacs/lisp/org/org-clock
/home/viz/lib/emacs/straight/build/org/ox-html hides /home/viz/lib/ports/emacs/lisp/org/ox-html
/home/viz/lib/emacs/straight/build/org/oc-biblatex hides /home/viz/lib/ports/emacs/lisp/org/oc-biblatex
/home/viz/lib/emacs/straight/build/org/ob-table hides /home/viz/lib/ports/emacs/lisp/org/ob-table
/home/viz/lib/emacs/straight/build/org/ob hides /home/viz/lib/ports/emacs/lisp/org/ob
/home/viz/lib/emacs/straight/build/org/ol-w3m hides /home/viz/lib/ports/emacs/lisp/org/ol-w3m
/home/viz/lib/emacs/straight/build/org/ob-groovy hides /home/viz/lib/ports/emacs/lisp/org/ob-groovy
/home/viz/lib/emacs/straight/build/org/org-footnote hides /home/viz/lib/ports/emacs/lisp/org/org-footnote
/home/viz/lib/emacs/straight/build/org/org-entities hides /home/viz/lib/ports/emacs/lisp/org/org-entities
/home/viz/lib/emacs/straight/build/org/ob-org hides /home/viz/lib/ports/emacs/lisp/org/ob-org
/home/viz/lib/emacs/straight/build/org/org-macs hides /home/viz/lib/ports/emacs/lisp/org/org-macs
/home/viz/lib/emacs/straight/build/org/ob-shell hides /home/viz/lib/ports/emacs/lisp/org/ob-shell
/home/viz/lib/emacs/straight/build/org/ob-R hides /home/viz/lib/ports/emacs/lisp/org/ob-R
/home/viz/lib/emacs/straight/build/org/ob-lisp hides /home/viz/lib/ports/emacs/lisp/org/ob-lisp
/home/viz/lib/emacs/straight/build/org/ob-js hides /home/viz/lib/ports/emacs/lisp/org/ob-js
/home/viz/lib/emacs/straight/build/org/ob-maxima hides /home/viz/lib/ports/emacs/lisp/org/ob-maxima
/home/viz/lib/emacs/straight/build/org/org-element-ast hides /home/viz/lib/ports/emacs/lisp/org/org-element-ast
/home/viz/lib/emacs/straight/build/org/ox-ascii hides /home/viz/lib/ports/emacs/lisp/org/ox-ascii
/home/viz/lib/emacs/straight/build/org/org-persist hides /home/viz/lib/ports/emacs/lisp/org/org-persist
/home/viz/lib/emacs/straight/build/org/ox-md hides /home/viz/lib/ports/emacs/lisp/org/ox-md
/home/viz/lib/emacs/straight/build/org/org-duration hides /home/viz/lib/ports/emacs/lisp/org/org-duration
/home/viz/lib/emacs/straight/build/org/ob-lilypond hides /home/viz/lib/ports/emacs/lisp/org/ob-lilypond
/home/viz/lib/emacs/straight/build/org/ob-ruby hides /home/viz/lib/ports/emacs/lisp/org/ob-ruby
/home/viz/lib/emacs/straight/build/org/ob-core hides /home/viz/lib/ports/emacs/lisp/org/ob-core
/home/viz/lib/emacs/straight/build/org/ol-mhe hides /home/viz/lib/ports/emacs/lisp/org/ol-mhe
/home/viz/lib/emacs/straight/build/org/ob-ditaa hides /home/viz/lib/ports/emacs/lisp/org/ob-ditaa
/home/viz/lib/emacs/straight/build/org/ol-irc hides /home/viz/lib/ports/emacs/lisp/org/ol-irc
/home/viz/lib/emacs/straight/build/org/ob-fortran hides /home/viz/lib/ports/emacs/lisp/org/ob-fortran
/home/viz/lib/emacs/straight/build/org/org-feed hides /home/viz/lib/ports/emacs/lisp/org/org-feed
/home/viz/lib/emacs/straight/build/org/ob-java hides /home/viz/lib/ports/emacs/lisp/org/ob-java
/home/viz/lib/emacs/straight/build/org/ox hides /home/viz/lib/ports/emacs/lisp/org/ox
/home/viz/lib/emacs/straight/build/org/oc-csl hides /home/viz/lib/ports/emacs/lisp/org/oc-csl
/home/viz/lib/emacs/straight/build/org/ob-exp hides /home/viz/lib/ports/emacs/lisp/org/ob-exp
/home/viz/lib/emacs/straight/build/org/org-loaddefs hides /home/viz/lib/ports/emacs/lisp/org/org-loaddefs
/home/viz/lib/emacs/straight/build/org/ob-scheme hides /home/viz/lib/ports/emacs/lisp/org/ob-scheme
/home/viz/lib/emacs/straight/build/org/ob-tangle hides /home/viz/lib/ports/emacs/lisp/org/ob-tangle
/home/viz/lib/emacs/straight/build/org/ox-koma-letter hides /home/viz/lib/ports/emacs/lisp/org/ox-koma-letter
/home/viz/lib/emacs/straight/build/org/ob-gnuplot hides /home/viz/lib/ports/emacs/lisp/org/ob-gnuplot
/home/viz/lib/emacs/straight/build/org/org-crypt hides /home/viz/lib/ports/emacs/lisp/org/org-crypt
/home/viz/lib/emacs/straight/build/org/org-datetree hides /home/viz/lib/ports/emacs/lisp/org/org-datetree
/home/viz/lib/emacs/straight/build/org/org-attach hides /home/viz/lib/ports/emacs/lisp/org/org-attach
/home/viz/lib/emacs/straight/build/org/ob-julia hides /home/viz/lib/ports/emacs/lisp/org/ob-julia
/home/viz/lib/emacs/straight/build/org/ob-sqlite hides /home/viz/lib/ports/emacs/lisp/org/ob-sqlite
/home/viz/lib/emacs/straight/build/org/org-cycle hides /home/viz/lib/ports/emacs/lisp/org/org-cycle
/home/viz/lib/emacs/straight/build/org/org-faces hides /home/viz/lib/ports/emacs/lisp/org/org-faces
/home/viz/lib/emacs/straight/build/org/org-mobile hides /home/viz/lib/ports/emacs/lisp/org/org-mobile
/home/viz/lib/emacs/straight/build/org/org-ctags hides /home/viz/lib/ports/emacs/lisp/org/org-ctags
/home/viz/lib/emacs/straight/build/org/ob-latex hides /home/viz/lib/ports/emacs/lisp/org/ob-latex
/home/viz/lib/emacs/straight/build/org/ob-matlab hides /home/viz/lib/ports/emacs/lisp/org/ob-matlab
/home/viz/lib/emacs/straight/build/org/ob-sed hides /home/viz/lib/ports/emacs/lisp/org/ob-sed
/home/viz/lib/emacs/straight/build/org/org-attach-git hides /home/viz/lib/ports/emacs/lisp/org/org-attach-git
/home/viz/lib/emacs/straight/build/org/ob-python hides /home/viz/lib/ports/emacs/lisp/org/ob-python
/home/viz/lib/emacs/straight/build/org/ox-icalendar hides /home/viz/lib/ports/emacs/lisp/org/ox-icalendar
/home/viz/lib/emacs/straight/build/org/org-tempo hides /home/viz/lib/ports/emacs/lisp/org/org-tempo
/home/viz/lib/emacs/straight/build/org/ob-screen hides /home/viz/lib/ports/emacs/lisp/org/ob-screen
/home/viz/lib/emacs/straight/build/org/org-num hides /home/viz/lib/ports/emacs/lisp/org/org-num
/home/viz/lib/emacs/straight/build/org/ob-forth hides /home/viz/lib/ports/emacs/lisp/org/ob-forth
/home/viz/lib/emacs/straight/build/org/ox-odt hides /home/viz/lib/ports/emacs/lisp/org/ox-odt
/home/viz/lib/emacs/straight/build/org/ol-bbdb hides /home/viz/lib/ports/emacs/lisp/org/ol-bbdb
/home/viz/lib/emacs/straight/build/org/org-table hides /home/viz/lib/ports/emacs/lisp/org/org-table
/home/viz/lib/emacs/straight/build/org/ox-man hides /home/viz/lib/ports/emacs/lisp/org/ox-man
/home/viz/lib/emacs/straight/build/org/ox-org hides /home/viz/lib/ports/emacs/lisp/org/ox-org
/home/viz/lib/emacs/straight/build/org/ob-comint hides /home/viz/lib/ports/emacs/lisp/org/ob-comint
/home/viz/lib/emacs/straight/build/org/ob-clojure hides /home/viz/lib/ports/emacs/lisp/org/ob-clojure
/home/viz/lib/emacs/straight/build/org/org-id hides /home/viz/lib/ports/emacs/lisp/org/org-id
/home/viz/lib/emacs/straight/build/org/oc-natbib hides /home/viz/lib/ports/emacs/lisp/org/oc-natbib
/home/viz/lib/emacs/straight/build/org/ox-texinfo hides /home/viz/lib/ports/emacs/lisp/org/ox-texinfo
/home/viz/lib/emacs/straight/build/org/org-agenda hides /home/viz/lib/ports/emacs/lisp/org/org-agenda
/home/viz/lib/emacs/straight/build/org/org-src hides /home/viz/lib/ports/emacs/lisp/org/org-src
/home/viz/lib/emacs/straight/build/org/ob-emacs-lisp hides /home/viz/lib/ports/emacs/lisp/org/ob-emacs-lisp
/home/viz/lib/emacs/straight/build/org/ob-css hides /home/viz/lib/ports/emacs/lisp/org/ob-css
/home/viz/lib/emacs/straight/build/org/ox-latex hides /home/viz/lib/ports/emacs/lisp/org/ox-latex
/home/viz/lib/emacs/straight/build/org/oc hides /home/viz/lib/ports/emacs/lisp/org/oc
/home/viz/lib/emacs/straight/build/org/ol hides /home/viz/lib/ports/emacs/lisp/org/ol
/home/viz/lib/emacs/straight/build/org/org-element hides /home/viz/lib/ports/emacs/lisp/org/org-element
/home/viz/lib/emacs/straight/build/org/org hides /home/viz/lib/ports/emacs/lisp/org/org
/home/viz/lib/emacs/straight/build/org/org-goto hides /home/viz/lib/ports/emacs/lisp/org/org-goto
/home/viz/lib/emacs/straight/build/org/ob-eval hides /home/viz/lib/ports/emacs/lisp/org/ob-eval
/home/viz/lib/emacs/straight/build/org/org-habit hides /home/viz/lib/ports/emacs/lisp/org/org-habit
/home/viz/lib/emacs/straight/build/org/org-pcomplete hides /home/viz/lib/ports/emacs/lisp/org/org-pcomplete
/home/viz/lib/emacs/straight/build/org/ol-eww hides /home/viz/lib/ports/emacs/lisp/org/ol-eww
/home/viz/lib/emacs/straight/build/org/ob-processing hides /home/viz/lib/ports/emacs/lisp/org/ob-processing
/home/viz/lib/emacs/straight/build/org/org-timer hides /home/viz/lib/ports/emacs/lisp/org/org-timer
/home/viz/lib/emacs/straight/build/org/org-inlinetask hides /home/viz/lib/ports/emacs/lisp/org/org-inlinetask
/home/viz/lib/emacs/straight/build/org/ol-bibtex hides /home/viz/lib/ports/emacs/lisp/org/ol-bibtex
/home/viz/lib/emacs/straight/build/org/org-fold-core hides /home/viz/lib/ports/emacs/lisp/org/org-fold-core
/home/viz/lib/emacs/straight/build/org/oc-basic hides /home/viz/lib/ports/emacs/lisp/org/oc-basic
/home/viz/lib/emacs/straight/build/org/ox-publish hides /home/viz/lib/ports/emacs/lisp/org/ox-publish
/home/viz/lib/emacs/straight/build/org/oc-bibtex hides /home/viz/lib/ports/emacs/lisp/org/oc-bibtex
/home/viz/lib/emacs/straight/build/org/org-macro hides /home/viz/lib/ports/emacs/lisp/org/org-macro
/home/viz/lib/emacs/straight/build/org/ol-docview hides /home/viz/lib/ports/emacs/lisp/org/ol-docview
/home/viz/lib/emacs/straight/build/org/org-fold hides /home/viz/lib/ports/emacs/lisp/org/org-fold
/home/viz/lib/emacs/straight/build/org/org-lint hides /home/viz/lib/ports/emacs/lisp/org/org-lint
/home/viz/lib/emacs/straight/build/org/org-version hides /home/viz/lib/ports/emacs/lisp/org/org-version
/home/viz/lib/emacs/straight/build/org/ob-ocaml hides /home/viz/lib/ports/emacs/lisp/org/ob-ocaml
/home/viz/lib/emacs/straight/build/org/ob-sass hides /home/viz/lib/ports/emacs/lisp/org/ob-sass
/home/viz/lib/emacs/straight/build/org/ob-perl hides /home/viz/lib/ports/emacs/lisp/org/ob-perl
/home/viz/lib/emacs/straight/build/org/ol-rmail hides /home/viz/lib/ports/emacs/lisp/org/ol-rmail
/home/viz/lib/emacs/straight/build/org/org-protocol hides /home/viz/lib/ports/emacs/lisp/org/org-protocol
/home/viz/lib/emacs/straight/build/org/ol-info hides /home/viz/lib/ports/emacs/lisp/org/ol-info
/home/viz/lib/emacs/straight/build/org/ob-eshell hides /home/viz/lib/ports/emacs/lisp/org/ob-eshell
/home/viz/lib/emacs/straight/build/org/org-refile hides /home/viz/lib/ports/emacs/lisp/org/org-refile
/home/viz/lib/emacs/straight/build/org/ob-octave hides /home/viz/lib/ports/emacs/lisp/org/ob-octave
/home/viz/lib/emacs/straight/build/org/ob-lua hides /home/viz/lib/ports/emacs/lisp/org/ob-lua
/home/viz/lib/emacs/straight/build/org/ol-gnus hides /home/viz/lib/ports/emacs/lisp/org/ol-gnus
/home/viz/lib/emacs/straight/build/org/ob-makefile hides /home/viz/lib/ports/emacs/lisp/org/ob-makefile
/home/viz/lib/emacs/straight/build/org/org-archive hides /home/viz/lib/ports/emacs/lisp/org/org-archive
/home/viz/lib/emacs/straight/build/org/ob-lob hides /home/viz/lib/ports/emacs/lisp/org/ob-lob
/home/viz/lib/emacs/straight/build/org/ol-man hides /home/viz/lib/ports/emacs/lisp/org/ol-man
/home/viz/lib/emacs/straight/build/org/org-compat hides /home/viz/lib/ports/emacs/lisp/org/org-compat
/home/viz/lib/emacs/straight/build/org/org-colview hides /home/viz/lib/ports/emacs/lisp/org/org-colview
/home/viz/lib/emacs/straight/build/org/org-indent hides /home/viz/lib/ports/emacs/lisp/org/org-indent
/home/viz/lib/emacs/straight/build/org/ox-beamer hides /home/viz/lib/ports/emacs/lisp/org/ox-beamer
/home/viz/lib/emacs/straight/build/org/ob-calc hides /home/viz/lib/ports/emacs/lisp/org/ob-calc

Features:
(shadow calc-poly calc-units calcalg2 emacs-news-mode emoji-labels emoji
multisession sqlite xapian-lite xeft apropos srecode/srt-mode
semantic/analyze semantic/sort semantic/scope semantic/analyze/fcn
semantic/db semantic/format srecode/template srecode/srt-wy
semantic/ctxt srecode/ctxt semantic/tag-ls semantic/find srecode/compile
srecode/dictionary srecode/fields srecode/table srecode transmission
calc-bin sqlite-mode cal-islam holidays holiday-loaddefs cal-move tcl
proced macros modula2 calc-frac calc-math ox-org org-datetree mule-diag
calc-mode calc-stuff calc-undo calc-stat calc-map calc-vec calc-yank
help-at-pt msb rfc2104 csv-mode cc-awk gnus-search eieio-opt speedbar
ezimage dframe tar-mode arc-mode archive-mode hi-lock man
gnuplot-context gnuplot mhtml-mode css-mode-expansions css-mode
html-mode-expansions sgml-mode nov esxml-query misc gnus-cus gnus-demon
gnus-diary nndiary gnus-draft gnus-dup gnus-html gnus-kill gnus-logic
gnus-mh mh-comp mh-scan mh-gnus mh-e mh-buffers mh-loaddefs
gnus-registry registry eieio-base rmailsum rmail gnus-salt gnus-uu yenc
gnus-vm math-delimiters ind-util tabify org-capture doct f90 cus-start
net-utils image-crop nndoc gnus-topic ement-room-list taxy-magit-section
taxy persist ement-tabulated-room-list ement ement-notifications
ement-notify ement-room ement-lib ement-api ement-structs ement-macros
magit-section dns find-dired js-mode-expansions js c-ts-common
calc-arith calccomp calc-aent calc-misc calc-alg calc-menu
display-line-numbers package-recipe-mode package-build
package-build-badges package-recipe locate emacsbug pcmpl-git vc-dir
winner notifications loadhist flyspell ispell ecomplete descr-text
thai-util thai-word dictionary external-completion dictionary-connection
comint-mime view conf-mode shr-color url-cache etags fileloop info-look
tramp-androidsu tramp-adb tramp-archive tramp-container tramp-ftp
tramp-gvfs grep olivetti pdf-sync pdf-outline pdf-links pdf-history
pdf-roll icomplete wdired tramp-cmds tramp-sh tramp-cache tramp trampver
tramp-integration tramp-message time-stamp tramp-compat tramp-loaddefs
latex-mode-expansions latex latex-flymake tex-ispell tex-style tex
auctex edebug imenu-xref expand-region text-mode-expansions
cc-mode-expansions the-org-mode-expansions python-el-fgallina-expansions
er-basic-expansions expand-region-core expand-region-custom shortdoc
comp-common completion dabbrev reveal cl-print ob-ditaa ob-plantuml
org-clock org-colview org-crypt org-ctags org-mouse org-plot
org-protocol ox-md ox-texinfo org-archive help-fns radix-tree recentf
tree-widget avy whitespace gnus-dired gnus-fun smerge-mode url-http
url-auth url-gw flow-fill mm-archive sort gnus-cite mail-extr textsec
uni-scripts idna-mapping ucs-normalize uni-confusable textsec-check
gnus-async gnus-bcklg qp gnus-ml network-stream nsm nndraft nnmh
nnmaildir nnagent nnml nnnil gnus-agent gnus-srvr gnus-score score-mode
nnvirtual gnus-msg nntp gnus-cache bug-reference dired-aux misearch
multi-isearch pulse color vc-git diff-mode track-changes make-mode xref
typo pcmpl-gnu pcmpl-unix vc-backup log-view log-edit add-log pcvs-util
vc vc-dispatcher diff latexenc face-remap org-pdftools pdf-annot
facemenu org-noter oc-bibtex image-file image-converter oc-basic
org-ql-find org-ql-completing-read org-ql-search org-ql-view transient
crm org-super-agenda org-ql peg ts org-habit org-duration ol-eww eww
vtable mule-util url-queue mm-url ol-rmail ol-mhe ol-irc ol-info ol-gnus
nnselect gnus-art mm-uu mml2015 mm-view mml-smime smime gnutls dig
gnus-sum shr pixel-fill kinsoku url-file svg gnus-group gnus-undo
gnus-start gnus-dbus gnus-cloud nnimap nnmail mail-source utf7 nnoo
parse-time gnus-spec gnus-int gnus-range message sendmail yank-media
puny rfc822 mml mml-sec epa epg rfc6068 epg-config mm-decode mm-bodies
mm-encode mail-parse rfc2231 rfc2047 rfc2045 ietf-drums mailabbrev
gmm-utils mailheader gnus-win gnus nnheader gnus-util mail-utils range
mm-util mail-prsvr ol-docview doc-view ol-bibtex ol-bbdb ol-w3m ol-doi
org-link-doi org-tempo ol-man embark-org ob-gnuplot ox-odt rng-loc
rng-uri rng-parse rng-match rng-dt rng-util rng-pttrn nxml-parse nxml-ns
nxml-enc xmltok nxml-util ox-icalendar org-agenda ox-html ox-mathml
org-latex-preview ox-latex table ox-ascii ox-publish ox org-element
org-persist avl-tree generator ob-fortran ob-python python ob-calc
calc-store calc-trail calc-ext calc calc-loaddefs rect calc-macs ob-C
cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles cc-align cc-engine
cc-vars cc-defs ob-shell ob-racket cdlatex texmathp org-attach org-id
org-refile org-element-ast inline org ob ob-tangle ob-ref ob-lob
ob-table ob-exp org-macro org-src sh-script smie treesit executable
ob-comint org-pcomplete org-list org-footnote org-faces org-entities
noutline outline ob-emacs-lisp ob-core ob-eval org-cycle org-table ol
org-fold org-fold-core org-keys oc org-loaddefs org-version org-compat
org-macs shell-command+ cursor-sensor shell pcomplete server paredit
edmacro kmacro eros checkdoc lisp-mnt flymake project wordel-autoloads
mines-autoloads sokoban-autoloads ement-autoloads
taxy-magit-section-autoloads magit-section-autoloads taxy-autoloads
persist-autoloads nov-autoloads esxml-autoloads kv-autoloads
transmission-autoloads csv-mode-autoloads lua-mode-autoloads
gnuplot-autoloads go-mode-autoloads racket-mode-autoloads eros-autoloads
comint-mime-autoloads writegood-mode-autoloads embark ffap thingatpt
compat embark-autoloads xeft-autoloads paredit-autoloads puni-autoloads
expand-region-autoloads filladapt-autoloads compose org-ql-autoloads
transient-autoloads org-super-agenda-autoloads ts-autoloads
org-pdftools-autoloads org-noter-autoloads change-env-autoloads
math-delimiters-autoloads doct-autoloads emacs-ob-racket-autoloads
valign-autoloads cdlatex-autoloads tempo bibtex iso8601 time-date
auctex-autoloads tex-site pdf-occur ibuf-ext ibuffer ibuffer-loaddefs
tablist advice tablist-filter semantic/wisent/comp semantic/wisent
semantic/wisent/wisent semantic/util-modes semantic/util semantic
semantic/tag semantic/lex semantic/fw mode-local cedet pdf-isearch
let-alist pdf-misc imenu pdf-tools package browse-url xdg url url-proxy
url-privacy url-expand url-methods url-history url-cookie
generate-lisp-file url-domsuf url-util mailcap url-handlers url-parse
auth-source eieio eieio-core json url-vars compile comint ansi-osc
ansi-color ring cus-edit wid-edit pdf-view password-cache jka-compr
pdf-cache pdf-info tq pdf-util pdf-macs image-mode dired-x dired
dired-loaddefs exif pdf-tools-autoloads tablist-autoloads typo-autoloads
mb-depth repeat visual-fill-autoloads olivetti-autoloads time
format-spec battery filenotify dom tamil99 quail disp-table
lacarte-autoloads shell-command-plus-autoloads delsel xt-mouse cus-load
avy-autoloads icalendar diary-lib diary-loaddefs cal-menu calendar
cal-loaddefs plz warnings icons easy-mmode dired-du-autoloads finder-inf
filecache imenu-xref-autoloads ert map byte-opt ewoc qrencode-autoloads
derived tochemfig-autoloads chemtable-autoloads molar-mass-autoloads
files-x vc-backup-autoloads skeleton saveplace-pdf-view saveplace
bookmark text-property-search pp saveplace-pdf-view-autoloads dbus xml
rx plz-autoloads inspector-autoloads xr-autoloads info debug backtrace
find-func straight-autoloads cl-seq cl-extra help-mode straight subr-x
cl-macs gv cl-loaddefs cl-lib bytecomp byte-compile pcase vz-nh-theme
vz-options-theme rmc iso-transl tooltip cconv eldoc paren electric
uniquify ediff-hook vc-hooks lisp-float-type elisp-mode mwheel
term/x-win x-win term/common-win x-dnd touch-screen tool-bar dnd fontset
image regexp-opt fringe tabulated-list replace newcomment text-mode
lisp-mode prog-mode register page tab-bar menu-bar rfn-eshadow isearch
easymenu timer select scroll-bar mouse jit-lock font-lock syntax
font-core term/tty-colors frame minibuffer nadvice seq simple cl-generic
indonesian philippine cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek
romanian slovak czech european ethiopic indian cyrillic chinese
composite emoji-zwj charscript charprop case-table epa-hook
jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button loaddefs
theme-loaddefs faces cus-face macroexp files window text-properties
overlay sha1 md5 base64 format env code-pages mule custom widget keymap
hashtable-print-readable backquote threads dbusbind inotify lcms2
dynamic-setting system-font-setting font-render-setting cairo x-toolkit
xinput2 x multi-tty move-toolbar make-network-process tty-child-frames
emacs)

Memory information:
((conses 16 5011476 1716952) (symbols 48 105061 587)
 (strings 32 725986 95855) (string-bytes 1 242071849)
 (vectors 16 359118) (vector-slots 8 5260725 809361)
 (floats 8 223120 23104) (intervals 56 414200 12226) (buffers 984 349))

Message #8 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Dmitry Gutov <dmitry <at> gutov.dev>
To: Visuwesh <visuweshm <at> gmail.com>, 76587 <at> debbugs.gnu.org
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to exclude
 certain projects from being saved
Date: Thu, 27 Feb 2025 05:14:59 +0200

Hi!

On 26/02/2025 15:59, Visuwesh wrote:
> It is quite frustrating to use C-x p p to jump to projects when it can
> easily get cluttered with projects that you never want to jump to.
> E.g., as my user-emacs-directory only really tracks init.el, I don't
> want project.el to save it in the projects file.  When it does, it gets
> in the way when I am completing ~/lib/ports/emacs which is where I keep
> my checkout of the Emacs repo.
> Likewise, I do not want to save remote projects at all.

This sounds reasonable. Should we call it something like 
project-list-exclude[-regexps]?

> AFAIU, the current way is to use project-forget-project and friends, but
> they are cumbersome.  They work nice when you want to remove a
> "completed" project but they don't help when you want to use project
> commands judiciously for "temporary" projects (like a checkout that
> you're editing for a patch).

Temporary checkouts might not be worth it in terms of that user option 
(calling M-x ...-forget-project is faster than doing the checkout), but 
that's just my opinion.

> I would like to have a user option like
> recentf-exclude which would prevent project--write-project-list from
> saving certain projects.  To that end, I propose the following patch,
> WDYT?

Haven't looked at the details of the implementation yet, but the 
recentf-exclude model sounds good.

> P.S. I wish there was a way for project backends to bow out from
> project--write-project-list too.  Context: I have a "sibling-file"
> project backend which mainly offers meaningful candidates to C-x p f
> when visiting a file that has associated siblings.

This sounds a bit confusing. When you use this other backend (how? is it 
enabled manually?), do you visit disjoint repositories through it? Or 
only a subset of a files in a repository? What do you do when you want 
to visit other files in it?

> I could use
> find-sibling-file but using project.el comes with bonuses like
> project-list-buffer, etc.

From where I'm standing, it might be more ergonomical to add a few 
extra commands for the "siblings" search, and bind them to a submap. But 
I'm probably missing something.

Message #11 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Visuwesh <visuweshm <at> gmail.com>
To: Dmitry Gutov <dmitry <at> gutov.dev>
Cc: 76587 <at> debbugs.gnu.org
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to
 exclude certain projects from being saved
Date: Thu, 27 Feb 2025 09:34:16 +0530

[வியாழன் பிப்ரவரி 27, 2025] Dmitry Gutov wrote:

> Hi!

Hello!

> On 26/02/2025 15:59, Visuwesh wrote:
>> It is quite frustrating to use C-x p p to jump to projects when it can
>> easily get cluttered with projects that you never want to jump to.
>> E.g., as my user-emacs-directory only really tracks init.el, I don't
>> want project.el to save it in the projects file.  When it does, it gets
>> in the way when I am completing ~/lib/ports/emacs which is where I keep
>> my checkout of the Emacs repo.
>> Likewise, I do not want to save remote projects at all.
>
> This sounds reasonable. Should we call it something like
> project-list-exclude[-regexps]?

Sounds good to me.

>> AFAIU, the current way is to use project-forget-project and friends, but
>> they are cumbersome.  They work nice when you want to remove a
>> "completed" project but they don't help when you want to use project
>> commands judiciously for "temporary" projects (like a checkout that
>> you're editing for a patch).
>
> Temporary checkouts might not be worth it in terms of that user option
> (calling M-x ...-forget-project is faster than doing the checkout),
> but that's just my opinion.

You're right.  I don't know/remember what I was thinking when I wrote it
honestly.

>> P.S. I wish there was a way for project backends to bow out from
>> project--write-project-list too.  Context: I have a "sibling-file"
>> project backend which mainly offers meaningful candidates to C-x p f
>> when visiting a file that has associated siblings.
>
> This sounds a bit confusing. When you use this other backend (how? is
> it enabled manually?), do you visit disjoint repositories through it?
> Or only a subset of a files in a repository? What do you do when you
> want to visit other files in it?

There are no repositories here to speak of.  I use this project backend
when there is no associated vc backend with the file I'm visiting (i.e.,
project-vc fails).  To make my example more concrete, consider the
following example of find-sibling-rules:

    '(find-sibling-rules
       (rx-let ((basename (group (1+ (not ?/)))))
          ;; Supplementary info.
         `((,(rx "papers/" basename ".pdf" eos)
            "papers/\\1_si_*.pdf" "papers/\\1_si.pdf")
           (,(rx "papers/" basename "_si" (? "_" (+ num)) ".pdf" eos)
            "papers/\\1.pdf"))))

With this rule in place, when I say M-x find-sibling-file when I'm
visiting ~/doc/.../papers/X.pdf, it visits ~/doc/.../papers/X_si.pdf for
me.  With my sibling-file backend (see at end), I can say M-x
project-list-buffers, or C-x p b, or C-x p f to switch to related files
easily.  I was thinking of writing a project-specific C-x <right>/<left>
commands to switch between project buffers easily.

>> I could use
>> find-sibling-file but using project.el comes with bonuses like
>> project-list-buffer, etc.
>
> From where I'm standing, it might be more ergonomical to add a few
> extra commands for the "siblings" search, and bind them to a
> submap. But I'm probably missing something.

I think we have different notions of a "project."  I see it as a list of
related files, but the current project backend is built upon a singular,
exact definition of a root directory inside which all files can be
found.  For my use case, this root directory is a bit hard to define
since the sibling file need not be restricted to be under the same
directory (see an example of such a rule in the docstring of
find-sibling-rules).  Perhaps, my idea of a project is most closest to
what the satchel package does.

I could definitely add yet another submap to my config but I would like
to merge "regular" project.el projects, and my personal
"transient-but-a-bit-more-defined" projects into a single one.  This
elevates the pain of having to remember two different sets of commands.

All this complexity arises because I don't/can't use Git (or other VC)
for most of my files.  (Emacs' backup and vc-backup does everything I
need.)




Here's the promised implementation:

(defun vz/project-sibling-file (dir)
  "Return project object for current file-visiting buffer's sibling files.
If the current file-visiting buffer has siblings, then return them if
the current file is under DIR."
  (when (and (buffer-file-name)
             (not (string-prefix-p
                   "../"
                   (file-relative-name (buffer-file-name) dir))))
    (let ((siblings (find-sibling-file-search (buffer-file-name))))
      (when siblings
        `(vz/sibling ,(buffer-file-name) ,@siblings)))))

(cl-defmethod project-root ((project (head vz/sibling)))
  (file-name-parent-directory (nth 1 project)))

(cl-defmethod project-external-roots ((_project (head vz/sibling)))
  nil)

(cl-defmethod project-name ((project (head vz/sibling)))
  (file-name-base (nth 1 project)))

(cl-defmethod project-ignores ((_project (head vz/sibling)) _dir)
  nil)

(cl-defmethod project-files ((project (head vz/sibling)) &optional dirs)
  (let ((files (cdr project)))
    (if (or (null dirs)
            (equal (car dirs) (project-root project)))
        files
      (mapcan (lambda (f)
                (when (seq-some (lambda (d)
                                  (string-prefix-p d f))
                                dirs)
                  (list f)))
              files))))

(cl-defmethod project-buffers ((project (head vz/sibling)))
  (mapcan
   (lambda (f)
     (let ((buf (find-buffer-visiting f)))
       (and buf (list buf))))
   (project-files project)))

(with-eval-after-load 'project
 (add-to-list 'project-find-functions #'vz/project-sibling-file t))

Message #14 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Juri Linkov <juri <at> linkov.net>
To: Visuwesh <visuweshm <at> gmail.com>
Cc: 76587 <at> debbugs.gnu.org
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to
 exclude certain projects from being saved
Date: Thu, 27 Feb 2025 09:27:30 +0200

> I would like to have a user option like
> recentf-exclude which would prevent project--write-project-list from
> saving certain projects.  To that end, I propose the following patch,
> WDYT?

recentf-exclude supports a list of regexps and predicates:

  (defcustom recentf-exclude nil
    "List of regexps and predicates for filenames excluded from the recent list.
    ..."
    :type '(repeat (choice regexp function)))

Would it be possible also to check a predicate on the project list?

I need this to be able to remove the advice from my config:

  ;; Don't remember transient projects:
  (define-advice project-remember-project (:before-until (pr &rest _) skip)
    (eq (car pr) 'transient))

Message #17 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Visuwesh <visuweshm <at> gmail.com>
To: Juri Linkov <juri <at> linkov.net>
Cc: 76587 <at> debbugs.gnu.org
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to
 exclude certain projects from being saved
Date: Thu, 27 Feb 2025 15:26:27 +0530

[வியாழன் பிப்ரவரி 27, 2025] Juri Linkov wrote:

>> I would like to have a user option like
>> recentf-exclude which would prevent project--write-project-list from
>> saving certain projects.  To that end, I propose the following patch,
>> WDYT?
>
> recentf-exclude supports a list of regexps and predicates:
>
>   (defcustom recentf-exclude nil
>     "List of regexps and predicates for filenames excluded from the recent list.
>     ..."
>     :type '(repeat (choice regexp function)))
>
> Would it be possible also to check a predicate on the project list?
>
> I need this to be able to remove the advice from my config:
>
>   ;; Don't remember transient projects:
>   (define-advice project-remember-project (:before-until (pr &rest _) skip)
>     (eq (car pr) 'transient))

So something like

    (defcustom project-list-exclude nil
      "List of regexps and predicates for project root and objects to exclude."
      :type '(repeat (choice regexp function))
      :version "31.1"
      :group 'project)

as we cannot remove your advice if we don't pass the project object to
the predicate.

BTW, would it be too late to check this user option in
project--write-project-list, or should we check this in
project-remember-project as in your advice?  IIUC, the former would more
closely resemble recentf's behaviour.

Message #20 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Juri Linkov <juri <at> linkov.net>
To: Visuwesh <visuweshm <at> gmail.com>
Cc: 76587 <at> debbugs.gnu.org
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to
 exclude certain projects from being saved
Date: Thu, 27 Feb 2025 19:35:34 +0200

>     (defcustom project-list-exclude nil
>       "List of regexps and predicates for project root and objects to exclude."
>       :type '(repeat (choice regexp function))
>       :version "31.1"
>       :group 'project)
>
> as we cannot remove your advice if we don't pass the project object to
> the predicate.
>
> BTW, would it be too late to check this user option in
> project--write-project-list, or should we check this in
> project-remember-project as in your advice?  IIUC, the former would more
> closely resemble recentf's behaviour.

Probably a better place to check this user option would be in
project-remember-project since project--remember-dir is called
only from project-remember-project and project-switch-project.

OTOH, since project--remember-dir is an internal function
we could add a new argument 'project' to it.

Message #23 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Dmitry Gutov <dmitry <at> gutov.dev>
To: Visuwesh <visuweshm <at> gmail.com>
Cc: 76587 <at> debbugs.gnu.org
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to exclude
 certain projects from being saved
Date: Fri, 28 Feb 2025 03:17:34 +0200

On 27/02/2025 06:04, Visuwesh wrote:

>> This sounds reasonable. Should we call it something like
>> project-list-exclude[-regexps]?
> 
> Sounds good to me.

Great.

> There are no repositories here to speak of.  I use this project backend
> when there is no associated vc backend with the file I'm visiting (i.e.,
> project-vc fails).  To make my example more concrete, consider the
> following example of find-sibling-rules:
> 
>      '(find-sibling-rules
>         (rx-let ((basename (group (1+ (not ?/)))))
>            ;; Supplementary info.
>           `((,(rx "papers/" basename ".pdf" eos)
>              "papers/\\1_si_*.pdf" "papers/\\1_si.pdf")
>             (,(rx "papers/" basename "_si" (? "_" (+ num)) ".pdf" eos)
>              "papers/\\1.pdf"))))
> 
> With this rule in place, when I say M-x find-sibling-file when I'm
> visiting ~/doc/.../papers/X.pdf, it visits ~/doc/.../papers/X_si.pdf for
> me.  With my sibling-file backend (see at end), I can say M-x
> project-list-buffers, or C-x p b, or C-x p f to switch to related files
> easily.  I was thinking of writing a project-specific C-x <right>/<left>
> commands to switch between project buffers easily.

Sounds helpful.

>>> I could use
>>> find-sibling-file but using project.el comes with bonuses like
>>> project-list-buffer, etc.
>>
>>  From where I'm standing, it might be more ergonomical to add a few
>> extra commands for the "siblings" search, and bind them to a
>> submap. But I'm probably missing something.
> 
> I think we have different notions of a "project."  I see it as a list of
> related files, but the current project backend is built upon a singular,
> exact definition of a root directory inside which all files can be
> found.  For my use case, this root directory is a bit hard to define
> since the sibling file need not be restricted to be under the same
> directory (see an example of such a rule in the docstring of
> find-sibling-rules).  Perhaps, my idea of a project is most closest to
> what the satchel package does.

That's not a problem, as long as the fileset doesn't intersect with a VC 
repository.

But I'm guessing the problem is that there is no meaningful "root" for 
those files either, and so showing those projects in the project history 
is not that easy, even if one wanted (i.e. you can't go from the root to 
the file list, only in the reverse direction).

> I could definitely add yet another submap to my config but I would like
> to merge "regular" project.el projects, and my personal
> "transient-but-a-bit-more-defined" projects into a single one.  This
> elevates the pain of having to remember two different sets of commands.

If you're always inside just one kind of project at a time, that indeed 
shouldn't be necessary.

> All this complexity arises because I don't/can't use Git (or other VC)
> for most of my files.  (Emacs' backup and vc-backup does everything I
> need.)
> 
> 
> 
> 
> Here's the promised implementation:

Nice.

Message #26 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Dmitry Gutov <dmitry <at> gutov.dev>
To: Juri Linkov <juri <at> linkov.net>, Visuwesh <visuweshm <at> gmail.com>
Cc: 76587 <at> debbugs.gnu.org
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to exclude
 certain projects from being saved
Date: Fri, 28 Feb 2025 03:20:04 +0200

On 27/02/2025 19:35, Juri Linkov wrote:
> OTOH, since project--remember-dir is an internal function
> we could add a new argument 'project' to it.

That shouldn't be a problem indeed.

OTOH, the project object is not very easily available in some callers of 
project--remember-dir, so the change might require some reorganization.

Message #29 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Visuwesh <visuweshm <at> gmail.com>
To: Dmitry Gutov <dmitry <at> gutov.dev>
Cc: 76587 <at> debbugs.gnu.org, Juri Linkov <juri <at> linkov.net>
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to
 exclude certain projects from being saved
Date: Fri, 28 Feb 2025 09:18:24 +0530

[வெள்ளி பிப்ரவரி 28, 2025] Dmitry Gutov wrote:

> On 27/02/2025 19:35, Juri Linkov wrote:
>> OTOH, since project--remember-dir is an internal function
>> we could add a new argument 'project' to it.
>
> That shouldn't be a problem indeed.
>
> OTOH, the project object is not very easily available in some callers
> of project--remember-dir, so the change might require some
> reorganization.

I see one caller of project--remember-dir, project-switch-project, that
does not have the project object handy.  Maybe we could do

    (project--remember-dir dir nil (project-current nil dir))

in place of the current call in project-switch-project?  Or should we do
something like

    (defun project--remember-dir (root &optional no-write project)
      ...
      (setq project (or project (project-current nil dir)))
      ...)

instead?

[வெள்ளி பிப்ரவரி 28, 2025] Dmitry Gutov wrote:

> But I'm guessing the problem is that there is no meaningful "root" for
> those files either, and so showing those projects in the project
> history is not that easy, even if one wanted (i.e. you can't go from
> the root to the file list, only in the reverse direction).

Yes, there's no exact definition of a project root here.  This breaks
some project commands (like project-shell).  Even project-current seems
to rely on the notion of a root which I essentially ignore in my backend
function (I only check if the current file-visiting buffer's directory
is a parent of project-current's directory).

Message #34 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Dmitry Gutov <dmitry <at> gutov.dev>
To: Visuwesh <visuweshm <at> gmail.com>
Cc: 76587 <at> debbugs.gnu.org, Juri Linkov <juri <at> linkov.net>
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to exclude
 certain projects from being saved
Date: Sun, 2 Mar 2025 05:31:15 +0200

On 28/02/2025 05:48, Visuwesh wrote:
> I see one caller of project--remember-dir, project-switch-project, that
> does not have the project object handy.  Maybe we could do
> 
>      (project--remember-dir dir nil (project-current nil dir))
> 
> in place of the current call in project-switch-project?

Hm yeah, I suppose that would be okay: project-switch-project is not 
required to be very fast, and project search often uses cache.

And when the project value is available, the call to be made to 
project-remember-project instead - this one could do the filtering as 
well. So no need to add new arg to project--remember-dir.

Message #37 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Visuwesh <visuweshm <at> gmail.com>
To: Dmitry Gutov <dmitry <at> gutov.dev>
Cc: 76587 <at> debbugs.gnu.org, Juri Linkov <juri <at> linkov.net>
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to
 exclude certain projects from being saved
Date: Sun, 02 Mar 2025 10:01:58 +0530

[ஞாயிறு மார்ச் 02, 2025] Dmitry Gutov wrote:

> On 28/02/2025 05:48, Visuwesh wrote:
>> I see one caller of project--remember-dir, project-switch-project, that
>> does not have the project object handy.  Maybe we could do
>>      (project--remember-dir dir nil (project-current nil dir))
>> in place of the current call in project-switch-project?
>
> Hm yeah, I suppose that would be okay: project-switch-project is not
> required to be very fast, and project search often uses cache.
>
> And when the project value is available, the call to be made to
> project-remember-project instead - this one could do the filtering as
> well. So no need to add new arg to project--remember-dir.

OK, sounds good to me.  WDYT about the patch below?  It doesn't exclude
projects at the time of saving, but whenever project-remember-project is
called.

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 35bf66c9ffb..9904a734e07 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1837,6 +1837,14 @@ project-list-file
   :version "28.1"
   :group 'project)
 
+(defcustom project-list-exclude nil
+  "List of regexps and predicates for project root and objects to ignore.
+The predicate should take one argument, the projet object, and should
+return non-nil if the project should not be saved."
+  :type '(repeat (choice regexp function))
+  :version "31.1"
+  :group 'project)
+
 (defvar project--list 'unset
   "List structure containing root directories of known projects.
 With some possible metadata (to be decided).")
@@ -1902,9 +1910,16 @@ project--remember-dir
 ;;;###autoload
 (defun project-remember-project (pr &optional no-write)
   "Add project PR to the front of the project list.
+If project PR satisfies `project-list-exclude', then nothing is done.
 Save the result in `project-list-file' if the list of projects
 has changed, and NO-WRITE is nil."
-  (project--remember-dir (project-root pr) no-write))
+  (let ((root (project-root pr)))
+    (when (or (null project-list-exclude)
+              (null (seq-some (lambda (r)
+                                (if (functionp r) (funcall r pr)
+                                  (string-match-p r root)))
+                              project-list-exclude)))
+      (project--remember-dir root no-write))))
 
 (defun project--remove-from-project-list (project-root report-message)
   "Remove directory PROJECT-ROOT of a missing project from the project list.
@@ -2274,7 +2289,7 @@ project-switch-project
 When called in a program, it will use the project corresponding
 to directory DIR."
   (interactive (list (funcall project-prompter)))
-  (project--remember-dir dir)
+  (project-remember-project (project-current nil dir))
   (let ((command (if (symbolp project-switch-commands)
                      project-switch-commands
                    (project--switch-project-command dir)))

Message #40 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Eli Zaretskii <eliz <at> gnu.org>
To: Visuwesh <visuweshm <at> gmail.com>
Cc: dmitry <at> gutov.dev, 76587 <at> debbugs.gnu.org, juri <at> linkov.net
Subject: Re: bug#76587: 31.0.50;
 [FR] project.el should have a way to exclude certain projects from
 being saved
Date: Sun, 02 Mar 2025 08:41:04 +0200

> Cc: 76587 <at> debbugs.gnu.org, Juri Linkov <juri <at> linkov.net>
> From: Visuwesh <visuweshm <at> gmail.com>
> Date: Sun, 02 Mar 2025 10:01:58 +0530
> 
> +(defcustom project-list-exclude nil
> +  "List of regexps and predicates for project root and objects to ignore.
> +The predicate should take one argument, the projet object, and should
> +return non-nil if the project should not be saved."

The first line of the doc string says "to ignore", and the name of the
variable (*-exclude) also hints to that effect, but the rest of the
doc strings seems to tell that the matching projects are only
"ignored" in the sense that they "should not be saved"?  Moreover, the
code seems to imply that those projects are being ignored by
project-remember-project, which the doc string doesn't mention at all?
Can we make the variable name and the first line of the doc string
more consistent with the actual meaning of this variable, and mention
the functions that use it in the doc string?

Thanks.

Message #43 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Dmitry Gutov <dmitry <at> gutov.dev>
To: Visuwesh <visuweshm <at> gmail.com>
Cc: 76587 <at> debbugs.gnu.org, Juri Linkov <juri <at> linkov.net>
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to exclude
 certain projects from being saved
Date: Mon, 3 Mar 2025 02:06:07 +0200

On 02/03/2025 06:31, Visuwesh wrote:
> +return non-nil if the project should not be saved."

"should not be remembered", perhaps. Neither adding it to the var 
(storing in memory), nor saving the result to disk.

Message #46 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Visuwesh <visuweshm <at> gmail.com>
To: Dmitry Gutov <dmitry <at> gutov.dev>
Cc: 76587 <at> debbugs.gnu.org, Juri Linkov <juri <at> linkov.net>
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to
 exclude certain projects from being saved
Date: Mon, 03 Mar 2025 13:57:45 +0530

[Message part 1 (text/plain, inline)]

[திங்கள் மார்ச் 03, 2025] Dmitry Gutov wrote:

> On 02/03/2025 06:31, Visuwesh wrote:
>> +return non-nil if the project should not be saved."
>
> "should not be remembered", perhaps. Neither adding it to the var
> (storing in memory), nor saving the result to disk.

Thanks, I went with this.

[ஞாயிறு மார்ச் 02, 2025] Eli Zaretskii wrote:

>> Cc: 76587 <at> debbugs.gnu.org, Juri Linkov <juri <at> linkov.net>
>> From: Visuwesh <visuweshm <at> gmail.com>
>> Date: Sun, 02 Mar 2025 10:01:58 +0530
>> 
>> +(defcustom project-list-exclude nil
>> +  "List of regexps and predicates for project root and objects to ignore.
>> +The predicate should take one argument, the projet object, and should
>> +return non-nil if the project should not be saved."
>
> The first line of the doc string says "to ignore", and the name of the
> variable (*-exclude) also hints to that effect, but the rest of the
> doc strings seems to tell that the matching projects are only
> "ignored" in the sense that they "should not be saved"?  Moreover, the
> code seems to imply that those projects are being ignored by
> project-remember-project, which the doc string doesn't mention at all?
> Can we make the variable name and the first line of the doc string
> more consistent with the actual meaning of this variable, and mention
> the functions that use it in the doc string?

I've now tried to make this clearer.  I don't know what a better name
for the user option could be.

I also updated the manual to mention this user option, and announced the
change in NEWS in the attached.

[0001-Add-new-user-option-to-ignore-projects-from-being-sa.patch (text/x-diff, attachment)]

Message #49 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Rudolf Schlatte <rudi <at> constantly.at>
To: bug-gnu-emacs <at> gnu.org
Subject: Re: bug#76587: 31.0.50;
 [FR] project.el should have a way to exclude certain projects from
 being saved
Date: Mon, 03 Mar 2025 09:56:13 +0100

Visuwesh <visuweshm <at> gmail.com> writes:

> [திங்கள் மார்ச் 03, 2025] Dmitry Gutov wrote:
>
>> On 02/03/2025 06:31, Visuwesh wrote:
>>> +return non-nil if the project should not be saved."
>>
>> "should not be remembered", perhaps. Neither adding it to the var
>> (storing in memory), nor saving the result to disk.
>
> Thanks, I went with this.

"return nil if the project should be remembered" maybe?  Always good to
eliminate a double negative :)

Message #52 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Ship Mints <shipmints <at> gmail.com>
To: Visuwesh <visuweshm <at> gmail.com>
Cc: Dmitry Gutov <dmitry <at> gutov.dev>, 76587 <at> debbugs.gnu.org,
 Juri Linkov <juri <at> linkov.net>
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to exclude
 certain projects from being saved
Date: Mon, 3 Mar 2025 07:46:48 -0500

[Message part 1 (text/plain, inline)]

On Mon, Mar 3, 2025 at 3:28 AM Visuwesh <visuweshm <at> gmail.com> wrote:

> [திங்கள் மார்ச் 03, 2025] Dmitry Gutov wrote:
>
> > On 02/03/2025 06:31, Visuwesh wrote:
> >> +return non-nil if the project should not be saved."
> >
> > "should not be remembered", perhaps. Neither adding it to the var
> > (storing in memory), nor saving the result to disk.
>
> Thanks, I went with this.
>
> [ஞாயிறு மார்ச் 02, 2025] Eli Zaretskii wrote:
>
> >> Cc: 76587 <at> debbugs.gnu.org, Juri Linkov <juri <at> linkov.net>
> >> From: Visuwesh <visuweshm <at> gmail.com>
> >> Date: Sun, 02 Mar 2025 10:01:58 +0530
> >>
> >> +(defcustom project-list-exclude nil
> >> +  "List of regexps and predicates for project root and objects to
> ignore.
> >> +The predicate should take one argument, the projet object, and should
> >> +return non-nil if the project should not be saved."
>

Is it more like project-list-inhibit-remember?  Will the project still be
in the in-memory list but just not written to the project list file?

[Message part 2 (text/html, inline)]

Message #55 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Visuwesh <visuweshm <at> gmail.com>
To: Ship Mints <shipmints <at> gmail.com>
Cc: Dmitry Gutov <dmitry <at> gutov.dev>, 76587 <at> debbugs.gnu.org,
 Juri Linkov <juri <at> linkov.net>
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to
 exclude certain projects from being saved
Date: Mon, 03 Mar 2025 18:40:46 +0530

[திங்கள் மார்ச் 03, 2025] Ship Mints wrote:

>> >> +(defcustom project-list-exclude nil
>> >> +  "List of regexps and predicates for project root and objects to
>> ignore.
>> >> +The predicate should take one argument, the projet object, and should
>> >> +return non-nil if the project should not be saved."
>>
>
> Is it more like project-list-inhibit-remember?

Sorry, I don't understand what you mean.

> Will the project still be in the in-memory list but just not written
> to the project list file?

No, the project will never be added to project--list.  The defcustom is
respected by project-remember-project in the latest few patches.

Message #58 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Ship Mints <shipmints <at> gmail.com>
To: Visuwesh <visuweshm <at> gmail.com>
Cc: Dmitry Gutov <dmitry <at> gutov.dev>, 76587 <at> debbugs.gnu.org,
 Juri Linkov <juri <at> linkov.net>
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to exclude
 certain projects from being saved
Date: Mon, 3 Mar 2025 08:13:19 -0500

[Message part 1 (text/plain, inline)]

On Mon, Mar 3, 2025 at 8:10 AM Visuwesh <visuweshm <at> gmail.com> wrote:

> [திங்கள் மார்ச் 03, 2025] Ship Mints wrote:
>
> >> >> +(defcustom project-list-exclude nil
> >> >> +  "List of regexps and predicates for project root and objects to
> >> ignore.
> >> >> +The predicate should take one argument, the projet object, and
> should
> >> >> +return non-nil if the project should not be saved."
> >>
> >
> > Is it more like project-list-inhibit-remember?
>
> Sorry, I don't understand what you mean.
>

To be clearer, I was suggesting a name for the exclude defcustom.

> Will the project still be in the in-memory list but just not written
> > to the project list file?
>
> No, the project will never be added to project--list.  The defcustom is
> respected by project-remember-project in the latest few patches.
>

I see.  Worth trying to see how it works.  We can always refine as 31
evolves.  But I guess project.el is published via ELPA sooner than 31...

[Message part 2 (text/html, inline)]

Message #61 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Juri Linkov <juri <at> linkov.net>
To: Visuwesh <visuweshm <at> gmail.com>
Cc: Dmitry Gutov <dmitry <at> gutov.dev>, 76587 <at> debbugs.gnu.org
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to
 exclude certain projects from being saved
Date: Mon, 03 Mar 2025 19:30:18 +0200

>> And when the project value is available, the call to be made to
>> project-remember-project instead - this one could do the filtering as
>> well. So no need to add new arg to project--remember-dir.
>
> OK, sounds good to me.  WDYT about the patch below?  It doesn't exclude
> projects at the time of saving, but whenever project-remember-project is
> called.

Thanks, I confirm this works nicely with:

(add-to-list 'project-list-exclude (lambda (pr) (eq (car pr) 'transient)))

Message #64 received at 76587 <at> debbugs.gnu.org (full text, mbox):

From: Visuwesh <visuweshm <at> gmail.com>
To: Juri Linkov <juri <at> linkov.net>
Cc: Dmitry Gutov <dmitry <at> gutov.dev>, 76587 <at> debbugs.gnu.org
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to
 exclude certain projects from being saved
Date: Tue, 04 Mar 2025 09:07:57 +0530

[திங்கள் மார்ச் 03, 2025] Juri Linkov wrote:

>>> And when the project value is available, the call to be made to
>>> project-remember-project instead - this one could do the filtering as
>>> well. So no need to add new arg to project--remember-dir.
>>
>> OK, sounds good to me.  WDYT about the patch below?  It doesn't exclude
>> projects at the time of saving, but whenever project-remember-project is
>> called.
>
> Thanks, I confirm this works nicely with:
>
> (add-to-list 'project-list-exclude (lambda (pr) (eq (car pr) 'transient)))

Thanks for testing.

Message #69 received at 76587-done <at> debbugs.gnu.org (full text, mbox):

From: Dmitry Gutov <dmitry <at> gutov.dev>
To: Visuwesh <visuweshm <at> gmail.com>
Cc: 76587-done <at> debbugs.gnu.org, Juri Linkov <juri <at> linkov.net>
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to exclude
 certain projects from being saved
Date: Thu, 6 Mar 2025 04:52:45 +0200

On 03/03/2025 10:27, Visuwesh wrote:
> I've now tried to make this clearer.  I don't know what a better name
> for the user option could be.
> 
> I also updated the manual to mention this user option, and announced the
> change in NEWS in the attached.

Thanks, now pushed to master: 
https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=6aa60038ee999d25184a639ce0ac76b614e3afb6

Made some tweaks to the docs and the logic in project-remember-project, 
so please try it out.

Message #72 received at 76587-done <at> debbugs.gnu.org (full text, mbox):

From: Visuwesh <visuweshm <at> gmail.com>
To: Dmitry Gutov <dmitry <at> gutov.dev>
Cc: 76587-done <at> debbugs.gnu.org, Juri Linkov <juri <at> linkov.net>
Subject: Re: bug#76587: 31.0.50; [FR] project.el should have a way to
 exclude certain projects from being saved
Date: Thu, 06 Mar 2025 10:04:30 +0530

[வியாழன் மார்ச் 06, 2025] Dmitry Gutov wrote:

> On 03/03/2025 10:27, Visuwesh wrote:
>> I've now tried to make this clearer.  I don't know what a better name
>> for the user option could be.
>> I also updated the manual to mention this user option, and announced
>> the
>> change in NEWS in the attached.
>
> Thanks, now pushed to master:
> https://git.savannah.gnu.org/cgit/emacs.git/commit/?id=6aa60038ee999d25184a639ce0ac76b614e3afb6
>
> Made some tweaks to the docs and the logic in
> project-remember-project, so please try it out.

Thank you!  It works as expected with your modifications.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.