pti/emacs-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

improve scheme support, add default yasnippet-snippets

Browse source
This commit is contained in:
Peter Tillemans 2024-12-30 13:40:04 +01:00
parent ef7ef61ada
commit bf6c61336e
1 changed files with 49 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
init.org
View file

@ -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
: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
@ -2537,26 +2550,28 @@ Here is a snapshot of the keybindings dd <2024-07-30 Tue>.
(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")))
'((: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 ig" . 'org-jira-get-issues)
("C-c ip" . 'org-jira-get-projects)
("C-c ij" . 'org-jira-get-issues-from-custom-jql)))
: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