;;; syd-lang-clojure.el -*- lexical-binding: t; -*-

(use-package clojure-mode
  :mode (rx "." (or "clj" "cljs" "edn" "cljc") eol)
  :config
  (add-hook 'clojure-mode-hook #'syd-lisp-mode)
  (dolist (c '(?- ?_ ?? ?! ?+ ?* ?/ ?: ?> ?< ?= ?&))
    (modify-syntax-entry c "w" clojure-mode-syntax-table)))

(use-package cider
  :after clojure-mode)

(defun syd-clojure-open-repl (&optional arg type)
  "Open a Cider REPL for clojure and return the buffer."
  (interactive "P")
  ;; TODO: Better error handling
  ;; type is `clj' for clojure and `cljs' for clojurescript
  ;; ... with no type specified, assume `clj'.
  (let ((type (or type 'clj)))
    (if-let* ((buffer (cider-current-repl type)))
        (pop-to-buffer buffer)
      (let ((process (cond ((eq type 'clj) (cider-jack-in-clj arg))
                           ((eq type 'cljs) (cider-jack-in-cljs arg)))))
        (message "Starting CIDER server for the first time...")
        (while (and (process-live-p process)
                    (not (cider-current-repl type)))
          (sit-for 1))
        (message "Starting CIDER server for the first time...done")
        (pop-to-buffer (cider-current-repl type))))))

(use-package cider-mode
  :straight nil
  ;; :after clojure-mode
  :hook (clojure-mode-local-vars . cider-mode)
  :init
  (with-eval-after-load 'clojure-mode
    (set-repl-handler! '(clojure-mode clojurec-mode)
      #'syd-clojure-open-repl :persist t)
    (set-repl-handler! 'clojurescript-mode
      #'syd-clojure-open-cljs-repl :persist t)
    (set-eval-handler! '(clojure-mode clojurec-mode clojurescript-mode)
      #'cider-eval-region))
  :general
  (:keymaps 'cider-repl-mode-map
   :states '(normal insert)
   "C-k" #'cider-repl-backward-input
   "C-j" #'cider-repl-forward-input
   "C-s" #'cider-repl-previous-matching-input)
  :config
  (add-hook 'cider-mode-hook #'eldoc-mode)
  (add-hook 'cider-repl-mode-hook #'syd-lisp-mode)
  (set-popup-rules!
    `(("^\\*cider-error*" :ignore t)
      ("^\\*cider-repl" :quit nil :ttl nil)
      ("^\\*cider-repl-history" :vslot 2 :ttl nil)
      (,(rx bol "*cider-cheatsheet*")
       :width ,(lambda (win)
                 (with-selected-window win
                   (enlarge-window (- (min 45 (* 0.2 (frame-width)))
                                      (window-width))
                                   t)))
       :side right :vslot -8 :quit t :select t)
      (,(rx bol "*cider-doc*")
       :slot 2 :vslot -8 :quit t :select t)))
  ;; DEPRECATED: Remove once syd-strategies is working.
  (syd-add-hook 'clojure-mode-hook
    (defun syd-clojure-set-handlers-h ()
      (setq-local syd-lookup-documentation-handlers
                  (list #'cider-doc))))
  (general-define-key
   :keymaps 'cider-mode-map
   :states '(normal visual motion emacs insert)
   :major-modes t
   :prefix syd-localleader-key
   :non-normal-prefix syd-alt-localleader-key
   "\"" #'cider-jack-in-cljs
   "'" #'cider-jack-in-clj
   "c" #'cider-connect-clj
   "C" #'cider-connect-cljs
   "r l" #'cider-load-buffer
   "r n" #'cider-repl-set-ns
   "r r" #'cider-ns-refresh
   "r R" #'cider-restart
   "r q" #'cider-quit
   "h c" #'cider-cheatsheet))

;; Give different pairs of delimiters different colours.
(use-package rainbow-delimiters
  :hook (clojure-mode . rainbow-delimiters-mode))

(provide 'syd-lang-clojure)