diff options
| author | Blake DeMarcy <ofunknowndescent@gmail.com> | 2017-04-03 11:49:01 -0500 |
|---|---|---|
| committer | Blake DeMarcy <ofunknowndescent@gmail.com> | 2017-04-03 11:49:01 -0500 |
| commit | cb611cbd23e7cf63c9fed03732e7574394354623 (patch) | |
| tree | fd1e348f60f3962cc2ed5af3bdbc1b452c0f07b4 | |
| parent | e8129583fc2fd6df2dba66ce13ab0930afdcbf3f (diff) | |
| download | bbj-cb611cbd23e7cf63c9fed03732e7574394354623.tar.gz | |
make the processline look better in vanilla emacs
| -rw-r--r-- | clients/emacs/bbj.el | 4 |
1 files 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 |