From e0f6ba27a8d686a92f6e9aa2776c55a711cbcd6e Mon Sep 17 00:00:00 2001 From: Jessie Hildebrandt Date: Sun, 10 Dec 2023 08:08:46 -0500 Subject: [PATCH] Add project segment --- mood-line.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/mood-line.el b/mood-line.el index a74d9d8..be7f09e 100644 --- a/mood-line.el +++ b/mood-line.el @@ -220,6 +220,7 @@ An optional key :padding may be provided, the value of which will be used as ((or (mood-line-segment-buffer-status) (mood-line-segment-client) " ") . " ") + ((mood-line-segment-project) . "/") ((mood-line-segment-buffer-name) . " ") ((mood-line-segment-anzu) . " ") ((mood-line-segment-multiple-cursors) . " ") @@ -526,6 +527,21 @@ Modal editing modes checked, in order: (propertize (mood-line--get-glyph :frame-client) 'face 'mood-line-frame-status-client))) +;; -------------------------------------------------------------------------- ;; +;; +;; Project segment +;; +;; -------------------------------------------------------------------------- ;; + +(defun mood-line-segment-project () + "Return project name from project.el or Projectile, if any." + (or + (and (fboundp 'project-name) + (project-current) + (project-name (project-current))) + (and (fboundp 'projectile-project-name) + (projectile-project-name)))) + ;; -------------------------------------------------------------------------- ;; ;; ;; anzu segment