From f1756e64f31ec4165d0c2da25324f7fb4067e074 Mon Sep 17 00:00:00 2001
From: Daniel Ziltener <dziltener@lyrion.ch>
Date: Wed, 22 Nov 2023 21:41:50 +0100
Subject: [PATCH] .

---
 emacs/emacs.nix       |  3 +++
 emacs/init.el         | 23 ++++++++++++++++++++++-
 hyprland/hyprland.nix |  4 ++--
 3 files changed, 27 insertions(+), 3 deletions(-)

diff --git a/emacs/emacs.nix b/emacs/emacs.nix
index 0d9fc62..2da8822 100644
--- a/emacs/emacs.nix
+++ b/emacs/emacs.nix
@@ -18,6 +18,7 @@
     package = pkgs.emacs29-gtk3;
     extraConfig = builtins.readFile ./init.el;
     extraPackages = epkgs: with epkgs; [
+      airline-themes
       cape
       catppuccin-theme
       cider
@@ -29,6 +30,7 @@
       consult-eglot
       corfu
       corfu-terminal
+      delight
       dhall-mode
       editorconfig
       eglot
@@ -65,6 +67,7 @@
       password-store
       password-store-otp
       plan9-theme
+      powerline
       rainbow-delimiters
       smartparens
       tempel
diff --git a/emacs/init.el b/emacs/init.el
index 2f0fe2c..14c94cc 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -65,6 +65,7 @@
 
 ;;;; Emacs
 (use-package emacs
+  :delight (eldoc-mode " 󰙎")
   :custom
   (completion-cycle-threshold 10)
   (read-extended-command-predicate
@@ -142,6 +143,18 @@
 (add-to-list 'default-frame-alist '(alpha-background . 80))
 (set-frame-font "Victor Mono Nerd Font-11:bold" nil t)
 
+(use-package powerline
+  :init
+  (require 'powerline)
+  :config
+  (powerline-default-theme))
+
+(use-package airline-themes
+  :after powerline
+  :init (require 'airline-themes)
+  :config
+  (load-theme 'airline-badwolf t))
+
 ;;;; Security
 (use-package keychain-environment
   :init
@@ -169,6 +182,7 @@
 (use-package evil-collection
   :after evil
   :ensure t
+  :delight evil-collection-unimpaired-mode
   :custom
   (evil-collection-outline-bind-tab-p 1)
   :commands evil-collection-init
@@ -313,6 +327,7 @@
         ("g;" . 'goto-last-change-reverse)))
 
 (use-package evil-snipe
+  :delight (evil-snipe-local-mode " 󰓾 ")
   :custom
   (evil-snipe-scope 'whole-visible)
   (evil-snipe-repeat-scope 'whole-buffer)
@@ -358,6 +373,7 @@ Point must be at the beginning of balanced expression (sexp)."
 
 ;;;;; Basic
 (use-package smartparens
+  :delight (smartparens-mode " 󰅲 ")
   :hook
   (smartparens-mode . show-smartparens-mode)
   (smartparens-mode . smartparens-strict-mode)
@@ -409,12 +425,14 @@ Point must be at the beginning of balanced expression (sexp)."
 
 ;;;; Programming
 (use-package editorconfig
+  :delight editorconfig-mode
   :commands
   editorconfig-mode
   :init
   (editorconfig-mode 1))
 
-(use-package flymake)
+(use-package flymake
+  :delight '(:eval (cons "  " (flymake--mode-line-counters))))
 
 (use-package consult-flymake
   :after (consult flymake))
@@ -477,6 +495,7 @@ Point must be at the beginning of balanced expression (sexp)."
 
 ;;;;; Clojure
 (use-package clojure-ts-mode
+  :delight ""
   :after tree-sitter
   :config
   (require 'sesman)
@@ -504,6 +523,7 @@ Point must be at the beginning of balanced expression (sexp)."
                '(clojurescript-ts-mode . clojure)))
 
 (use-package cider
+  :delight (cider-mode '(:eval (concat "  [" (cider--modeline-info) "]")))
   :hook
   (clojure-ts-mode . cider-mode)
   (cider-connected-hook . xref-union-mode)
@@ -586,6 +606,7 @@ Point must be at the beginning of balanced expression (sexp)."
   (code-review-auth-login-marker 'forge))
 
 (use-package git-gutter
+  :delight git-gutter-mode
   :hook prog-mode)
 
 ;;;; LaTeX
diff --git a/hyprland/hyprland.nix b/hyprland/hyprland.nix
index cd561fd..56f224a 100644
--- a/hyprland/hyprland.nix
+++ b/hyprland/hyprland.nix
@@ -90,8 +90,8 @@
         "$mainMod, M, exec, ${pkgs.wlogout}/bin/wlogout"
         "$mainMod, E, exec, dolphin"
         "$mainMod, V, togglefloating,"
-        #"$mainMod, R, exec, ${pkgs.fuzzel}/bin/fuzzel"
-        "$mainMod, R, exec, ${pkgs.tofi}/bin/tofi-drun"
+        "$mainMod, R, exec, ${pkgs.fuzzel}/bin/fuzzel"
+        #"$mainMod, R, exec, ${pkgs.tofi}/bin/tofi-drun"
         "$mainMod, P, pseudo," # dwindle
         "$mainMod, J, togglesplit," # dwindle
         "$mainMod, T, togglegroup,"