From 73ca11bef768e5bb5212d5ce6b66d24663952996 Mon Sep 17 00:00:00 2001
From: Chris Cochrun <chris@cochrun.xyz>
Date: Wed, 6 Dec 2023 15:25:19 -0600
Subject: [PATCH] tweaks to org and sly

---
 README.org | 18 ++++++++++++------
 init.el    | 14 ++++++++++++--
 2 files changed, 24 insertions(+), 8 deletions(-)

diff --git a/README.org b/README.org
index bc83a4d2..73842a7b 100644
--- a/README.org
+++ b/README.org
@@ -1413,7 +1413,8 @@ Org-Superstar makes the stars at the beginning of the line in =org-mode= a lot p
   :config
 
   (setq org-modern-timestamp nil
-        org-modern-table nil)
+        org-modern-table nil
+        org-modern-star '("◉" "○" "◈" "◇" "✳"))
   
   (custom-set-faces
    '(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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"))
 #+end_src
 
-#+begin_ai
-is emacs the best?
-#+end_ai
-
 *** Ellama
 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)
   :config
   (defun chris/start-nyxt-repl ()
-      "Start the repl and sly connection for nyxt"
+    "Start the repl and sly connection for nyxt"
     (interactive)
     (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
   (chris/leader-keys
     :states 'normal
diff --git a/init.el b/init.el
index 1cc30859..c6e929f6 100644
--- a/init.el
+++ b/init.el
@@ -1054,7 +1054,8 @@ much faster. The hope is to also make this a faster version of imenu."
   :config
 
   (setq org-modern-timestamp nil
-        org-modern-table nil)
+        org-modern-table nil
+        org-modern-star '("◉" "○" "◈" "◇" "✳"))
   
   (custom-set-faces
    '(org-modern-tag ((t :background "#9aedfe" :foreground "#282a36")))
@@ -3087,9 +3088,18 @@ targets."
   ("\\.lisp\\'" . lisp-mode)
   :config
   (defun chris/start-nyxt-repl ()
-      "Start the repl and sly connection for nyxt"
+    "Start the repl and sly connection for nyxt"
     (interactive)
     (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
   (chris/leader-keys
     :states 'normal