branch: externals/beframe
commit 41812981d269d92fa2cc67cdc0aed9ce2f7cc4f0
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Simplify how project frames are named
I am removing the experiment with the added symbol, because my intent
was to have it as purely decorative. But this was actually writing it
as part of the name itself.
---
beframe.el | 15 +++------------
1 file changed, 3 insertions(+), 12 deletions(-)
diff --git a/beframe.el b/beframe.el
index dc64bc82c0..638f840f22 100644
--- a/beframe.el
+++ b/beframe.el
@@ -603,13 +603,6 @@ Also see the `beframe-prefix-map'."
;; (with-current-buffer buf
;; (rename-buffer (format "*scratch for %s*" name)))))
-(defun beframe-get-fork-symbol ()
- "Return the powerline fork symbol, if available, else the VC string."
- (if-let ((character #xE0A0)
- ((char-displayable-p character)))
- (char-to-string character)
- "VC"))
-
(defvar project--list) ; from project.el
(defun beframe-infer-frame-name (frame name)
@@ -621,13 +614,12 @@ See `beframe-rename-frame'."
(dir (with-current-buffer buffer (or (vc-root-dir)
default-directory)))
(projectp (and (bound-and-true-p project--list)
(listp project--list)
- (member (list dir) project--list)))
- (project-symbol (beframe-get-fork-symbol)))
+ (member (list dir) project--list))))
(cond
((and name (stringp name))
name)
((and projectp buf-name)
- (format "%s %s" project-symbol (file-name-nondirectory
(directory-file-name dir))))
+ (format "%s" (file-name-nondirectory (directory-file-name dir))))
((and (not (minibufferp)) file-name)
(format "%s %s" buf-name dir))
((not (minibufferp))
@@ -658,8 +650,7 @@ With no NAME argument try to infer a name based on the
following:
Remember that this function doubles as an example for
`beframe-rename-function': copy it and modify it accordingly
-while also reviewing `beframe-infer-frame-name' and
-`beframe-get-fork-symbol'."
+while also reviewing `beframe-infer-frame-name'."
(interactive
(let ((select-frame (beframe--frame-prompt :force-even-if-one)))
(list
