From 4d80d32b3b2439ea38bd59ff904e49d2cde2e311 Mon Sep 17 00:00:00 2001 From: Blendoit Date: Mon, 7 Sep 2020 20:01:18 -0700 Subject: Work on header-bar. --- blendoit/blendoit-init.org | 57 +++++++++++++++++++++++++++++++++++++++++++--- 1 file changed, 54 insertions(+), 3 deletions(-) diff --git a/blendoit/blendoit-init.org b/blendoit/blendoit-init.org index aae8a5d..3bea2f2 100644 --- a/blendoit/blendoit-init.org +++ b/blendoit/blendoit-init.org @@ -654,8 +654,8 @@ We replace the standard welcome screen with our own. #+NAME: powerline #+BEGIN_SRC emacs-lisp -(use-package powerline) -(powerline-default-theme) + (use-package powerline) + (powerline-default-theme) #+END_SRC *** TODO Sidebar @@ -744,7 +744,58 @@ Complete mode line rewrite. Might require new package. Top of the buffer is more intuitive. #+BEGIN_SRC emacs-lisp - + ;; (setq header-line-format + ;; '(:eval + ;; (let* ((active (powerline-selected-window-active)) + ;; (mode-line-buffer-id (if active 'mode-line-buffer-id 'mode-line-buffer-id-inactive)) + ;; (mode-line (if active 'mode-line 'mode-line-inactive)) + ;; (face0 (if active 'powerline-active0 'powerline-inactive0)) + ;; (face1 (if active 'powerline-active1 'powerline-inactive1)) + ;; (face2 (if active 'powerline-active2 'powerline-inactive2)) + ;; (separator-left (intern (format "powerline-%s-%s" + ;; (powerline-current-separator) + ;; (car powerline-default-separator-dir)))) + ;; (separator-right (intern (format "powerline-%s-%s" + ;; (powerline-current-separator) + ;; (cdr powerline-default-separator-dir)))) + ;; (lhs (list (powerline-raw "%*" face0 'l) + ;; (when powerline-display-buffer-size + ;; (powerline-buffer-size face0 'l)) + ;; (when powerline-display-mule-info + ;; (powerline-raw mode-line-mule-info face0 'l)) + ;; (powerline-buffer-id `(mode-line-buffer-id ,face0) 'l) + ;; (when (and (boundp 'which-func-mode) which-func-mode) + ;; (powerline-raw which-func-format face0 'l)) + ;; (powerline-raw " " face0) + ;; (funcall separator-left face0 face1) + ;; (when (and (boundp 'erc-track-minor-mode) erc-track-minor-mode) + ;; (powerline-raw erc-modified-channels-object face1 'l)) + ;; (powerline-major-mode face1 'l) + ;; (powerline-process face1) + ;; (powerline-minor-modes face1 'l) + ;; (powerline-narrow face1 'l) + ;; (powerline-raw " " face1) + ;; (funcall separator-left face1 face2) + ;; (powerline-vc face2 'r) + ;; (when (bound-and-true-p nyan-mode) + ;; (powerline-raw (list (nyan-create)) face2 'l)))) + ;; (rhs (list (powerline-raw global-mode-string face2 'r) + ;; (funcall separator-right face2 face1) + ;; (unless window-system + ;; (powerline-raw (char-to-string #xe0a1) face1 'l)) + ;; (powerline-raw "%4l" face1 'l) + ;; (powerline-raw ":" face1 'l) + ;; (powerline-raw "%3c" face1 'r) + ;; (funcall separator-right face1 face0) + ;; (powerline-raw " " face0) + ;; (powerline-raw "%6p" face0 'r) + ;; (when powerline-display-hud + ;; (powerline-hud face0 face2)) + ;; (powerline-fill face0 0) + ;; ))) + ;; (concat("%b") + ;; (separator) + ;; (buttons)))) #+END_SRC ** Window -- cgit v1.2.3