jessieh/mood-line
jessieh/mood-line
1
Fork 2
Code Issues 4 Pull Requests 1 Releases Activity

Add project segment

Browse Source
This commit is contained in:
Jessie Hildebrandt 2023-12-10 08:08:46 -05:00
parent fdaeb1fddb
commit e0f6ba27a8
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
mood-line.el
View File

@ -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) ((or (mood-line-segment-buffer-status)
(mood-line-segment-client) (mood-line-segment-client)
" ") . " ") " ") . " ")
((mood-line-segment-project) . "/")
((mood-line-segment-buffer-name) . " ") ((mood-line-segment-buffer-name) . " ")
((mood-line-segment-anzu) . " ") ((mood-line-segment-anzu) . " ")
((mood-line-segment-multiple-cursors) . " ") ((mood-line-segment-multiple-cursors) . " ")
@ -526,6 +527,21 @@ Modal editing modes checked, in order:
(propertize (mood-line--get-glyph :frame-client) (propertize (mood-line--get-glyph :frame-client)
'face 'mood-line-frame-status-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 ;; anzu segment