From 5e2063941e48b16e96572e7c3469ef4a38328b9d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 25 Sep 2025 22:06:06 +0100
Subject: ob-applescript

---
 custom/jao-custom-programming.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'custom/jao-custom-programming.el')

diff --git a/custom/jao-custom-programming.el b/custom/jao-custom-programming.el
index 7fe3e7f..fa6e474 100644
--- a/custom/jao-custom-programming.el
+++ b/custom/jao-custom-programming.el
@@ -246,13 +246,6 @@
     (eldoc-mode 1)
     (setq mode-name "λ"))
 
-  (defun jao-cider-test-ns (ns)
-    (let ((parts (string-split ns "\\.")))
-      (if (string= "test" (cadr parts))
-          ns
-        (mapconcat #'identity
-                   (cons (car parts) (cons "test" (cdr parts))) "."))))
-
   (defun jao-kaocha-file-name ()
     (let* ((filename (match-string 2))
            (path (replace-regexp-in-string "\\." "/" (match-string 1))))
@@ -292,7 +285,6 @@
               cider-repl-use-pretty-printing t
               cider-show-error-buffer 'except-in-repl
               cider-test-show-report-on-success nil
-              cider-test-infer-test-ns #'jao-cider-test-ns
               cider-use-fringe-indicators nil
               cider-use-overlays nil
               clojure-docstring-fill-column 72
@@ -330,7 +322,8 @@
 (use-package geiser-guile)
 
 (jao-load-path "geiser-chez")
-(use-package geiser-chez)
+(use-package geiser-chez
+  :init (setq geiser-chez-binary (jao-d-l "chez" "scheme")))
 
 ;; (jao-load-path "geiser/mit")
 ;; (use-package geiser-mit)
@@ -511,6 +504,13 @@
 (use-package typescript-mode
   :ensure t
   :custom ((typescript-indent-level 2)))
+;;;; Applescript
+
+(jao-when-darwin
+ (use-package ob-applescript
+   :after org
+   :ensure t
+   :demand t))
 
 ;;; -
 (provide 'jao-custom-programming)
-- 
cgit v1.2.3