From cb611cbd23e7cf63c9fed03732e7574394354623 Mon Sep 17 00:00:00 2001 From: Blake DeMarcy Date: Mon, 3 Apr 2017 11:49:01 -0500 Subject: [PATCH] make the processline look better in vanilla emacs --- clients/emacs/bbj.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/clients/emacs/bbj.el b/clients/emacs/bbj.el index 9744c2b..0650d1e 100644 --- a/clients/emacs/bbj.el +++ b/clients/emacs/bbj.el @@ -667,7 +667,7 @@ Thats about it for now. (bbj-mode) (setq bbj-buffer-type 'index bbj-*usermap* (alist-get 'usermap response) - mode-line-process 'bbj-user) + mode-line-process '(":~%e" bbj-user)) (bbj-insert-sep t) (loop for thread across (alist-get 'data response) do (bbj-render-post thread) @@ -694,7 +694,7 @@ Thats about it for now. (setq wow response) (setq bbj-buffer-type 'thread bbj-*usermap* (alist-get 'usermap response) - mode-line-process 'bbj-user + mode-line-process '(":~%e" bbj-user) header-line-format (format "~%s: %s" (alist-get 'user_name (alist-get (car (read-from-string