diff options
author | jao <jao@gnu.org> | 2021-05-02 05:08:29 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-05-02 05:08:29 +0100 |
commit | f1ea32927579bc9a1ee21bfd368cfcf99c44d58e (patch) | |
tree | f3d678ac85ef377826496cb2a68b10f8bcf367da /init.org | |
parent | fe2d0ba5682c82d60dc64a4cc6a2bea7089d7322 (diff) | |
download | elibs-f1ea32927579bc9a1ee21bfd368cfcf99c44d58e.tar.gz elibs-f1ea32927579bc9a1ee21bfd368cfcf99c44d58e.tar.bz2 |
dead code
Diffstat (limited to 'init.org')
-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)) |