From 6bf766f87b49e2142f2821afd8a10e11ecb6245f Mon Sep 17 00:00:00 2001
From: Terje Larsen <terlar@gmail.com>
Date: Mon, 28 Oct 2024 01:35:18 +0100
Subject: [PATCH] feat: add elysium for code assistance (#415)

* feat: add elysium

* feat: add regex helper to gptel

* feat: decrease default font height

* feat: decrease kill-ring max size
---
 init.org        | 21 +++++++++++++++++++--
 lock/flake.lock | 17 +++++++++++++++++
 lock/flake.nix  |  6 ++++++
 3 files changed, 42 insertions(+), 2 deletions(-)

diff --git a/init.org b/init.org
index 4db168b..8769320 100644
--- a/init.org
+++ b/init.org
@@ -404,7 +404,7 @@ Hide M-x commands which does not work in the current buffer.
 (defvar init-line-spacing 0.25
   "Spacing between lines.")
 
-(defvar init-default-font-height 120
+(defvar init-default-font-height 105
   "Default font height.")
 #+end_src
 
@@ -1323,7 +1323,7 @@ Wrap at words.
 Save clipboard contents into kill-ring before replacing them.
 #+begin_src emacs-lisp :tangle yes
 (setq save-interprogram-paste-before-kill t)
-(setq kill-ring-max 60)
+(setq kill-ring-max 30)
 #+end_src
 
 ** Parenthesis
@@ -4005,6 +4005,11 @@ Visual undo history navigation.
   (cl-pushnew
    '(cli . "You are a large language model and a correct command line helper. Provide commands and only commands as output without any additional text, prompt or note.")
    gptel-directives
+   :test #'equal)
+
+  (cl-pushnew
+   '(regex . "You are a large language model and regular expression expert. Respond with pure regular expressions without involvement of other programming languages.")
+   gptel-directives
    :test #'equal))
 
 (use-package gptel-quick
@@ -4013,6 +4018,18 @@ Visual undo history navigation.
   (:map help-map ("," . gptel-quick)))
 #+end_src
 
+*** elysium
+#+begin_src emacs-lisp :tangle yes
+(use-package elysium
+  :ensure t
+  :bind
+  (:map leader-map
+        ("q" . elysium-query))
+  :config
+  (with-eval-after-load 'popper
+    (cl-pushnew "\\*elysium\\*" popper-reference-buffers :test #'equal)))
+#+end_src
+
 * Testing
 Packages that I am currently testing or evaluating.
 
diff --git a/lock/flake.lock b/lock/flake.lock
index 8a39b67..e5387cc 100644
--- a/lock/flake.lock
+++ b/lock/flake.lock
@@ -592,6 +592,22 @@
         "type": "github"
       }
     },
+    "elysium": {
+      "flake": false,
+      "locked": {
+        "lastModified": 1728777108,
+        "narHash": "sha256-0lh4bDmiyMWdKe7URnb2TzmAmnbkTchawOfYf03v1iA=",
+        "owner": "lanceberge",
+        "repo": "elysium",
+        "rev": "89d025337aae6aff2f32e06865d20d9a7ee4bb22",
+        "type": "github"
+      },
+      "original": {
+        "owner": "lanceberge",
+        "repo": "elysium",
+        "type": "github"
+      }
+    },
     "embark": {
       "flake": false,
       "locked": {
@@ -2087,6 +2103,7 @@
         "edit-indirect": "edit-indirect",
         "elisp-refs": "elisp-refs",
         "elquery": "elquery",
+        "elysium": "elysium",
         "embark": "embark",
         "embark-consult": "embark-consult",
         "envrc": "envrc",
diff --git a/lock/flake.nix b/lock/flake.nix
index 2ce4281..732dbed 100644
--- a/lock/flake.nix
+++ b/lock/flake.nix
@@ -222,6 +222,12 @@
       repo = "elquery";
       type = "github";
     };
+    elysium = {
+      flake = false;
+      owner = "lanceberge";
+      repo = "elysium";
+      type = "github";
+    };
     embark = {
       flake = false;
       owner = "oantolin";