From f1ea32927579bc9a1ee21bfd368cfcf99c44d58e Mon Sep 17 00:00:00 2001 From: jao Date: Sun, 2 May 2021 05:08:29 +0100 Subject: dead code --- init.org | 40 ---------------------------------------- 1 file changed, 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)) -- cgit v1.2.3