Quite a few things

- License
- Bits of code
- The flake
- A .gitignore file for Cabal output

.gitignore

@@ -0,0 +1 @@
+dist-newstyle

LICENSE

@@ -0,0 +1,14 @@
+            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+                    Version 2, December 2004
+
+ Copyright (C) 2023 Marty Sluijtman <marty.wanderer@disroot.org>
+
+ Everyone is permitted to copy and distribute verbatim or modified
+ copies of this license document, and changing it is allowed as long
+ as the name is changed.
+
+            DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+   TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+  0. You just DO WHAT THE FUCK YOU WANT TO.
+

app/Main.hs

@@ -1,5 +1,10 @@
-batteryCapacityFile = "/sys/class/power_supply/BAT0/capacity" :: FilePath
+module Main where
-batteryStatusFile = "/sys/class/power_supply/BAT0/status" :: FilePath
+
+batteryCapacityFile :: String
+batteryCapacityFile = "/sys/class/power_supply/BAT0/capacity"
+
+batteryStatusFile :: FilePath
+batteryStatusFile = "/sys/class/power_supply/BAT0/status"
 
 main :: IO ()
 main = do
@@ -12,8 +17,8 @@ formatInfo status capacity = icon ++ " " ++ init capacity ++ "%"
     where icon
             | init status == "Full" = "🙂"
             | init status == "Charging" = "🔋"
+            | init status == "Discharging" = "🙃"
             | init status == "Not charging" = "♻"
             | init status == "Unknown" = "Unknown"
-            | read capacity <= 20 = "🪫"
+            | (read capacity :: Int) <= 20 = "🪫"
-            | read capacity <= 100 = "🙃"
             | otherwise = "Silly"

flake.lock

@@ -0,0 +1,60 @@
+{
+  "nodes": {
+    "flake-utils": {
+      "inputs": {
+        "systems": "systems"
+      },
+      "locked": {
+        "lastModified": 1689068808,
+        "narHash": "sha256-6ixXo3wt24N/melDWjq70UuHQLxGV8jZvooRanIHXw0=",
+        "owner": "numtide",
+        "repo": "flake-utils",
+        "rev": "919d646de7be200f3bf08cb76ae1f09402b6f9b4",
+        "type": "github"
+      },
+      "original": {
+        "owner": "numtide",
+        "repo": "flake-utils",
+        "type": "github"
+      }
+    },
+    "nixpkgs": {
+      "locked": {
+        "lastModified": 1691457739,
+        "narHash": "sha256-DqYeaBzTWypV0pTPsr5OMbsZc6Tqzv3SZkTUbeOEHaI=",
+        "owner": "NixOS",
+        "repo": "nixpkgs",
+        "rev": "ea34c2d97708e2618c48f8d5e1f24604c4e8db46",
+        "type": "github"
+      },
+      "original": {
+        "owner": "NixOS",
+        "repo": "nixpkgs",
+        "type": "github"
+      }
+    },
+    "root": {
+      "inputs": {
+        "flake-utils": "flake-utils",
+        "nixpkgs": "nixpkgs"
+      }
+    },
+    "systems": {
+      "locked": {
+        "lastModified": 1681028828,
+        "narHash": "sha256-Vy1rq5AaRuLzOxct8nz4T6wlgyUR7zLU309k9mBC768=",
+        "owner": "nix-systems",
+        "repo": "default",
+        "rev": "da67096a3b9bf56a91d16901293e51ba5b49a27e",
+        "type": "github"
+      },
+      "original": {
+        "owner": "nix-systems",
+        "repo": "default",
+        "type": "github"
+      }
+    }
+  },
+  "root": "root",
+  "version": 7
+}

flake.nix

@@ -0,0 +1,43 @@
+# SPDX-FileCopyrightText: 2021 Serokell <https://serokell.io/>
+#
+# SPDX-License-Identifier: CC0-1.0
+
+{
+  description = "My haskell application";
+
+  inputs = {
+    nixpkgs.url = "github:NixOS/nixpkgs";
+    flake-utils.url = "github:numtide/flake-utils";
+  };
+
+  outputs = { self, nixpkgs, flake-utils }:
+    flake-utils.lib.eachDefaultSystem (system:
+      let
+        pkgs = nixpkgs.legacyPackages.${system};
+
+        haskellPackages = pkgs.haskellPackages;
+
+        jailbreakUnbreak = pkg:
+          pkgs.haskell.lib.doJailbreak (pkg.overrideAttrs (_: { meta = { }; }));
+
+        packageName = "obtuse";
+      in {
+        packages.${packageName} =
+          haskellPackages.callCabal2nix packageName self rec {
+            # Dependency overrides go here
+          };
+
+        packages.default = self.packages.${system}.${packageName};
+        defaultPackage = self.packages.${system}.default;
+
+        devShells.default = pkgs.mkShell {
+          buildInputs = with pkgs; [
+            haskellPackages.haskell-language-server # you must build it with your ghc to work
+            ghcid
+            cabal-install
+          ];
+          inputsFrom = map (__getAttr "env") (__attrValues self.packages.${system});
+        };
+        devShell = self.devShells.${system}.default;
+      });
+}