;;; init-clojure.el --- Clojure Configuration File -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:

;(require 'init-lisp)

(use-package yasnippet
  :diminish yas-minor-mode)

(use-package flycheck-clj-kondo)

(use-package clojure-mode
  :config
  (require 'flycheck-clj-kondo)
  (subword-mode +1)
  (defun clojure-current-defun-name ()
    "Return the name of the defun at point, or nil."
    (save-excursion
      (let ((location (point)))
        ;; If we are now precisely at the beginning of a defun, make sure
        ;; beginning-of-defun finds that one rather than the previous one.
        (or (eobp) (forward-char 1))
        (beginning-of-defun)
        ;; Make sure we are really inside the defun found, not after it.
        (when (and (looking-at "\\s(")
		   (progn (end-of-defun)
			  (< location (point)))
		   (progn (forward-sexp -1)
			  (>= location (point))))
	  (if (looking-at "\\s(")
	      (forward-char 1))
	  ;; Skip the defining construct name, e.g. "defn" or "def".
	  (forward-sexp 1)
	  ;; The second element is usually a symbol being defined.  If it
	  ;; is not, use the first symbol in it.
	  (skip-chars-forward " \t\n'(")
          ;; Skip metadata
          (while (looking-at "\\^")
            (forward-sexp 1)
            (skip-chars-forward " \t\n'("))
	  (buffer-substring-no-properties (point)
					  (progn (forward-sexp 1)
					         (point)))))))
  (defun clojure-mode-hook-fn ()
    (setq-local add-log-current-defun-function #'clojure-current-defun-name))
  :hook
  (clojure-mode . clojure-mode-hook-fn))

(use-package hydra)
(use-package clj-refactor
  :diminish
  :after yasnippet
  :bind ("C-c '" . hydra-cljr-help-menu/body)
  :custom
  (cljr-suppress-no-project-warning t)
  (cljr-add-ns-to-blank-clj-files nil) ; disable clj-refactor adding ns to blank files
  :config
  (cljr-add-keybindings-with-prefix "C-c C-m")
  (defun clj-refactor-hook-fn ()
    (clj-refactor-mode 1)
    (yas-minor-mode 1))
  :hook
  (clojure-mode . clj-refactor-hook-fn))

(use-package cider
  :diminish
  :config
  (defun cider-repl-mode-hook-fn ()
    (display-line-numbers-mode -1)
    (subword-mode +1))
  (setq cider-repl-pop-to-buffer-on-connect 'display-only
        cider-repl-display-help-banner nil
        cider-repl-history-highlight-current-entry t
        cider-repl-history-highlight-inserted-item t
        cider-repl-use-clojure-font-lock t
        cider-repl-use-pretty-printing t
        cider-save-file-on-load t
        cider-test-show-report-on-success t
        ;; cider-invert-insert-eval-p t
        ;; cider-switch-to-repl-on-insert nil
        cider-xref-fn-depth 90
        cider-repl-history-file ".cider-repl-history"
        nrepl-log-messages t
        cider-connection-message-fn nil
        clojure-toplevel-inside-comment-form t)
  (unbind-key "C-c C-l" cider-mode-map)
  :bind
  (:map cider-mode-map ("C-c M-l" . cider-load-file))
  (:map clojure-mode-map
        ("C-x p q" . project-clojure-test-switch)
        ("C->" . cider-find-dwim-other-window))
  :hook
  (cider-repl-mode . cider-repl-mode-hook-fn)
  (cider-mode . eldoc-mode))

(provide 'init-clojure)
;;; init-clojure.el ends here