diff options
| -rw-r--r-- | init.org | 40 |
1 files changed, 0 insertions, 40 deletions
@@ -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)) |