[elpa] externals/beframe 41812981d2 1/2: Simplify how project frames are named

[ELPA Syncer]

branch: externals/beframe
commit 41812981d269d92fa2cc67cdc0aed9ce2f7cc4f0
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@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