From: Stephen Leake <stephen_leake@stephe-leake.org>
Date: Tue, 22 Nov 2022 18:55:59 +0000 (-0800)
Subject: * lisp/progmodes/project.el (project-name): New
X-Git-Tag: emacs-29.0.90~1590
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=361297c6f4be54d4699c588937d7ceb142ba99d7;p=emacs.git

* lisp/progmodes/project.el (project-name): New
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 63510e90502..751e240a56e 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -251,6 +251,11 @@ depending on the languages used, this list should include the
 headers search path, load path, class path, and so on."
   nil)
 
+(cl-defgeneric project-name (project)
+  "A human-readable name for the project.
+Nominally unique, but not enforced."
+  (file-name-base (directory-file-name (project-root project))))
+
 (cl-defgeneric project-ignores (_project _dir)
   "Return the list of glob patterns to ignore inside DIR.
 Patterns can match both regular files and directories.