magical
/
bbj
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

make the processline look better in vanilla emacs

pull/4/head
Blake DeMarcy 2017-04-03 11:49:01 -05:00
parent e8129583fc
commit cb611cbd23
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
clients/emacs/bbj.el
View File

@ -667,7 +667,7 @@ Thats about it for now.
(bbj-mode) (bbj-mode)
(setq bbj-buffer-type 'index (setq bbj-buffer-type 'index
bbj-*usermap* (alist-get 'usermap response) bbj-*usermap* (alist-get 'usermap response)
mode-line-process 'bbj-user) mode-line-process '(":~%e" bbj-user))
(bbj-insert-sep t) (bbj-insert-sep t)
(loop for thread across (alist-get 'data response) do (loop for thread across (alist-get 'data response) do
(bbj-render-post thread) (bbj-render-post thread)
@ -694,7 +694,7 @@ Thats about it for now.
(setq wow response) (setq wow response)
(setq bbj-buffer-type 'thread (setq bbj-buffer-type 'thread
bbj-*usermap* (alist-get 'usermap response) bbj-*usermap* (alist-get 'usermap response)
mode-line-process 'bbj-user mode-line-process '(":~%e" bbj-user)
header-line-format header-line-format
(format "~%s: %s" (format "~%s: %s"
(alist-get 'user_name (alist-get (car (read-from-string (alist-get 'user_name (alist-get (car (read-from-string