xin/hosts/weather/default.nix

{ config
, pkgs
, lib
, ...
}:
let
  pubKeys = [
    "ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIO7v+/xS8832iMqJHCWsxUZ8zYoMWoZhjj++e26g1fLT europa"
    "ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBBB/V8N5fqlSGgRCtLJMLDJ8Hd3JcJcY8skI0l+byLNRgQLZfTQRxlZ1yymRs36rXj+ASTnyw5ZDv+q2aXP7Lj0= hosts@secretive.plq.local"
  ];
  userBase = {
    openssh.authorizedKeys.keys = pubKeys ++ config.myconf.managementPubKeys;
  };
  firefox = import ../../configs/firefox.nix { inherit pkgs; };
in
{
  _module.args.isUnstable = false;
  imports = [ ./hardware-configuration.nix ];

  defaultUsers.enable = false;

  programs = { } // firefox.programs;

  boot = {
    initrd.availableKernelModules = [ "usbhid" "usb_storage" "vc4" "rtc-ds3232" "rtc-ds1307" ];
    kernelPackages = pkgs.linuxPackages_latest;
    kernelModules = [ "raspberrypi_ts" "rtc-ds3232" "rtc-ds1307" ];
    loader = {
      grub.enable = false;
      generic-extlinux-compatible.enable = true;
    };
  };

  networking = {
    hostName = "weather";
    networkmanager = { enable = true; };
    wireless.userControlled.enable = true;
    hosts."100.120.151.126" = [ "graph.tapenet.org" ];
  };

  users.users.weather = {
    shell = pkgs.zsh;
    isNormalUser = true;
    description = "Weather";
    extraGroups = [ "wheel" ];
  };

  preDNS.enable = false;
  systemd.services.NetworkManager-wait-online.serviceConfig.ExecStart =
    lib.mkForce [ "" "${pkgs.networkmanager}/bin/nm-online -q" ];
  services = {
    libinput.enable = true;
    displayManager.autoLogin = {
      enable = true;
      user = "weather";
    };
    xserver = {
      enable = true;

      windowManager.xmonad = {
        enable = true;
        extraPackages = haskellPackages: [ haskellPackages.xmonad-contrib ];
        config = ''
          {-# LANGUAGE QuasiQuotes #-}

          import qualified Data.Map as M
          import Data.Monoid
          import XMonad
          import XMonad.Actions.CycleWS
          import XMonad.Hooks.EwmhDesktops
          import XMonad.Hooks.ManageDocks
          import XMonad.Hooks.UrgencyHook
          import XMonad.Layout.Decoration
          import XMonad.Layout.LayoutModifier
          import XMonad.Layout.Simplest (Simplest(..))
          import XMonad.Layout.Spacing
          import XMonad.Layout.SubLayouts
          import XMonad.Layout.Tabbed
          import XMonad.Layout.WindowNavigation
          import qualified XMonad.StackSet as W
          import XMonad.Util.EZConfig
          import XMonad.Util.NamedWindows
          import XMonad.Util.Run
          import XMonad.Util.SpawnOnce

          data LibNotifyUrgencyHook =
            LibNotifyUrgencyHook
            deriving (Read, Show)

          instance UrgencyHook LibNotifyUrgencyHook where
            urgencyHook LibNotifyUrgencyHook w = do
              name <- getName w
              Just idx <- fmap (W.findTag w) $ gets windowset
              safeSpawn "notify-send" [show name, "workspace " ++ idx]

          main :: IO ()
          main = do
            xmonad $
              ewmh $
              withUrgencyHook LibNotifyUrgencyHook $
              def
                { normalBorderColor = "#666666"
                , focusedBorderColor = "darkgrey"
                , focusFollowsMouse = False
                , terminal = "xterm"
                , workspaces = myWorkspaces
                , startupHook = myStartupHook
                , layoutHook = myLayoutHook
                , keys = \c -> myKeys c `M.union` XMonad.keys def c
                , manageHook = manageDocks <+> myManageHook <+> manageHook def
                } `removeKeysP`
              ["M-p"] -- don't clober emacs.

          myKeys :: XConfig t -> M.Map (KeyMask, KeySym) (X ())
          myKeys (XConfig {XMonad.modMask = modm}) =
            M.fromList
              [ ((modm .|. shiftMask, xK_Right), shiftToNext)
              , ((modm .|. shiftMask, xK_Left), shiftToPrev)
              , ((modm, xK_r), spawn "rofi -show run")
              , ((modm .|. controlMask, xK_h), sendMessage $ pullGroup L)
              , ((modm .|. controlMask, xK_l), sendMessage $ pullGroup R)
              , ((modm .|. controlMask, xK_k), sendMessage $ pullGroup U)
              , ((modm .|. controlMask, xK_j), sendMessage $ pullGroup D)
              , ((modm .|. controlMask, xK_m), withFocused (sendMessage . MergeAll))
              , ((modm .|. controlMask, xK_u), withFocused (sendMessage . UnMerge))
              , ((modm .|. controlMask, xK_period), onGroup W.focusUp')
              , ((modm .|. controlMask, xK_comma), onGroup W.focusDown')
              ]

          myWorkspaces :: [String]
          myWorkspaces =
            clickable $ ["main", "2", "3", "4", "5", "6", "7", "8", "console"]
            where
              clickable l =
                [ "%{A1:xdotool key alt+" ++ show (n) ++ "&:}" ++ ws ++ "%{A}"
                | (i, ws) <- zip [1 :: Int .. 9 :: Int] l
                , let n = i
                ]

          myTabTheme :: Theme
          myTabTheme =
            def
              { activeTextColor = "#000"
              , activeColor = "#ffffea"
              , inactiveColor = "#dedeff"
              , urgentBorderColor = "red"
              }

          myLayoutHook ::
               XMonad.Layout.LayoutModifier.ModifiedLayout WindowNavigation (XMonad.Layout.LayoutModifier.ModifiedLayout (XMonad.Layout.Decoration.Decoration XMonad.Layout.Tabbed.TabbedDecoration XMonad.Layout.Decoration.DefaultShrinker) (XMonad.Layout.LayoutModifier.ModifiedLayout (Sublayout Simplest) (XMonad.Layout.LayoutModifier.ModifiedLayout Spacing (Choose (XMonad.Layout.LayoutModifier.ModifiedLayout (XMonad.Layout.Decoration.Decoration XMonad.Layout.Tabbed.TabbedDecoration XMonad.Layout.Decoration.DefaultShrinker) (XMonad.Layout.LayoutModifier.ModifiedLayout (Sublayout Simplest) Tall)) (Choose (Mirror (XMonad.Layout.LayoutModifier.ModifiedLayout (XMonad.Layout.Decoration.Decoration XMonad.Layout.Tabbed.TabbedDecoration XMonad.Layout.Decoration.DefaultShrinker) (XMonad.Layout.LayoutModifier.ModifiedLayout (Sublayout Simplest) Tall))) Full))))) Window
          myLayoutHook =
            windowNavigation $
            subTabbed $
            spacingRaw True (Border 30 5 5 5) True (Border 10 10 10 10) True $
            (tiled ||| Mirror tiled ||| Full)
            where
              tiled =
                addTabs shrinkText myTabTheme . subLayout [] Simplest $
                Tall nmaster delta ratio
              nmaster = 1
              ratio = 0.5
              delta = 0.03

          myManageHook :: Query (Data.Monoid.Endo WindowSet)
          myManageHook =
            composeAll
              [ className =? "mpv" --> doFloat
              , className =? "VLC" --> doFloat
              , className =? "Pinentry-gtk-2" --> doFloat
              , className =? "Pinentry-gnome3" --> doFloat
              , className =? "XConsole" --> doF (W.shift (myWorkspaces !! 8))
              ]

          myStartupHook :: X ()
          myStartupHook = do
            spawn "pkill polybar; polybar"
            spawnOnce "firefox --kiosk https://home.bold.daemon/lovelace/0"
        '';
      };
    };
  };

  users.users.root = userBase;

  environment.systemPackages = with pkgs; [
    dtc
    rofi
    polybar
  ];

  system.stateVersion = "21.11";
}