emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Modeline: optimize narf-buffer-dir; fix narf-buffer-path

Browse source
This commit is contained in:
Henrik Lissner 2015-10-03 04:21:24 -04:00
parent 9b0859e2c8
commit e7e0f983f1
1 changed files with 20 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

15
core/core-ui.el
View file

@ -118,10 +118,12 @@
;; Custom modeline segments
(spaceline-define-segment narf-buffer-path
"Base filename of buffer."
(if buffer-file-name
(concat (file-name-nondirectory buffer-file-name)
(if (buffer-modified-p)
(propertize "*" 'face 'mode-line-is-modified))
" ")
(powerline-buffer-id))
:tight t)
(spaceline-define-segment narf-buffer-dir
@ -129,24 +131,23 @@
(propertize
(or narf--spaceline-file-path
(setq narf--spaceline-file-path
(if (and buffer-file-name (file-exists-p buffer-file-name))
(progn
(let* ((max-length (/ (window-width) 2))
(project-path (narf/project-root))
(path (file-name-directory
(file-relative-name buffer-file-name
(file-name-directory (if (string-match "/+\\'" project-path)
(replace-match "" t t project-path)
project-path))))))
(if (> (length path) max-length)
project-path)))))
(path-len (length path)))
(if (> path-len max-length)
(concat "…" (replace-regexp-in-string
"^.*?/" "/"
(let ((l (length path))) (substring path (- l max-length) l))))
path)))
(powerline-buffer-id))))
(substring path (- path-len max-length) path-len)))
path))))
'face (if (powerline-selected-window-active)
'mode-line-buffer-path
'mode-line-inactive))
:when buffer-file-name
:tight-right t)
(spaceline-define-segment narf-buffer-encoding-abbrev