hmModules/emacs/init.el

@@ -566,16 +566,13 @@
   :mode "\\.hs\\'"
   :config
   (add-to-list 'eglot-server-programs
-	           '(haskell-ts-mode . ("haskell-language-server" "--lsp"))))
-
-(use-package tidal
-  :custom ((tidal-interpreter "tidal")))
+	       '(haskell-ts-mode . ("haskell-language-server-wrapper" "--lsp"))))
 
 (use-package purescript-mode
   :custom ((project-vc-extra-root-markers '("spago.dhall")))
   :hook ((purescript-mode . eglot-ensure)
-	     (purescript-mode . turn-on-purescript-indentation)
-	     (purescript-mode . (lambda () (setq project-vc-extra-root-markers '("spago.dhall"))))))
+	 (purescript-mode . turn-on-purescript-indentation)
+	 (purescript-mode . (lambda () (setq project-vc-extra-root-markers '("spago.dhall"))))))
 
 (use-package terraform-mode
   :after eglot
@@ -599,15 +596,6 @@
 (use-package gptscript-mode
   :mode "\\.gpt\\'")
 
-(use-package gptscript-mode
-  :mode "\\.gpt\\'")
-
-(use-package typst-ts-mode
-  :config
-  (add-to-list 'eglot-server-programs
-	           '(typst-ts-mode . ("tinymist" "lsp")))
-  :mode "\\.typ\\'")
-
 ;; FIXME
 ;; (use-package mmm-mode
 ;;   :config
@@ -625,7 +613,7 @@
 (use-package paredit
   :delight
   :hook ((lisp-mode . enable-paredit-mode)
-	     (emacs-lisp-mode . enable-paredit-mode)))
+	 (emacs-lisp-mode . enable-paredit-mode)))
 
 (use-package aggressive-indent
   :hook ((lisp-mode . aggressive-indent-mode)
@@ -1031,15 +1019,15 @@ This is meant to be an helper to be called from the window manager."
   :custom
   (gptel-model 'google/gemini-2.5-flash-preview)
   (gptel-backend (gptel-make-openai "OpenRouter"
-		           :host "openrouter.ai"
-		           :endpoint "/api/v1/chat/completions"
-		           :key (lambda () (require 'f) (f-read-text (getenv "OPENAI_API_KEY_PATH")))
-		           :stream t
-		           :models '(google/gemini-2.5-flash-preview))
-		         )
+		   :host "openrouter.ai"
+		   :endpoint "/api/v1/chat/completions"
+		   :key (lambda () (require 'f) (f-read-text (getenv "OPENAI_API_KEY_PATH")))
+		   :stream t
+		   :models '(google/gemini-2.5-flash-preview))
+		 )
   (gptel-default-mode 'org-mode)
   (gptel-org-branching-context nil) ;; this is cool but I don't feel comfortable with it
-  (gptel-use-tools 't)
+  (gptel-use-tools nil)
   
   :bind
   ("C-c a a" . gptel-add)
@@ -1054,163 +1042,80 @@ This is meant to be an helper to be called from the window manager."
   ;; (add-hook 'gptel-post-response-functions 'gptel-end-of-response)
   ;; (add-hook 'gptel-post-stream-hook 'gptel-auto-scroll)
 
-  (defun ccr/edit-buffer (buffer-name old-string new-string)
-    "In BUFFER-NAME, replace OLD-STRING with NEW-STRING."
-    (with-current-buffer buffer-name
-      (let ((case-fold-search nil))  ;; Case-sensitive search
-        (save-excursion
-          (goto-char (point-min))
-          (let ((count 0))
-            (while (search-forward old-string nil t)
-              (setq count (1+ count)))
-            (if (= count 0)
-                (format "Error: Could not find text to replace in buffer %s" buffer-name)
-              (if (> count 1)
-                  (format "Error: Found %d matches for the text to replace in buffer %s" count buffer-name)
-                (goto-char (point-min))
-                (search-forward old-string)
-                (replace-match new-string t t)
-                (format "Successfully edited buffer %s" buffer-name))))))))
-
-  (defun ccr/replace-buffer (buffer-name content)
-    "Completely replace contents of BUFFER-NAME with CONTENT."
-    (with-current-buffer buffer-name
-      (erase-buffer)
-      (insert content)
-      (format "Buffer replaced: %s" buffer-name)))
-  
-  (setq gptel-tools `(
-                      ,(gptel-make-tool
-                        :function (lambda (url)
-                                    (with-current-buffer (url-retrieve-synchronously url)
-                                      (goto-char (point-min))
-                                      (forward-paragraph)
-                                      (let ((dom (libxml-parse-html-region (point) (point-max))))
-                                        (run-at-time 0 nil #'kill-buffer (current-buffer))
-                                        (with-temp-buffer
-                                          (shr-insert-document dom)
-                                          (buffer-substring-no-properties (point-min) (point-max))))))
-                        :name "read_url"
-                        :description "Fetch and read the contents of a URL"
-                        :args (list '(:name "url"
-                                            :type string
-                                            :description "The URL to read"))
-                        :category "web")
-                      ,(gptel-make-tool
-                        :function (lambda (filepath)
-                                    (with-temp-buffer
-                                      (insert-file-contents (expand-file-name filepath))
-                                      (buffer-string)))
-                        :name "read_file"
-                        :description "Read and display the contents of a file"
-                        :args (list '(:name "filepath"
-                                            :type string
-                                            :description "Path to the file to read. Supports relative paths and ~."))
-                        :category "filesystem")
-                      ,(gptel-make-tool
-                        :function (lambda (directory)
-                                    (mapconcat #'identity
-                                               (directory-files directory)
-                                               "\n"))
-                        :name "list_directory"
-                        :description "List the contents of a given directory"
-                        :args (list '(:name "directory"
-                                            :type string
-                                            :description "The path to the directory to list"))
-                        :category "filesystem")
-                      ,(gptel-make-tool
-                        :function (lambda () (mapcar 'buffer-name (buffer-list)))
-                        :name "list_buffers"
-                        :description "Return a list containing all the Emacs buffers"
-                        :category "emacs")
-                      ,(gptel-make-tool
-                        :function (lambda (buffer)
-                                    (unless (buffer-live-p (get-buffer buffer))
-                                      (error "Error: buffer %s is not live." buffer))
-                                    (with-current-buffer buffer
-                                      (buffer-substring-no-properties (point-min) (point-max))))
-                        :name "read_buffer"
-                        :description "Return the contents of an Emacs buffer"
-                        :args (list '(:name "buffer"
-                                            :type string
-                                            :description "The name of the buffer whose contents are to be retrieved"))
-                        :category "emacs")
-                      ,(gptel-make-tool
-                        :function (lambda (buffer text)
-                                    (with-current-buffer (get-buffer-create buffer)
-                                      (save-excursion
-                                        (goto-char (point-max))
-                                        (insert text)))
-                                    (format "Appended text to buffer %s" buffer))
-                        :name "append_to_buffer"
-                        :description "Append text to an Emacs buffer. If the buffer does not exist, it will be created."
-                        :confirm t
-                        :args (list '(:name "buffer"
-                                            :type string
-                                            :description "The name of the buffer to append text to.")
-                                    '(:name "text"
-                                            :type string
-                                            :description "The text to append to the buffer."))
-                        :category "emacs")
-                      ,(gptel-make-tool
-                        :name "EditBuffer"
-                        :function #'ccr/edit-buffer
-                        :description "Edits Emacs buffers"
-                        :confirm t
-                        :args '((:name "buffer_name"
-                                       :type string
-                                       :description "Name of the buffer to modify"
-                                       :required t)
-                                (:name "old_string"
-                                       :type string
-                                       :description "Text to replace (must match exactly)"
-                                       :required t)
-                                (:name "new_string"
-                                       :type string
-                                       :description "Text to replace old_string with"
-                                       :required t))
-                        :category "edit")
-                      ,
-                      (gptel-make-tool
-                       :name "ReplaceBuffer"
-                       :function #'ccr/replace-buffer
-                       :description "Completely overwrites buffer contents"
-                       :confirm t
-                       :args '((:name "buffer_name"
-                                      :type string
-                                      :description "Name of the buffer to overwrite"
-                                      :required t)
-                               (:name "content"
-                                      :type string
-                                      :description "Content to write to the buffer"
-                                      :required t))
-                       :category "edit")
-                      ))
-
+  (setq gptel-tools (mapcar (lambda (tool) (apply #'gptel-make-tool tool))
+			    '((
+			       :name "create_file"
+			       :function (lambda (path filename content)
+					   (let ((full-path (expand-file-name filename path)))
+					     (with-temp-buffer
+					       (insert content)
+					       (write-file full-path))
+					     (format-read "Created file %s in %s" filename path)))
+			       :description "Create a new file with the specified content"
+			       :args (list '(:name "path"
+						   :type string
+						   :description "The directory where to create the file")
+					   '(:name "filename"
+						   :type string
+						   :description "The name of the file to create")
+					   '(:name "content"
+						   :type string
+						   :description "The content to write to the file"))
+			       :category "filesystem"
+			       )
+			      ;; (
+			      ;;  :name "run_command"
+			      ;;  :confirm 't
+			      ;;  :function (lambda (command)
+			      ;; 		   (shell-command-to-string command))
+			      ;;  :description "Run arbitrary commands"
+			      ;;  :args (list '(:name "command"
+			      ;; 			   :type string
+			      ;; 			   :description "The content to run e.g. 'ls *' or 'fd <pattern> <path>'"))
+			      ;;  )
+			      (
+			       :name "get_weather"
+			       :function (lambda (location)
+					   (url-retrieve-synchronously "api.weather.com/..."
+								       location unit))
+			       :description "Get the current weather in a given location"
+			       :args (list '(:name "location"
+						   :type string
+						   :description "The city and state, e.g. San Francisco, CA")
+					   '(:name "unit"
+						   :type string
+						   :enum ["celsius" "farenheit"]
+						   :description
+						   "The unit of temperature, either 'celsius' or 'fahrenheit"
+						   :optional t
+						   ))
+			       )
+			      ))
+	)
   
   (defun ccr/suggest-eshell-command ()
     (interactive)
     (save-excursion
       (eshell-bol)
       (let ((start-pos (point))
-	        (end-pos (line-end-position)))
-	    (gptel-request
-	        (buffer-substring-no-properties start-pos end-pos) ;the prompt
-	      :system "You are proficient with emacs shell (eshell), translate the following to something I could directly prompt to the shell. Your responses should only be code, without explanation or formatting or quoting."
-	      :buffer (current-buffer)
-	      :context (cons (set-marker (make-marker) start-pos)
-			             (set-marker (make-marker) end-pos))
-	      :callback
-	      (lambda (response info)
-	        (if (not response)
-		        (message "ChatGPT response failed with: %s" (plist-get info :status))
-	          (kill-region start-pos end-pos)
-	          (insert response)))))))
+	    (end-pos (line-end-position)))
+	(gptel-request
+	    (buffer-substring-no-properties start-pos end-pos) ;the prompt
+	  :system "You are proficient with emacs shell (eshell), translate the following to something I could directly prompt to the shell. Your responses should only be code, without explanation or formatting or quoting."
+	  :buffer (current-buffer)
+	  :context (cons (set-marker (make-marker) start-pos)
+			 (set-marker (make-marker) end-pos))
+	  :callback
+	  (lambda (response info)
+	    (if (not response)
+		(message "ChatGPT response failed with: %s" (plist-get info :status))
+	      (kill-region start-pos end-pos)
+	      (insert response)))))))
 
   (add-to-list 'display-buffer-alist
                '("^\\*ChatGPT\\*"
-		         (display-buffer-full-frame)
-		         (name . "floating")))
+		 (display-buffer-full-frame)
+		 (name . "floating")))
 
   (defun ccr/start-chatgpt () ;; Used from outside Emacs by emacsclient --eval
     (display-buffer (gptel "*ChatGPT*"))
@@ -1226,9 +1131,9 @@ This is meant to be an helper to be called from the window manager."
   (require 'password-store-otp) ;; FIXME use `use-pacakge' idiomatic way
   
   :bind (("C-c p p" . password-store-copy)
-	     ("C-c p o" . password-store-otp-token-copy)
-	     ("C-c p e" . password-store-edit)
-	     ("C-c p i" . password-store-insert)))
+	 ("C-c p o" . password-store-otp-token-copy)
+	 ("C-c p e" . password-store-edit)
+	 ("C-c p i" . password-store-insert)))
 
 (use-package with-editor
   :init (shell-command-with-editor-mode +1))

hmModules/gpg/default.nix

@@ -2,7 +2,7 @@
 {
   services.gpg-agent = {
     enable = true;
-    pinentry.package = pkgs.pinentry-rofi.override {
+    pinentryPackage = pkgs.pinentry-rofi.override {
       rofi = pkgs.rofi-wayland;
     };
     extraConfig = ''

hmModules/shell/catppuccin_mocha.omp.json

@@ -1,61 +0,0 @@
-{
-  "$schema": "https://raw.githubusercontent.com/JanDeDobbeleer/oh-my-posh/main/themes/schema.json",
-  "palette": {
-    "os": "#ACB0BE",
-    "closer": "p:os",
-    "pink": "#F5C2E7",
-    "lavender": "#B4BEFE",
-    "blue": "#89B4FA"
-  },
-  "blocks": [
-    {
-      "alignment": "left",
-      "segments": [
-        {
-          "foreground": "p:blue",
-          "style": "plain",
-          "template": "{{ .UserName }}@{{ .HostName }} ",
-          "type": "session"
-        },
-        {
-          "foreground": "p:pink",
-          "properties": {
-            "folder_icon": "..\ue5fe..",
-            "home_icon": "~",
-            "style": "agnoster_short"
-          },
-          "style": "plain",
-          "template": "{{ .Path }} ",
-          "type": "path"
-        },
-        {
-          "foreground": "p:lavender",
-          "properties": {
-            "branch_icon": "\ue725 ",
-            "cherry_pick_icon": "\ue29b ",
-            "commit_icon": "\uf417 ",
-            "fetch_status": false,
-            "fetch_upstream_icon": false,
-            "merge_icon": "\ue727 ",
-            "no_commits_icon": "\uf0c3 ",
-            "rebase_icon": "\ue728 ",
-            "revert_icon": "\uf0e2 ",
-            "tag_icon": "\uf412 "
-          },
-          "template": "{{ .HEAD }} ",
-          "style": "plain",
-          "type": "git"
-        },
-        {
-          "style": "plain",
-          "foreground": "p:closer",
-          "template": "\uf105",
-          "type": "text"
-        }
-      ],
-      "type": "prompt"
-    }
-  ],
-  "final_space": true,
-  "version": 3
-}

hmModules/shell/default.nix

@@ -84,12 +84,7 @@
   programs.thefuck.enable = true;
   programs.oh-my-posh = {
     enable = true;
-    # same as "captuccin_mocha" but without the OS logo
-    settings = lib.mkForce (
-      builtins.fromJSON (
-        builtins.unsafeDiscardStringContext (builtins.readFile ./catppuccin_mocha.omp.json)
-      )
-    );
+    useTheme = "catppuccin_mocha";
   };
 
   programs.zellij.enableBashIntegration = false;

hmModules/spotify/default.nix

@@ -9,18 +9,18 @@ in
 {
   home.packages = [ spotify-adblocked ];
 
-  # systemd.user.services.spotify-adblocked = {
-  #   Install.WantedBy = [ "graphical-session.target" ];
+  systemd.user.services.spotify-adblocked = {
+    Install.WantedBy = [ "graphical-session.target" ];
 
-  #   Unit = {
-  #     Description = "Spotify";
-  #     PartOf = [ "graphical-session.target" ];
-  #   };
+    Unit = {
+      Description = "Spotify";
+      PartOf = [ "graphical-session.target" ];
+    };
 
-  #   Service = {
-  #     ExecStart = lib.getExe spotify-adblocked;
-  #     Restart = "on-failure";
-  #     RestartSec = 3;
-  #   };
-  # };
+    Service = {
+      ExecStart = lib.getExe spotify-adblocked;
+      Restart = "on-failure";
+      RestartSec = 3;
+    };
+  };
 }

hosts/sisko/default.nix

@@ -36,8 +36,6 @@
       "amule"
       "adguard-home"
       "garmin-grafana"
-      # "dump1090"
-      "arbi"
     ]
     ++ [
       ./disko.nix

modules/amule/default.nix

@@ -1,46 +1,34 @@
-{ config, pkgs, ... }:
-let
-  rev = "966199fe1dccc9c6c7016bdb1d9582f27797bc02";
-  amule-flake = builtins.getFlake "github:NixOS/nixpkgs/${rev}";
-  inherit (amule-flake.legacyPackages.${pkgs.system}) amule-daemon amule-web;
-in
+{ config, lib, ... }:
 {
-  disabledModules = [ "services/networking/amuled.nix" ];
-  documentation.nixos.enable = false;
-
-  imports = [ "${amule-flake}/nixos/modules/services/networking/amuled.nix" ];
-
-  services.amule = {
-    enable = true;
-    package = amule-daemon;
-    amuleWebPackage = amule-web;
-    openPeerPorts = true;
-    openWebServerPort = true;
-    # TODO the service is accessible only from the VPN
-    # however better using agenix
-    ExternalConnectPasswordFile = pkgs.writeText "password" "pippo";
-    WebServerPasswordFile = pkgs.writeText "password" "pippo";
-    settings = {
-      eMule = {
-        IncomingDir = "/mnt/hd/amule";
-        TempDir = "/mnt/hd/amule/Temp";
-      };
-      WebServer = {
-        Enabled = 1;
-      };
-    };
+  users.users.amule = {
+    isSystemUser = true;
+    group = "amule";
+    extraGroups = [ "amule" ];
+    home = config.services.amule.dataDir;
   };
 
+  users.groups.amule = { };
+  services.amule = {
+    dataDir = "/mnt/hd/amule";
+    enable = true;
+    user = "amule";
+  };
+
+  # sometimes the service crashes with a segfeault without any reason...
+  systemd.services.amuled.serviceConfig.Restart = lib.mkForce "always";
+
   environment.persistence."/persist".directories = [
     config.services.amule.dataDir
   ];
 
-  services.nginx.virtualHosts."amule.sisko.wg.aciceri.dev" = {
-    forceSSL = true;
-    useACMEHost = "aciceri.dev";
-    locations."/" = {
-      proxyPass = "http://localhost:${builtins.toString config.services.amule.settings.WebServer.Port}";
-    };
-    serverAliases = [ "amule.sisko.zt.aciceri.dev" ];
+  networking.firewall = {
+    allowedTCPPorts = [ 4662 ];
+    allowedUDPPortRanges = [
+      {
+        from = 4665;
+        to = 4672;
+      }
+    ];
   };
+
 }

modules/arbi/default.nix

@@ -1,22 +0,0 @@
-{ config, pkgs, ... }:
-let
-  rev = "d531730d9640160f0519ef4b3640f8da49dd96f8";
-  arbi-flake = builtins.getFlake "git+ssh://git@github.com/aciceri/arbi.git?rev=${rev}";
-in
-{
-  imports = [ arbi-flake.nixosModules.arbi ];
-
-  services.arbi = {
-    enable = true;
-    log_level = "debug";
-    configFile = pkgs.writeText "arbi-config.kdl" ''
-      endpoint "wss://eth-mainnet.g.alchemy.com/v2/<REDACTED>"
-      pairs_file "pairs.json"
-      concurrency 4
-    '';
-  };
-
-  environment.persistence."/persist".directories = [
-    config.services.arbi.dataDir
-  ];
-}

modules/dump1090/default.nix

@@ -1,31 +0,0 @@
-{
-  pkgs,
-  ...
-}:
-let
-  dump1090-flake = builtins.getFlake "github:NixOS/nixpkgs/541f05042033467730fb8cedb08355dc91b94c74";
-  inherit (dump1090-flake.legacyPackages.${pkgs.system}) dump1090-fa;
-in
-{
-  imports = [ "${dump1090-flake}/nixos/modules/services/misc/dump1090-fa.nix" ];
-
-  hardware.rtl-sdr.enable = true;
-
-  disabledModules = [ "services/misc/dump10190-fa.nix" ];
-  documentation.nixos.enable = false;
-
-  services.dump1090-fa = {
-    enable = true;
-    package = dump1090-fa;
-  };
-
-  services.nginx.virtualHosts."dump1090.sisko.wg.aciceri.dev" = {
-    forceSSL = true;
-    useACMEHost = "aciceri.dev";
-    locations = {
-      "/".alias = "${dump1090-fa}/share/dump1090/";
-      "/data/".alias = "/run/dump1090-fa/";
-    };
-    serverAliases = [ "dump1090.sisko.zt.aciceri.dev" ];
-  };
-}

modules/garmin-grafana/default.nix

@@ -5,8 +5,7 @@
   ...
 }:
 let
-  rev = "f24579d13ee035af96d4a68b765af2aa4b1018b6";
-  garmin-grafana-flake = builtins.getFlake "github:NixOS/nixpkgs/${rev}";
+  garmin-grafana-flake = builtins.getFlake "github:NixOS/nixpkgs/1f03fefb44665cd2377912033de22ffaba2be48d";
   inherit (garmin-grafana-flake.legacyPackages.${pkgs.system}) garmin-grafana;
 in
 {

packages/emacs/packages.nix

@@ -206,7 +206,6 @@ let
           mixed-pitch
           visual-replace
           org-super-agenda
-          tidal
           # org-re-reveal # FIXME very not nice hash mismatch when building
         ]
       )
@@ -223,9 +222,6 @@ let
       eat
       corfu-terminal
       haskell-ts-mode
-    ])
-    ++ (with epkgs; [
-      typst-ts-mode # why this doesn't seem to be in elpaPackages?
     ]);
 in
 mainPackages ++ (builtins.attrValues extraPackages)