tweaks to org and sly

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