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

81
init.org
View file

@ -379,7 +379,7 @@ additional profiles and packages for Guix.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(use-package guix (use-package guix
:ensure t :ensure t
:defer 5) :after geiser)
#+END_SRC #+END_SRC
I find it a bit a confusing module. 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)) (yas-global-mode 1))
#+END_SRC #+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 ** Enable LLM access with Ellama
Configures access to language models using Ellama. I don't know Configures access to language models using Ellama. I don't know
whether to put it under writing, comms or programming as it is equally 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 #+BEGIN_SRC emacs-lisp
(use-package geiser (use-package geiser
:ensure nil :ensure t
:defer t
:commands (geiser-mode) :commands (geiser-mode)
:config :config
(setq geiser-implementation-alist (add-to-list 'geiser-implementations-alist `((dir ,(expand-file-name "~/src/guile")) guile))
,(add-to-list 'geiser-implementation-alist '((regexp "\\.scm\\'") 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 (use-package scheme-mode
:ensure nil :ensure nil
:defer t
:commands (scheme-mode) :commands (scheme-mode)
:hook (scheme-mode . geiser-mode)) :hook (scheme-mode . geiser-mode))
#+END_SRC #+END_SRC
#+RESULTS: #+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 **** Enable Cider for Clojure mode
@ -2528,35 +2541,37 @@ Here is a snapshot of the keybindings dd <2024-07-30 Tue>.
*** Org Jira Integration *** Org Jira Integration
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
;; configure org-jira ;; configure org-jira
(use-package org-jira (use-package org-jira
:ensure (:host github :repo "ptillemans/org-jira" :branch "pti_fix_getUsers") :ensure (:host github :repo "ptillemans/org-jira" :branch "pti_fix_getUsers")
:commands (org-jira-get-issues org-jira-get-projects) :commands (org-jira-get-issues org-jira-get-projects)
:config :config
(setq org-jira-users '(("Peter Tillemans". "557058:bdf83521-663b-4ae6-9b71-487bb98e2add"))) (setq org-jira-users '(("Peter Tillemans". "557058:bdf83521-663b-4ae6-9b71-487bb98e2add")))
(setq jiralib-agile-page-size 1000) (setq jiralib-agile-page-size 1000)
(setq org-jira-custom-jqls (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"))
(make-directory "~/.org-jira" 'parents) (setq org-jira-custom-jqls
(setq jiralib-url (auth-source-pass-get "url" "customer/jira")) '((:jql " assignee = currentUser() and (created > '2024-01-01' or updated > '2024-01-01') order by created DESC"
(setq org-jira-custom-jqls :limit 100 :filename "this-year")
'((:jql " assignee = currentUser() and project = TTRK order by priority DESC " :limit 100 :filename "~/Projects/timetrak/jira") (:jql " assignee = currentUser() and project = UNILRN order by priority DESC " :limit 100 :filename "~/Projects/unifylearn/jira")
(:jql " assignee = currentUser() and createdDate >= '2024-01-01' order by created DESC " :limit 100 :filename "this-years-work"))) (:jql " assignee = currentUser() and project = TTRK order by priority DESC " :limit 100 :filename "~/Projects/timetrak/jira")
(jiralib-login (:jql " assignee = currentUser() and createdDate >= '2024-01-01' order by created DESC " :limit 100 :filename "this-years-work"))
(auth-source-pass-get "user" "customer/jira") )
(auth-source-pass-get 'secret "customer/jira")) (jiralib-login
:bind (("C-c ig" . 'org-jira-get-issues) (auth-source-pass-get "user" "customer/jira")
("C-c ip" . 'org-jira-get-projects) (auth-source-pass-get 'secret "customer/jira"))
("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 #+END_SRC
#+RESULTS: #+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 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 make a snapshot of issues just for that project in the folder of the