Add the noether modeline for wm mode as well

This commit is contained in:
Sameer Rahmani 2024-04-19 19:01:21 +01:00
parent 916ee2674c
commit 3646ee6313
Signed by: lxsameer
GPG Key ID: 8741FACBF412FFA5
3 changed files with 10 additions and 13 deletions

View File

@ -68,7 +68,7 @@
(defun fg42/-format-exwm-input-mode (_ v _ _)
"Just return the input mode name V."
(if (=string v "line")
(if (string= v "line")
(propertize "L" 'font-lock-face `(:foreground ,(get-base16-color-or :base07 "eeeeec")))
(propertize "C" 'font-lock-face `(:foreground ,(get-base16-color-or :base0A "eeeeec")))))

View File

@ -35,8 +35,7 @@
(defun fg42/--bottom-right-padded (info)
"Keep the modeline at bottom right by using the data from INFO."
(cons -70 -2))
(cons -70 -1))
(defun fg42/adjust-modeline (view)
"Adjust the VIEW after parent frame resize."
@ -75,8 +74,7 @@
:label (format "%s " (nerd-icons-devicon "nf-dev-git_branch"))
:len 20)
(fg42/mode-icon)
(line-unit :label (format "%s " (nerd-icons-codicon "nf-cod-location")))
(time-unit :label (format " %s " (nerd-icons-mdicon "nf-md-clock_time_three")))))
(line-unit :label (format "%s " (nerd-icons-codicon "nf-cod-location")))))
;; Else
(progn
(list
@ -89,8 +87,7 @@
(git-branch-unit
:label "G: "
:len 20)
(line-unit :label "L: ")
(time-unit :label "T: ")))))
(line-unit :label "L: ")))))
(noether-defview fg42/minimal-exwm
@ -98,23 +95,23 @@
Appears on the center of the current window."
:managed? t
:buffer "*exwm-status*"
:binding (kbd "C-c 1")
:separator " | "
:binding (kbd "C-c 0")
:separator ""
:timeout 10
:on-parent-resize #'fg42/adjust-modeline
:frame
(list
:poshandler #'fg42/--bottom-right-padded
:border-width 0
:font (format "%s %s" (fg42/config-get font-name) (fg42/config-get font-size))
:border-color "#bd93f9")
:units
(list
(fg42/exwm-input-mode-unit :label (format "%s " (nerd-icons-faicon "nf-fa-linux")))
(buffer-name-unit
:label (format "%s " (nerd-icons-codicon "nf-cod-layers"))
:len 30)
(fg42/exwm-input-mode-unit :label (format "%s " (nerd-icons-faicon "nf-fa-linux")))
(time-unit :label (format "%s " (nerd-icons-mdicon "nf-md-clock_time_three")))))

View File

@ -82,7 +82,7 @@ to Emacs modeline."
(setq-default noether-views fg42/noether-views))
(when-wm
(setq-default noether-views nil)))
(setq-default noether-views (list fg42/minimal-exwm))))
(provide 'fg42/noether)