feat(xmonad): Add keybindings for transparency

home/alex/home.nix

@@ -58,6 +58,7 @@
       scummvm
 
       # reading
+      xournalpp # pdf editor
     ];
   };
 

home/alex/programs/emacs/doom/config.el

@@ -56,6 +56,17 @@
   (add-to-list 'lsp-file-watch-ignored-directories "[/\\\\]target\\'")
   )
 
+(defun set-frame-alpha (arg &optional active)
+  "Interactively set the transparency of the active frame"
+  (interactive "nEnter alpha value (1-100): \np")
+  (let* ((elt (assoc 'alpha default-frame-alist))
+         (old (frame-parameter nil 'alpha))
+         (new (cond ((atom old)     `(,arg ,arg))
+                    ((eql 1 active) `(,arg ,(cadr old)))
+                    (t              `(,(car old) ,arg)))))
+    (if elt (setcdr elt new) (push `(alpha ,@new) default-frame-alist))
+    (set-frame-parameter nil 'alpha new)))
+
 (defun my/org-id-update-id-current-file ()
   "Scan the current buffer for Org-ID locations and update them."
   (interactive)

home/alex/programs/emacs/doom/init.el

@@ -156,7 +156,7 @@
        (org +pandoc +present +gnuplot +noter)               ; organize your plain life in plain text
        ;;php               ; perl's insecure younger brother
        plantuml          ; diagrams for confusing people more
-       ;;purescript        ; javascript, but functional
+       (purescript +lsp)   ; javascript, but functional
        (python +lsp +tree-sitter +pyenv)            ; beautiful is better than ugly
        qt                ; the 'cutest' gui framework ever
        (racket +lsp +xp) ; a DSL for DSLs

home/alex/programs/xmonad/config.hs

@@ -108,7 +108,7 @@ myConfig =
                                  , ("M-S-r", compileRestart True)
                                  , ("M-S-q", restart "xmonad" True)
                                  , ("M-C-s", unGrab *> spawn "scrot -s")
-                                 , ("M-b", sendMessage Docks.ToggleStruts)
+                                 , ("M-S-s", sendMessage Docks.ToggleStruts)
                                  , ("M-f", sendMessage (Toggle "Full"))
                                  , ("M-p", spawn appLauncher)
                                  , ("M-i", spawn passLauncher)
@@ -124,16 +124,21 @@ myConfig =
                                    ("M-s M-t", namedScratchpadAction scratchpads "shell")
                                  , ("M-s M-s", namedScratchpadAction scratchpads "notes")
                                  , -- backlight control
-
                                    ("<XF86MonBrightnessDown>", spawn "xbacklight -dec 5")
                                  , ("<XF86MonBrightnessUp>", spawn "xbacklight -inc 5")
                                  , ("<F5>", spawn "xbacklight -dec 5")
                                  , ("<F6>", spawn "xbacklight -inc 5")
+                                 , -- transparency
+                                   ("S-<XF86MonBrightnessDown>", spawn "picom-trans -c -5")
+                                 , ("S-<XF86MonBrightnessUp>", spawn "picom-trans -c +5")
+                                 , ("M-S-d", spawn "picom-trans -c +5")
+                                 , ("M-S-b", spawn "picom-trans -c -5")
                                  , -- volume control
-
                                    ("<XF86AudioMute>", changeVolume ToggleVolume)
                                  , ("<XF86AudioLowerVolume>", changeVolume $ LowerVolume 5)
                                  , ("<XF86AudioRaiseVolume>", changeVolume $ RaiseVolume 5)
+                                 , ("M-d", changeVolume $ RaiseVolume 5)
+                                 , ("M-b", changeVolume $ LowerVolume 5)
                                  , ("M-a", sendMessage Balance)
                                  , ("M-S-a", sendMessage Equalize)
                                  , ("M-o", sendMessage Rotate)

hosts/dregil/default.nix

@@ -1,11 +1,26 @@
-{ lib, config, pkgs, inputs, ... }: {
+{
+  lib,
+  config,
+  pkgs,
+  inputs,
+  ...
+}:
+{
   imports = [
-    ({ ... }: { nixpkgs = { config.allowUnfree = true; }; })
+    (
+      { ... }:
+      {
+        nixpkgs = {
+          config.allowUnfree = true;
+        };
+      }
+    )
     ../../modules/security.nix
     ../../modules/common-system.nix
     ./configuration.nix
     inputs.home-manager.nixosModules.home-manager
     ../../home/anne/default.nix
     ../../home/alex/default.nix
+    ../../modules/podman
   ];
 }

modules/podman/default.nix

@@ -0,0 +1,24 @@
+{ pkgs, ... }:
+{
+  # Enable common container config files in /etc/containers
+  virtualisation.containers.enable = true;
+  virtualisation = {
+    podman = {
+      enable = true;
+
+      # Create a `docker` alias for podman, to use it as a drop-in replacement
+      dockerCompat = true;
+
+      # Required for containers under podman-compose to be able to talk to each other.
+      defaultNetwork.settings.dns_enabled = true;
+    };
+  };
+
+  # Useful other development tools
+  environment.systemPackages = with pkgs; [
+    dive # look into docker image layers
+    podman-tui # status of containers in the terminal
+    # docker-compose # start group of containers for dev
+    podman-compose # start group of containers for dev
+  ];
+}