chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

tweaks to org and sly

Browse source
This commit is contained in:
Chris Cochrun 2023-12-06 15:25:19 -06:00
parent de803b699a
commit 73ca11bef7
2 changed files with 24 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
README.org
View file

@ -1413,7 +1413,8 @@ Org-Superstar makes the stars at the beginning of the line in =org-mode= a lot p
:config :config
(setq org-modern-timestamp nil (setq org-modern-timestamp nil
org-modern-table nil) org-modern-table nil
org-modern-star '("◉" "○" "◈" "◇" "✳"))
(custom-set-faces (custom-set-faces
'(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36"))) '(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36")))
@ -2003,10 +2004,6 @@ GPTEL is a package that uses chatGPT to get some text generation in org-mode
gptel-api-key "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")) gptel-api-key "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"))
#+end_src #+end_src
#+begin_ai
is emacs the best?
#+end_ai
*** Ellama *** Ellama
Idk, let's try this i guess Idk, let's try this i guess
@ -4192,9 +4189,18 @@ Using sly makes a lot better common-lisp interaction within emacs.
("\\.lisp\\'" . lisp-mode) ("\\.lisp\\'" . lisp-mode)
:config :config
(defun chris/start-nyxt-repl () (defun chris/start-nyxt-repl ()
"Start the repl and sly connection for nyxt" "Start the repl and sly connection for nyxt"
(interactive) (interactive)
(sly-connect "localhost" 4006)) (sly-connect "localhost" 4006))
(setq sly-connection-poll-interval 0.1)
(defun sly-critique-file ()
"Lint this file with lisp-critic"
(interactive)
(sly-eval-async '(ql:quickload :lisp-critic))
(sly-eval-async
`(lisp-critic:critique-file ,(buffer-file-name))))
:general :general
(chris/leader-keys (chris/leader-keys
:states 'normal :states 'normal

14
init.el
View file

@ -1054,7 +1054,8 @@ much faster. The hope is to also make this a faster version of imenu."
:config :config
(setq org-modern-timestamp nil (setq org-modern-timestamp nil
org-modern-table nil) org-modern-table nil
org-modern-star '("◉" "○" "◈" "◇" "✳"))
(custom-set-faces (custom-set-faces
'(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36"))) '(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36")))
@ -3087,9 +3088,18 @@ targets."
("\\.lisp\\'" . lisp-mode) ("\\.lisp\\'" . lisp-mode)
:config :config
(defun chris/start-nyxt-repl () (defun chris/start-nyxt-repl ()
"Start the repl and sly connection for nyxt" "Start the repl and sly connection for nyxt"
(interactive) (interactive)
(sly-connect "localhost" 4006)) (sly-connect "localhost" 4006))
(setq sly-connection-poll-interval 0.1)
(defun sly-critique-file ()
"Lint this file with lisp-critic"
(interactive)
(sly-eval-async '(ql:quickload :lisp-critic))
(sly-eval-async
`(lisp-critic:critique-file ,(buffer-file-name))))
:general :general
(chris/leader-keys (chris/leader-keys
:states 'normal :states 'normal