clean up the configuration a bit
This commit is contained in:
@@ -1,12 +1,13 @@
|
||||
;;;; slime setup
|
||||
(setq inferior-lisp-program "clisp")
|
||||
(slime-setup '(slime-fancy slime-quicklisp slime-asdf slime-mrepl))
|
||||
(setq inferior-lisp-program "sbcl")
|
||||
|
||||
;;; use my local copy of the Common Lisp HyperSpec
|
||||
(load "~/clhs-use-local.el" t)
|
||||
;; ;;; use my local copy of the Common Lisp HyperSpec
|
||||
;; (load "~/clhs-use-local.el" t)
|
||||
|
||||
;;; open documentation in eww browser
|
||||
(defun hyperspec-lookup--hyperspec-lookup-eww (orig-fun &rest args)
|
||||
(let ((browse-url-browser-function 'eww-browse-url))
|
||||
(apply orig-fun args)))
|
||||
;; ;;; open documentation in eww browser
|
||||
;; (defun hyperspec-lookup--hyperspec-lookup-eww (orig-fun &rest args)
|
||||
;; (let ((browse-url-browser-function 'eww-browse-url))
|
||||
;; (apply orig-fun args)))
|
||||
|
||||
(advice-add 'hyperspec-lookup :around #'hyperspec-lookup--hyperspec-lookup-eww)
|
||||
;; (advice-add 'hyperspec-lookup :around #'hyperspec-lookup--hyperspec-lookup-eww)
|
||||
|
||||
Reference in New Issue
Block a user