From bf6c61336e228cd2c11f43115c0d53d37a3ede38 Mon Sep 17 00:00:00 2001
From: Peter Tillemans <pti@snamellit.com>
Date: Mon, 30 Dec 2024 13:40:04 +0100
Subject: [PATCH] improve scheme support, add default yasnippet-snippets

---
 init.org | 83 +++++++++++++++++++++++++++++++++-----------------------
 1 file changed, 49 insertions(+), 34 deletions(-)

diff --git a/init.org b/init.org
index b3b87bd..ca4a7b8 100644
--- a/init.org
+++ b/init.org
@@ -379,7 +379,7 @@ additional profiles and packages for Guix.
 #+BEGIN_SRC emacs-lisp
     (use-package guix
       :ensure t
-      :defer 5)
+      :after geiser)
 #+END_SRC
 
 I find it a bit a confusing module.
@@ -983,6 +983,19 @@ Enables and configures Yasnippet, a template system for Emacs:
     (yas-global-mode 1))
 #+END_SRC
 
+
+*** Add Snippet Collection
+
+#+BEGIN_SRC emacs-lisp
+  ;; add yasnippet collection
+  (use-package yasnippet-snippets
+    :ensure t)
+#+END_SRC
+
+#+RESULTS:
+: [nil 26481 25510 926111 nil elpaca-process-queues nil nil 690000 nil]
+
+
 ** Enable LLM access with Ellama
 Configures access to language models using Ellama. I don't know
 whether to put it under writing, comms or programming as it is equally
@@ -1664,21 +1677,21 @@ Configure Geiser and Scheme
 
 #+BEGIN_SRC emacs-lisp
   (use-package geiser
-    :ensure nil
-    :defer t
+    :ensure t 
     :commands (geiser-mode)
     :config
-    (setq geiser-implementation-alist
-          ,(add-to-list 'geiser-implementation-alist '((regexp "\\.scm\\'") guile))))
+    (add-to-list 'geiser-implementations-alist `((dir ,(expand-file-name "~/src/guile")) guile))
+    (add-to-list 'geiser-implementations-alist `((dir ,(expand-file-name "~/src/chicken")) chicken))
+    (add-to-list 'geiser-implementations-alist `((dir ,(expand-file-name "~/src/racket")) racket))
+    (setq geiser-default-implementation 'guile))
   (use-package scheme-mode
-    :ensure nil
-    :defer t
+    :ensure nil 
     :commands (scheme-mode)
     :hook (scheme-mode . geiser-mode))
 #+END_SRC
 
 #+RESULTS:
-| evil-paredit-mode | geiser-mode | enable-paredit-mode | aggressive-indent-mode | geiser-mode--maybe-activate |
+| geiser-mode | enable-paredit-mode | geiser-mode--maybe-activate |
 
 **** Enable Cider for Clojure mode
 
@@ -2528,35 +2541,37 @@ Here is a snapshot of the keybindings dd <2024-07-30 Tue>.
 *** Org Jira Integration
 
 #+BEGIN_SRC emacs-lisp
-    ;; configure org-jira
-    (use-package org-jira
-      :ensure (:host github :repo "ptillemans/org-jira" :branch "pti_fix_getUsers")
-      :commands (org-jira-get-issues org-jira-get-projects)
-      :config
-      (setq org-jira-users '(("Peter Tillemans". "557058:bdf83521-663b-4ae6-9b71-487bb98e2add")))
-      (setq jiralib-agile-page-size 1000)
-      (setq org-jira-custom-jqls
-            '(
-              (:jql " assignee = currentUser() and (created > '2024-01-01' of updated > '2024-01-01) order by created DESC"
-                    :limit 100 :filename "this-year")
-              (:jql "project = TTRK and (resolution = Unresolved OR updated>=-15d) ORDER BY priority DESC"
-                    :limit 100 :filename "~/Projects/timetrak/jira")
-              ))
-      (make-directory "~/.org-jira" 'parents)
-      (setq jiralib-url (auth-source-pass-get "url" "customer/jira"))
-      (setq org-jira-custom-jqls
-            '((:jql " assignee = currentUser() and project = TTRK order by priority DESC " :limit 100 :filename "~/Projects/timetrak/jira")
-              (:jql " assignee = currentUser() and createdDate >= '2024-01-01' order by created DESC " :limit 100 :filename "this-years-work")))
-      (jiralib-login
-       (auth-source-pass-get  "user" "customer/jira")
-       (auth-source-pass-get 'secret "customer/jira"))
-      :bind (("C-c ig" . 'org-jira-get-issues)
-             ("C-c ip" . 'org-jira-get-projects)
-             ("C-c ij" . 'org-jira-get-issues-from-custom-jql)))
+  ;; configure org-jira
+  (use-package org-jira
+    :ensure (:host github :repo "ptillemans/org-jira" :branch "pti_fix_getUsers")
+    :commands (org-jira-get-issues org-jira-get-projects)
+    :config
+    (setq org-jira-users '(("Peter Tillemans". "557058:bdf83521-663b-4ae6-9b71-487bb98e2add")))
+    (setq jiralib-agile-page-size 1000)
+    (setq org-jira-custom-jqls
+          '(
+            
+            
+            ))
+    (make-directory "~/.org-jira" 'parents)
+    (setq jiralib-url (auth-source-pass-get "url" "customer/jira"))
+    (setq org-jira-custom-jqls
+          '((:jql " assignee = currentUser() and (created > '2024-01-01' or updated > '2024-01-01') order by created DESC"
+                  :limit 100 :filename "this-year")
+  	  (:jql " assignee = currentUser() and project = UNILRN order by priority DESC " :limit 100 :filename "~/Projects/unifylearn/jira")
+  	  (:jql " assignee = currentUser() and project = TTRK order by priority DESC " :limit 100 :filename "~/Projects/timetrak/jira")
+            (:jql " assignee = currentUser() and createdDate >= '2024-01-01' order by created DESC " :limit 100 :filename "this-years-work"))
+  	)
+    (jiralib-login
+     (auth-source-pass-get  "user" "customer/jira")
+     (auth-source-pass-get 'secret "customer/jira"))
+    :bind (("C-c j i g" . 'org-jira-get-issues)
+           ("C-c j p g" . 'org-jira-get-projects)
+           ("C-c j i j" . 'org-jira-get-issues-from-custom-jql)))
 #+END_SRC
 
 #+RESULTS:
-: [nil 26292 53013 676464 nil elpaca-process-queues nil nil 459000 nil]
+: [nil 26482 31576 432899 nil elpaca-process-queues nil nil 614000 nil]
 
 It is very useful to create for each active project a custom JQL to
 make a snapshot of issues just for that project in the folder of the