From e21c8dfdc091f961cedcde4a9ff04b9bdd726027 Mon Sep 17 00:00:00 2001
From: mprodges <mprodrigues@csphy.pw>
Date: Mon, 11 Apr 2022 11:23:59 +0100
Subject: [PATCH] Add/Remove and configure several programming environments.

---
 elisp/extras.el      | 23 ++++++++++++++---------
 elisp/slime-setup.el | 12 +++++++++++-
 2 files changed, 25 insertions(+), 10 deletions(-)

diff --git a/elisp/extras.el b/elisp/extras.el
index 9fd3653..4fbbe30 100644
--- a/elisp/extras.el
+++ b/elisp/extras.el
@@ -98,17 +98,23 @@
 
 ;; R
 (use-package ess
-  :config
-  (load "~/.emacs.d/elisp/ess-setup.el"))
+  ;:config
+  ;(load "~/.emacs.d/elisp/ess-setup.el")
+  )
 
 ;; Javascript and React
-(use-package rjsx-mode)
+(use-package rjsx-mode
+  :config
+  (add-to-list 'auto-mode-alist '("\\.js\\'" . rjsx-mode)))
 
 ;; Typescript
 (use-package tide
   :config
   (load "~/.emacs.d/elisp/typescript.el"))
 
+;; Java
+(use-package lsp-java)
+
 ;; Geiser
 (use-package geiser)
 (use-package geiser-guile)
@@ -116,7 +122,10 @@
 ;; Common Lisp
 (use-package slime
   :config
-  (setq inferior-lisp-program "clisp"))
+  (load "~/.emacs.d/elisp/slime-setup.el"))
+
+;; Clojure
+(use-package cider)
 
 ;; Rust
 (use-package rust-mode
@@ -131,16 +140,12 @@
 
 ;; Python
 (use-package elpy
+  :disabled
   :init
   (elpy-enable)
   :config
   (add-to-list 'process-coding-system-alist '("python" . (utf-8 . utf-8))))
 
-;(use-package lsp-pyright
-;  :hook (python-mode . (lambda ()
-;			 (require 'lsp-pyright)
-;                         (lsp))))  ; or lsp-deferred
-
 ;;Ivy related stuff
 (use-package ivy)
 (use-package ivy-bibtex
diff --git a/elisp/slime-setup.el b/elisp/slime-setup.el
index a5ffb74..63ee5fe 100644
--- a/elisp/slime-setup.el
+++ b/elisp/slime-setup.el
@@ -1,2 +1,12 @@
-;;slime setup
+;;;; slime setup
 (setq inferior-lisp-program "clisp")
+
+;;; 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)))
+
+(advice-add 'hyperspec-lookup :around #'hyperspec-lookup--hyperspec-lookup-eww)