#+title: Hyprland
#+setupfile: headers
#+PROPERTY: header-args:conf :mkdirp yes :tangle ~/.config/hypr/hyprland.conf :export code :noweb yes
#+PROPERTY: header-args :exports code :tangle no

* Hyprland
[[https://hyprland.org/][Hyprland]] is a dynamic wayland compositor which provides autotiling and
beautiful animations out of the box.

** Environment variables
This part will be very short, but I first need to set some environment variables.
#+begin_src conf
env = XCURSOR_SIZE,24
env = SDL_VIDEODRIVER,wayland
#+end_src

** Hardware configuration
The first configuration I want to set is my keyboard and touchpad
configuration. My keyboard uses the AFNOR standard for the [[https://bépo.fr][bépo]]
layout, and I do not use the caps lock key which is replaced by the
control key.
#+begin_src conf
input {
    kb_layout = fr
    kb_variant = bepo_afnor
    kb_model =
    kb_options = caps:ctrl_modifier
    kb_rules =
    numlock_by_default = true

    follow_mouse = 1

    touchpad {
        natural_scroll = false
    }

    sensitivity = 0 # -1.0 - 1.0, 0 means no modification.
}
#+end_src

We can then set the monitors used. If =HDMI-A-1= is not found when
Hyprland launches, it will simply ignore it. And at worst, I can use
[[https://github.com/artizirk/wdisplays][wdisplays]] to manually set the position of my screens.
#+name: monitors-table
| Monitor name | Resolution | Refresh rate (Hz) | Position |
|--------------+------------+-------------------+----------|
| HDMI-A-1     |  2560x1080 |                   |      0x0 |
| eDP-1        |  1920x1080 |               120 |   2560x0 |

#+name: gen-monitors
#+begin_src emacs-lisp :var table=monitors-table :exports results :tangle no :wrap "src conf" :cache yes
(let ((normalize-value (lambda (value)
                         (or (if (numberp value)
                                 (number-to-string value)
                               value)
                             ""))))
  (mapconcat (lambda (line)
               (let* ((monitor      (funcall normalize-value (nth 0 line)))
                      (resolution   (funcall normalize-value (nth 1 line)))
                      (refresh-rate (funcall normalize-value (nth 2 line)))
                      (refresh-rate (if (string= "" refresh-rate) "" (concat "@" refresh-rate)))
                      (position     (funcall normalize-value (nth 3 line)))
                      (scale        (funcall normalize-value (nth 4 line)))
                      (scale        (if (string= "" scale) "1" scale)))
                 (format "monitor = %s, %s%s, %s, %s"
                         monitor
                         resolution
                         refresh-rate
                         position
                         scale)))
             table
             "\n"))
#+end_src

This translates into the following configuration:

#+RESULTS[7a1e8ae4a77d335ec873de9ef0536bb45c84f2a0]: gen-monitors
#+begin_src conf
monitor = HDMI-A-1, 2560x1080, 0x0, 1
monitor = eDP-1, 1920x1080@120, 2560x0, 1
#+end_src

** Visual configuration
Now, onto the visual configuration. I like my gaps, and I feel keeping
my windows relatively tight together but with a greater gap around
them looks nice. I also like the Nord palette which I use here for my
window border colours. Active windows get a gradient from nord9 to
nord14, while inactive windows get a nord3 border. Lastly, I use the
dwindle layout as I find it nicer to use than the master layout.
#+begin_src conf
general {
    gaps_in = 5
    gaps_out = 20
    border_size = 2
    col.active_border = rgb(81a1c1) rgb(a3be8c) 45deg
    col.inactive_border = rgb(4c566a)
    layout = dwindle
}
#+end_src

I may one day use the [[https://github.com/hyprland-community/pyprland][=layout_center=]] layout from [[https://github.com/hyprland-community/pyprland][pyprland]], but I
haven’t got around to do that yet.

Decorations are just a nice thing to make things look pretty. I like
some slight rounding on my windows with a nice though light shadow.
Again, the colour comes from the Nord palette with nord0.
#+begin_src conf
decoration {
    rounding = 5
    blur {
        enabled = true
        size = 9
        passes = 1
    }
    shadow {
        enabled = true
        color = rgba(2e3440aa)
        range = 4
        render_power = 3
    }
}
#+end_src

Animations are fun! I mostly kept the default animations from the
example config of Hyprland.
#+begin_src conf
animations {
    enabled = true
    bezier = myBezier, 0.05, 0.9, 0.1, 1.05
    animation = windows, 1, 7, myBezier
    animation = windowsOut, 1, 7, default, popin 80%
    animation = border, 1, 10, default
    animation = borderangle, 1, 8, default
    animation = fade, 1, 7, default
    animation = workspaces, 1, 6, default
}
#+end_src

Now, we can take care of the configuration of the layouts.
#+begin_src conf
dwindle {
    pseudotile = true
    preserve_split = true
}
#+end_src

** Autolaunch of programs
The =exec-once= directive of Hyprland allows the user to launch the
associated command only when Hyprland starts in order to avoid
launching multiple instances of some programs.

First, I’ll import some environment variables into Hyprland. These may
be necessary for some programs.
#+begin_src conf
exec-once = systemctl --user import-environment WAYLAND_DISPLAY XDG_CURRENT_DESKTOP
exec-once = dbus-update-activation-environment --systemd WAYLAND_DISPLAY XDG_CURRENT_DESKTOP=Hyprland
#+end_src

Next, I’ll launch some programs that will give Hyprland a nice
appearance: [[https://github.com/Alexays/Waybar][waybar]] and [[https://github.com/danyspin97/wpaperd][wpaperd]].
#+begin_src conf
exec-once = wpaperd
exec-once = waybar
#+end_src

Let’s also take care of some sound stuff. If any new input or output
is detected, switch to it. And stop the music, just in case.
#+begin_src conf
exec-once = pactl load-module module-switch-on-connect
exec-once = mpc stop
#+end_src

Having a working policy kit is generally a good idea.
#+begin_src conf
exec-once = xfce-polkit
#+end_src

Now, let’s launch the notification daemon [[https://github.com/ErikReider/SwayNotificationCenter][swaync]].
#+begin_src conf
exec-once = swaync
#+end_src

Let’s also launch [[https://sr.ht/~kennylevinsen/wlsunset/][wlsunset]]. I’ll very vagely aim at Paris with the
longitude and latitude.
#+begin_src conf
exec-once = wlsunset -l 48.5 -L 2.2 -d 1500
#+end_src

Let’s launch some apps and their applet. Here, we’re launching the
applets for NetworkManager, KDE Connect, and blueman (the bluetooth
manager).
#+begin_src conf
exec-once = nm-applet
exec-once = /usr/lib/kdeconnectd
exec-once = kdeconnect-indicator
exec-once = blueman-applet
#+end_src

Finally, let’s launch [[https://github.com/swaywm/swayidle][swayidle]] which lets us lock our session. It’ll automatically pause any media playing.
#+begin_src conf
exec-once = swayidle -w timeout 600 'plock' before-sleep 'playerctl pause; plock' lock 'plock'
#+end_src

** Keybindings
First, let me make a couple of variables for reusability. Mind you,
=hjkl= becomes =ctsr= in the bépo keyboard layout.
#+begin_src conf
$left = c
$right = r
$up = s
$down = t
$menu = rofi -combi-modi drun -show combi
#+end_src

Now, I’d like to introduce a concept which I really enjoy: submaps.
They allow the Hyprland user to make keychords similar to Emacs, which
allows us to unlock the full potential of keybindings in a window
manager. In Hyprland, something to be wary of is that there is no
automatic submap switching. If there is no explicit indication to exit
the current submap or to switch to another submap, Hyprland will just
stay on the current submap. So, using something like =bind = CTRL, g,
submap, reset= is necessary to exit the current submap on =C-g= (or
=Control + g=, I like the Emacs notation).

In the submap tables below, the submap column may indicate =reset=, a
submap’s name, or nothing. If nothing is indicated, the key will not
act on the current submap or switch to another one. A submap’s name
will make the key switch to said submap, while the value =reset= will
make us go back to the root submap. Note that all submaps will also
have the escape and =C-g= keys mapped to exiting the current submap.

Note also that I sometimes use [[https://wiki.hyprland.org/Configuring/Binds/#bind-flags][bind flags]]. I’ll only set the flag in
the appropriate column when necessary.

These are the keybindings that are present on the top-level keybinding
map.
#+name: top-submap
| Modifiers | Key    | Action | Argument | Submap     |
|-----------+--------+--------+----------+------------|
| SUPER     | Return | exec   | kitty    |            |
| SUPER     | Space  |        |          | leader     |
|           | Print  |        |          | screenshot |

#+begin_src conf
<<gen-submap(table=top-submap, submap="", reset-submap="no")>>

<<gen-submap(table=leader-submap, submap="leader", reset-submap="yes")>>
<<gen-submap(table=apps-submap, submap="apps", reset-submap="yes")>>
<<gen-submap(table=buffers-submap, submap="buffers", reset-submap="yes")>>
<<gen-submap(table=resize-submap, submap="resize", reset-submap="yes")>>
<<gen-submap(table=rofi-submap, submap="rofi", reset-submap="yes")>>
<<gen-submap(table=screenshot-submap, submap="screenshot", reset-submap="yes")>>
<<gen-submap(table=windows-submap, submap="windows", reset-submap="yes")>>

submap = reset
<<gen-submap(table=top-media, submap="", reset-submap="no")>>
<<gen-submap(table=top-windows-movements, submap="", reset-submap="no")>>
<<gen-mouse(table=top-windows-actions)>>
<<gen-submap(table=top-workspace-movements, submap="", reset-submap="no")>>
#+end_src

*** Top keybindings
**** Media keys
#+name: top-media
| Modifiers | Key                   | Action | Argument                     | Submap | Bind flag |
|-----------+-----------------------+--------+------------------------------+--------+-----------|
|           | XF86AudioPlay         | exec   | playerctl play-pause         |        | =l=         |
|           | XF86AudioPause        | exec   | playerctl pause              |        | =l=         |
|           | XF86AudioStop         | exec   | playerctl stop               |        | =l=         |
|           | XF86AudioPrev         | exec   | playerctl previous           |        | =l=         |
|           | XF86AudioNext         | exec   | playerctl next               |        | =l=         |
|           | XF86AudioForward      | exec   | playerctl position +1        |        | =l=         |
|           | XF86AudioRewind       | exec   | playerctl position -1        |        | =l=         |
|           | XF86AudioRaiseVolume  | exec   | pamixer -i 2                 |        | =l=         |
|           | XF86AudioLowerVolume  | exec   | pamixer -d 2                 |        | =l=         |
|           | XF86MonBrightnessUp   | exec   | xbacklight -perceived -inc 2 |        | =l=         |
|           | XF86MonBrightnessDown | exec   | xbacklight -perceived -dec 2 |        | =l=         |
|           | XF86KbdBrightnessUp   | exec   | xbacklight -perceived -inc 2 |        | =l=         |
|           | XF86KbdBrightnessDown | exec   | xbacklight -perceived -dec 2 |        | =l=         |

**** Quick window movements and actions
These are basically a rehash of what you can find in the [[file:./hyprland.md#windows][windows submap]] but with a few missing keybindings and other extras.
#+name: top-windows-movements
| Modifiers        | Key    | Action                 | Argument | Submap |
|------------------+--------+------------------------+----------+--------|
| SUPER            | =$left=  | movefocus              | l        |        |
| SUPER            | =$right= | movefocus              | r        |        |
| SUPER            | =$up=    | movefocus              | u        |        |
| SUPER            | =$down=  | movefocus              | d        |        |
| SUPER_SHIFT      | =$left=  | movewindow             | l        | reset  |
| SUPER_SHIFT      | =$right= | movewindow             | r        | reset  |
| SUPER_SHIFT      | =$up=    | movewindow             | u        | reset  |
| SUPER_SHIFT      | =$down=  | movewindow             | d        | reset  |
| SUPER_CTRL_SHIFT | =$left=  | moveworkspacetomonitor | e+0 +1   | reset  |
| SUPER_CTRL_SHIFT | =$right= | moveworkspacetomonitor | e+0 -1   | reset  |
| SUPER            | Tab    | cyclenext              |          |        |
| SUPER_SHIFT      | Tab    | cyclenext              | prev     |        |

Something I really appreciate with window managers in Linux is the able to really easily move and resize windows. The keybinds below allow the user to press down the super key and perform an action on the window:
- with a left click, move the window around
- with a right click, resize the window
#+name: top-windows-actions
| Modifiers | Key       | Action       |
|-----------+-----------+--------------|
| SUPER     | mouse:272 | movewindow   |
| SUPER     | mouse:273 | resizewindow |

**** Workspace movements
Due to the bépo layout, the number row does not give immediate access to numbers, but to punctuation symbols. You can find below a table of equivalence of the characters’ name and the actual character, as well as the number that sits on the same key when pressing shift.
| /              |           | <l>    |
| Character name | Character | Number |
|----------------+-----------+--------|
| quotedbl       | ="=         | 1      |
| guillemotleft  | =«=         | 2      |
| guillemotright | =»=         | 3      |
| parenleft      | =(=         | 4      |
| parenright     | =)=         | 5      |
| at             | =@=         | 6      |
| plus           | =+=         | 7      |
| minus          | =-=         | 8      |
| slash          | =/=         | 9      |
| asterisk       | =*=         | 0      |

#+name: top-workspace-movements
| Modifiers   | Key            | Action          | Argument |
|-------------+----------------+-----------------+----------|
| SUPER       | quotedbl       | workspace       |        1 |
| SUPER       | guillemotleft  | workspace       |        2 |
| SUPER       | guillemotright | workspace       |        3 |
| SUPER       | parenleft      | workspace       |        4 |
| SUPER       | parenright     | workspace       |        5 |
| SUPER       | at             | workspace       |        6 |
| SUPER       | plus           | workspace       |        7 |
| SUPER       | minus          | workspace       |        8 |
| SUPER       | slash          | workspace       |        9 |
| SUPER       | asterisk       | workspace       |       10 |
| SUPER       | mouse_down     | workspace       |      e+1 |
| SUPER       | mouse_up       | workspace       |      e-1 |
| SUPER_SHIFT | quotedbl       | movetoworkspace |        1 |
| SUPER_SHIFT | guillemotleft  | movetoworkspace |        2 |
| SUPER_SHIFT | guillemotright | movetoworkspace |        3 |
| SUPER_SHIFT | parenleft      | movetoworkspace |        4 |
| SUPER_SHIFT | parenright     | movetoworkspace |        5 |
| SUPER_SHIFT | at             | movetoworkspace |        6 |
| SUPER_SHIFT | plus           | movetoworkspace |        7 |
| SUPER_SHIFT | minus          | movetoworkspace |        8 |
| SUPER_SHIFT | slash          | movetoworkspace |        9 |
| SUPER_SHIFT | asterisk       | movetoworkspace |       10 |

*** Leader
The leader submap is accessible by pressing =s-SPC= (Super and space).
It is sort of the general menu for my keybindings.
#+name: leader-submap
| Modifiers | Key | Action | Argument | Submap  |
|-----------+-----+--------+----------+---------|
|           | l   | exec   | =plock=    | reset   |
|           | a   |        |          | apps    |
|           | b   |        |          | buffers |
|           | w   |        |          | windows |

*** Apps
#+name: apps-submap
| Modifiers | Key | Action | Argument          | Submap |
|-----------+-----+--------+-------------------+--------|
|           | b   | exec   | =zen-browser=       | reset  |
| SHIFT     | b   | exec   | =qutebrowser=       | reset  |
|           | d   | exec   | =vesktop=           | reset  |
|           | e   | exec   | =emacsclient -c -n= | reset  |
|           | g   | exec   | =gimp=              | reset  |
|           | n   | exec   | =nemo=              | reset  |
|           | r   |        |                   | rofi   |
|           | u   | exec   | =$menu=             | reset  |

*** Buffers
I call this the buffer window, but it’s mostly due to my habit of
handling Emacs buffers. Some of my muscle memory may never fade away.
Consider this as an addition to the [[file:./hyprland.md#windows][windows]] submap.
#+name: buffers-submap
| Modifiers | Key | Action     | Argument | Submap |
|-----------+-----+------------+----------+--------|
|           | d   | killactive |          | reset  |

*** Resize
This is an example of a submap where I may not want to immediately
exit it. We enter it with the keychord =s-SPC w .= and exit it with
either the usual =C-g=, escape key, but also with the =q= key.
#+name: resize-submap
| Modifiers | Key    | Action       | Argument | Submap | Bind flag |
|-----------+--------+--------------+----------+--------+-----------|
|           | =$left=  | resizeactive | -10 0    |        | =e=         |
|           | =$right= | resizeactive | 10 0     |        | =e=         |
|           | =$up=    | resizeactive | 0 -10    |        | =e=         |
|           | =$down=  | resizeactive | 0 10     |        | =e=         |
|           | q      |              |          | reset  |           |

*** Rofi
This submap hosts quite a few menus handled with [[https://github.com/davatorium/rofi][rofi]] (I use [[https://github.com/lbonn/rofi][this
wayland fork]]). You may want to take a look at [[file:./scripts.md][custom scripts]] to know
what most of these do.
#+name: rofi-submap
| Modifiers | Key | Action | Argument          | Submap |
|-----------+-----+--------+-------------------+--------|
|           | a   | exec   | =awiki=             | reset  |
|           | b   | exec   | =bluetooth-connect= | reset  |
|           | e   | exec   | =rofi-emoji=        | reset  |
|           | r   | exec   | =$menu=             | reset  |
|           | s   | exec   | =rofi -show ssh=    | reset  |
|           | y   | exec   | =ytplay=            | reset  |
| SHIFT     | y   | exec   | =rofi-ytdl=         | reset  |

*** Screenshots
Here are the keybinding for the screenshot submap
#+name: screenshot-submap
| Modifiers | Key   | Action | Argument           | Submap |
|-----------+-------+--------+--------------------+--------|
|           | Print | exec   | =screenshot=         | reset  |
|           | d     | exec   | =screenshot -d 3=    | reset  |
| Shift     | d     | exec   | =screenshot -sced 3= | reset  |
|           | e     | exec   | =screenshot -sec=    | reset  |
|           | s     | exec   | =screenshot -s=      | reset  |
| Shift     | s     | exec   | =screenshot -sc=     | reset  |

*** Windows
#+name: windows-submap
| Modifiers  | Key    | Action                 | Argument | Submap |
|------------+--------+------------------------+----------+--------|
|            | period |                        |          | resize |
|            | =$left=  | movefocus              | l        | reset  |
|            | =$right= | movefocus              | r        | reset  |
|            | =$up=    | movefocus              | u        | reset  |
|            | =$down=  | movefocus              | d        | reset  |
| SHIFT      | =$left=  | movewindow             | l        | reset  |
| SHIFT      | =$right= | movewindow             | r        | reset  |
| SHIFT      | =$up=    | movewindow             | u        | reset  |
| SHIFT      | =$down=  | movewindow             | d        | reset  |
| CTRL_SHIFT | =$left=  | moveworkspacetomonitor | e+0 +1   | reset  |
| CTRL_SHIFT | =$right= | moveworkspacetomonitor | e+0 -1   | reset  |
|            | d      | killactive             |          | reset  |
|            | f      | fullscreen             |          | reset  |
| SHIFT      | f      | togglefloating         |          | reset  |

** Window rules
For now, I don’t have a lot of window rules. One, actually. It makes
the XFCE polkit a floating window.
#+begin_src conf
windowrulev2 = float,class:^(xfce-polkit)$
#+end_src

* Private data                                                     :noexport:
#+name: gen-submap
#+begin_src emacs-lisp :var table=leader-submap submap="leader" reset-submap="yes" :exports none :tangle no :wrap "src conf :exports none :tangle no"
(let ((str-or-null (lambda (value)
                     (cond ((numberp value) (number-to-string value))
                           ((or (null value) (string= "" value)) nil)
                           (t value))))
      (plain-str (lambda (value)
                   (cond ((numberp value) (number-to-string value))
                         ((or (null value) (string= "" value)) nil)
                         (t (string-replace "=" "" value))))))
  (concat (if (not (string= "" submap))
              (concat "submap = " submap "\n")
            "")
          (mapconcat (lambda (line)
                      (let* ((modifiers (or (funcall str-or-null (nth 0 line)) ""))
                             (key           (funcall plain-str   (nth 1 line)))
                             (action        (funcall str-or-null (nth 2 line)))
                             (argument  (or (funcall plain-str   (nth 3 line)) ""))
                             (submap        (funcall str-or-null (nth 4 line)))
                             (bind-flag (or (funcall plain-str   (nth 5 line)) ""))
                             (action-bind (when action
                                            (format "bind%s = %s, %s, %s, %s"
                                                    bind-flag
                                                    modifiers
                                                    key
                                                    action
                                                    argument)))
                             (submap-bind (when submap
                                            (format "bind = %s, %s, submap, %s"
                                                    modifiers
                                                    key
                                                    submap))))
                        (mapconcat #'identity
                                   (seq-filter (lambda (val) (not (null val)))
                                               (list action-bind submap-bind))
                                   "\n")))
                    table
                    "\n")
          (if (string= "yes" reset-submap)
              "\nbind = , escape, submap, reset
bind = CTRL, g, submap, reset"
            "")))
#+end_src

#+RESULTS[16dc2aed068a6e71847eaf331d36c2092f5b0379]: gen-submap
#+begin_src conf :exports none :tangle no
submap = leader
bind = , l, exec, plock
bind = , l, submap, reset
bind = , a, submap, apps
bind = , b, submap, buffers
bind = , w, submap, windows
bind = , escape, submap, reset
bind = CTRL, g, submap, reset
#+end_src

#+name: gen-mouse
#+begin_src emacs-lisp :var table=top-windows-actions
(mapconcat (lambda (line)
             (let ((modifiers (or (nth 0 line) ""))
                   (mouse-btn (nth 1 line))
                   (command   (or (nth 2 line) "")))
               (format "bindm = %s, %s, %s" modifiers mouse-btn command)))
           table
           "\n")
#+end_src

#+RESULTS[bab4997f43c513c6557a8f039ae1e20cc96e7794]: gen-mouse
: bindm = SUPER, mouse:272, movewindow
: bindm = SUPER, mouse:273, resizewindow
