maralorn/nixos-config
1
0
Fork 0
Code Wiki Activity

Improve status script

Browse source
This commit is contained in:
Malte 2023-03-07 12:20:49 +01:00
parent 42dcdde962
commit d7d10f133a
4 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
.hlint.yaml
View file

@ -9,7 +9,7 @@
# Warnings currently triggered by your code
- ignore: {name: Redundant lambda} # I like them
- ignore: {name: Eta reduce} # That’s no Haskell anymore.
- ignore: {name: Redundant Bracket} # Buggy warning
- ignore: {name: Redundant bracket} # Buggy warning
# Specify additional command line arguments
#

2
flake-module.nix
View file

@ -41,7 +41,7 @@
"BlockArguments"
];
hooks = {
hlint.enable = false;
hlint.enable = true;
alejandra.enable = true;
nix-linter.enable = false; # Too many false positives for now
statix.enable = true;

2
packages/flake-module.nix
View file

@ -85,7 +85,7 @@
source = ./status-script;
overrides = old: {
buildDepends = builtins.attrValues {
inherit (stable-pkgs) git khal playerctl notmuch jq;
inherit (stable-pkgs) git khal playerctl notmuch jq tailscale;
inherit (unstable-pkgs) nix nix-diff;
};
};

15
packages/status-script/exe/Main.hs
View file

@ -12,12 +12,13 @@ import Data.Text qualified as Text
import Data.Unique qualified as Unique
import Relude
import Say (say, sayErr)
import Shh (ExecReference (Absolute), Proc, captureTrim, exe, ignoreFailure, load, readInputLines, (|>))
import Shh (ExecReference (Absolute), Proc, captureTrim, exe, ignoreFailure, load, readInputLines, (&>), (|>))
import Shh qualified
import System.Directory (listDirectory)
data Mode = Klausur | Orga | Communication | Code | Leisure | Unrestricted deriving (Eq, Ord, Show, Enum, Bounded)
load Absolute ["git", "khal", "playerctl", "notmuch", "readlink", "nix", "nix-diff", "jq"]
load Absolute ["git", "khal", "playerctl", "notmuch", "readlink", "nix", "nix-diff", "jq", "tailscale"]
modes :: [Mode]
modes = enumFrom Klausur
@ -177,15 +178,19 @@ main = do
then fromMaybe 0 . readMaybe . toString . Text.replace " unread articles" "" . decodeUtf8 <$> tryCmd (exe "software-updates" "-x" "print-unread")
else pure 0
when' (codeUpdates /= 0) $ withColor "179299" [i|Code Updates: #{codeUpdates}|]
, simpleModule (5 * oneSecond) $ do
, simpleModule (5 * oneSecond) do
dirs <- listDirectory "/home/maralorn/git"
dirty <- fmap toText <$> filterM (isDirty . ("/home/maralorn/git/" <>)) dirs
atomically $ writeTVar dirty_var dirty
when' (not $ null dirty) $ withColor "e64443" [i|Dirty: #{Text.intercalate " " dirty}|]
, simpleModule (5 * oneSecond) $ do
, simpleModule (5 * oneSecond) do
dirs <- listDirectory "/home/maralorn/git"
unpushed <- fmap toText <$> filterM (isUnpushed . ("/home/maralorn/git/" <>)) dirs
when' (not $ null unpushed) $ withColor "fe640b" [i|Unpushed: #{Text.intercalate " " unpushed}|]
when' (not $ null unpushed) do withColor "fe640b" [i|Unpushed: #{Text.intercalate " " unpushed}|]
, simpleModule (5 * oneSecond) do
let hosts = ["hera", "fluffy"]
unreachable_hosts <- flip filterM hosts \host -> isLeft <$> (Shh.tryFailure do (tailscale "ping" "-c" "1" (toString host)) &> Shh.devNull)
when' ([] /= unreachable_hosts) do withColor "c00000" [i|No tunnel to #{Text.intercalate ", " unreachable_hosts}|]
, \var -> do
commit_var <- newTVarIO ""
system_var <- newTVarIO ""