Add many gptel tools

hmModules/emacs/init.el

@@ -566,13 +566,16 @@
   :mode "\\.hs\\'"
   :config
   (add-to-list 'eglot-server-programs
-	       '(haskell-ts-mode . ("haskell-language-server-wrapper" "--lsp"))))
+	           '(haskell-ts-mode . ("haskell-language-server" "--lsp"))))
+
+(use-package tidal
+  :custom ((tidal-interpreter "tidal")))
 
 (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 . turn-on-purescript-indentation)
-	 (purescript-mode . (lambda () (setq project-vc-extra-root-markers '("spago.dhall"))))))
+	     (purescript-mode . (lambda () (setq project-vc-extra-root-markers '("spago.dhall"))))))
 
 (use-package terraform-mode
   :after eglot
@@ -596,6 +599,15 @@
 (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
@@ -613,7 +625,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)
@@ -1019,15 +1031,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"
+		           :host "openrouter.ai"
-		   :endpoint "/api/v1/chat/completions"
+		           :endpoint "/api/v1/chat/completions"
-		   :key (lambda () (require 'f) (f-read-text (getenv "OPENAI_API_KEY_PATH")))
+		           :key (lambda () (require 'f) (f-read-text (getenv "OPENAI_API_KEY_PATH")))
-		   :stream t
+		           :stream t
-		   :models '(google/gemini-2.5-flash-preview))
+		           :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 nil)
+  (gptel-use-tools 't)
   
   :bind
   ("C-c a a" . gptel-add)
@@ -1042,80 +1054,163 @@ 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)
 
-  (setq gptel-tools (mapcar (lambda (tool) (apply #'gptel-make-tool tool))
+  (defun ccr/edit-buffer (buffer-name old-string new-string)
-			    '((
+    "In BUFFER-NAME, replace OLD-STRING with NEW-STRING."
-			       :name "create_file"
+    (with-current-buffer buffer-name
-			       :function (lambda (path filename content)
+      (let ((case-fold-search nil))  ;; Case-sensitive search
-					   (let ((full-path (expand-file-name filename path)))
+        (save-excursion
-					     (with-temp-buffer
+          (goto-char (point-min))
-					       (insert content)
+          (let ((count 0))
-					       (write-file full-path))
+            (while (search-forward old-string nil t)
-					     (format-read "Created file %s in %s" filename path)))
+              (setq count (1+ count)))
-			       :description "Create a new file with the specified content"
+            (if (= count 0)
-			       :args (list '(:name "path"
+                (format "Error: Could not find text to replace in buffer %s" buffer-name)
-						   :type string
+              (if (> count 1)
-						   :description "The directory where to create the file")
+                  (format "Error: Found %d matches for the text to replace in buffer %s" count buffer-name)
-					   '(:name "filename"
+                (goto-char (point-min))
-						   :type string
+                (search-forward old-string)
-						   :description "The name of the file to create")
+                (replace-match new-string t t)
-					   '(:name "content"
+                (format "Successfully edited buffer %s" buffer-name))))))))
-						   :type string
+
-						   :description "The content to write to the file"))
+  (defun ccr/replace-buffer (buffer-name content)
-			       :category "filesystem"
+    "Completely replace contents of BUFFER-NAME with CONTENT."
-			       )
+    (with-current-buffer buffer-name
-			      ;; (
+      (erase-buffer)
-			      ;;  :name "run_command"
+      (insert content)
-			      ;;  :confirm 't
+      (format "Buffer replaced: %s" buffer-name)))
-			      ;;  :function (lambda (command)
+  
-			      ;; 		   (shell-command-to-string command))
+  (setq gptel-tools `(
-			      ;;  :description "Run arbitrary commands"
+                      ,(gptel-make-tool
-			      ;;  :args (list '(:name "command"
+                        :function (lambda (url)
-			      ;; 			   :type string
+                                    (with-current-buffer (url-retrieve-synchronously url)
-			      ;; 			   :description "The content to run e.g. 'ls *' or 'fd <pattern> <path>'"))
+                                      (goto-char (point-min))
-			      ;;  )
+                                      (forward-paragraph)
-			      (
+                                      (let ((dom (libxml-parse-html-region (point) (point-max))))
-			       :name "get_weather"
+                                        (run-at-time 0 nil #'kill-buffer (current-buffer))
-			       :function (lambda (location)
+                                        (with-temp-buffer
-					   (url-retrieve-synchronously "api.weather.com/..."
+                                          (shr-insert-document dom)
-								       location unit))
+                                          (buffer-substring-no-properties (point-min) (point-max))))))
-			       :description "Get the current weather in a given location"
+                        :name "read_url"
-			       :args (list '(:name "location"
+                        :description "Fetch and read the contents of a URL"
-						   :type string
+                        :args (list '(:name "url"
-						   :description "The city and state, e.g. San Francisco, CA")
+                                            :type string
-					   '(:name "unit"
+                                            :description "The URL to read"))
-						   :type string
+                        :category "web")
-						   :enum ["celsius" "farenheit"]
+                      ,(gptel-make-tool
-						   :description
+                        :function (lambda (filepath)
-						   "The unit of temperature, either 'celsius' or 'fahrenheit"
+                                    (with-temp-buffer
-						   :optional t
+                                      (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")
+                      ))
+
   
   (defun ccr/suggest-eshell-command ()
     (interactive)
     (save-excursion
       (eshell-bol)
       (let ((start-pos (point))
-	    (end-pos (line-end-position)))
+	        (end-pos (line-end-position)))
-	(gptel-request
+	    (gptel-request
-	    (buffer-substring-no-properties start-pos end-pos) ;the prompt
+	        (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."
+	      :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)
+	      :buffer (current-buffer)
-	  :context (cons (set-marker (make-marker) start-pos)
+	      :context (cons (set-marker (make-marker) start-pos)
-			 (set-marker (make-marker) end-pos))
+			             (set-marker (make-marker) end-pos))
-	  :callback
+	      :callback
-	  (lambda (response info)
+	      (lambda (response info)
-	    (if (not response)
+	        (if (not response)
-		(message "ChatGPT response failed with: %s" (plist-get info :status))
+		        (message "ChatGPT response failed with: %s" (plist-get info :status))
-	      (kill-region start-pos end-pos)
+	          (kill-region start-pos end-pos)
-	      (insert response)))))))
+	          (insert response)))))))
 
   (add-to-list 'display-buffer-alist
                '("^\\*ChatGPT\\*"
-		 (display-buffer-full-frame)
+		         (display-buffer-full-frame)
-		 (name . "floating")))
+		         (name . "floating")))
 
   (defun ccr/start-chatgpt () ;; Used from outside Emacs by emacsclient --eval
     (display-buffer (gptel "*ChatGPT*"))
@@ -1131,9 +1226,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 o" . password-store-otp-token-copy)
-	 ("C-c p e" . password-store-edit)
+	     ("C-c p e" . password-store-edit)
-	 ("C-c p i" . password-store-insert)))
+	     ("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;
-    pinentryPackage = pkgs.pinentry-rofi.override {
+    pinentry.package = pkgs.pinentry-rofi.override {
       rofi = pkgs.rofi-wayland;
     };
     extraConfig = ''

hmModules/shell/catppuccin_mocha.omp.json

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

hmModules/spotify/default.nix

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

hosts/sisko/default.nix

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

modules/amule/default.nix

@@ -1,34 +1,46 @@
-{ config, lib, ... }:
+{ config, pkgs, ... }:
+let
+  rev = "966199fe1dccc9c6c7016bdb1d9582f27797bc02";
+  amule-flake = builtins.getFlake "github:NixOS/nixpkgs/${rev}";
+  inherit (amule-flake.legacyPackages.${pkgs.system}) amule-daemon amule-web;
+in
 {
-  users.users.amule = {
+  disabledModules = [ "services/networking/amuled.nix" ];
-    isSystemUser = true;
+  documentation.nixos.enable = false;
-    group = "amule";
+
-    extraGroups = [ "amule" ];
+  imports = [ "${amule-flake}/nixos/modules/services/networking/amuled.nix" ];
-    home = config.services.amule.dataDir;
-  };
 
-  users.groups.amule = { };
   services.amule = {
-    dataDir = "/mnt/hd/amule";
     enable = true;
-    user = "amule";
+    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;
+      };
+    };
   };
 
-  # 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
   ];
 
-  networking.firewall = {
+  services.nginx.virtualHosts."amule.sisko.wg.aciceri.dev" = {
-    allowedTCPPorts = [ 4662 ];
+    forceSSL = true;
-    allowedUDPPortRanges = [
+    useACMEHost = "aciceri.dev";
-      {
+    locations."/" = {
-        from = 4665;
+      proxyPass = "http://localhost:${builtins.toString config.services.amule.settings.WebServer.Port}";
-        to = 4672;
+    };
-      }
+    serverAliases = [ "amule.sisko.zt.aciceri.dev" ];
-    ];
   };
-
 }

modules/arbi/default.nix

@@ -0,0 +1,22 @@
+{ 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

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

packages/emacs/packages.nix

@@ -206,6 +206,7 @@ let
           mixed-pitch
           visual-replace
           org-super-agenda
+          tidal
           # org-re-reveal # FIXME very not nice hash mismatch when building
         ]
       )
@@ -222,6 +223,9 @@ 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)