summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--init.org40
1 files changed, 0 insertions, 40 deletions
diff --git a/init.org b/init.org
index 167fc00..7ff1217 100644
--- a/init.org
+++ b/init.org
@@ -2470,46 +2470,6 @@
:diminish ((cider-macroexpansion-mode . " ยต")))
#+END_SRC
-*** Scheme
- #+BEGIN_SRC emacs-lisp
- ;;; racket
- (defun jao-racket-help (file)
- (apply jao-browse-url-function (url-unhex-string file)))
-
- ;;; safe variables
- (put 'package 'safe-local-variable 'symbolp)
- (put 'Package 'safe-local-variable 'symbolp)
- (put 'syntax 'safe-local-variable 'symbolp)
- (put 'Syntax 'safe-local-variable 'symbolp)
- (put 'Base 'safe-local-variable 'integerp)
- (put 'base 'safe-local-variable 'integerp)
-
- ;;;; guile test suite keywords
- (put 'with-test-prefix 'scheme-indent-function 1)
- (put 'expect-fail 'scheme-indent-function 1)
- (put 'pass-if 'scheme-indent-function 1)
- (put 'pass-if-exception 'scheme-indent-function 2)
- ;;;; testeez
- (put 'test-true 'scheme-indent-function 1)
- (put 'test-false 'scheme-indent-function 1)
- (put 'test-define 'scheme-indent-function 2)
- (put 'test/equal 'scheme-indent-function 1)
- (put 'test/eq 'scheme-indent-function 1)
- (put 'test/eqv 'scheme-indent-function 1)
- (put 'testeez 'scheme-indent-function 1)
- ;;;; scsh test utilities
- (put 'add-test! 'scheme-indent-function 2)
- ;;;; schemeunit
- (put 'test-case 'scheme-indent-function 1)
- (put 'test-suite 'scheme-indent-function 1)
- (put 'test-eq? 'scheme-indent-function 1)
- (put 'test-eqv? 'scheme-indent-function 1)
- (put 'test-equal? 'scheme-indent-function 1)
- ;;;; more
- (put 'lambda* 'scheme-indent-function 1)
- (put 'with-current-directory 'scheme-indent-function 1)
- (put 'with-working-directory 'scheme-indent-function 1)
- #+END_SRC
*** Geiser
#+begin_src emacs-lisp
(defun jao-org--set-geiser-impl () (setq-local geiser-repl--impl 'guile))