Change-Id: I6c6847fac56f0a9a1a2209792e00a3aec5e672b9 Reviewed-on: https://cl.tvl.fyi/c/depot/+/10809 Autosubmit: aspen <root@gws.fyi> Reviewed-by: sterni <sternenseemann@systemli.org> Tested-by: BuildkiteCI Reviewed-by: lukegb <lukegb@tvl.fyi>
		
			
				
	
	
		
			53 lines
		
	
	
	
		
			1.4 KiB
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
			
		
		
	
	
			53 lines
		
	
	
	
		
			1.4 KiB
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
;;; -*- lexical-binding: t; -*-
 | 
						|
 | 
						|
(defun clojure-thing-at-point-setup ()
 | 
						|
  (interactive)
 | 
						|
  ;; Used by cider-find-dwim to parse the symbol at point
 | 
						|
  (setq-local
 | 
						|
   thing-at-point-file-name-chars
 | 
						|
   (concat thing-at-point-file-name-chars
 | 
						|
           "><!?")))
 | 
						|
 | 
						|
(defun +grfn/clojure-setup ()
 | 
						|
  ;; (flycheck-select-checker 'clj-kondo)
 | 
						|
  (require 'flycheck)
 | 
						|
  (push 'clojure-cider-kibit flycheck-disabled-checkers)
 | 
						|
  (push 'clojure-cider-eastwood flycheck-disabled-checkers)
 | 
						|
  (push 'clojure-cider-typed flycheck-disabled-checkers)
 | 
						|
  )
 | 
						|
 | 
						|
(after! clojure-mode
 | 
						|
  (define-clojure-indent
 | 
						|
    (PUT 2)
 | 
						|
    (POST 2)
 | 
						|
    (GET 2)
 | 
						|
    (PATCH 2)
 | 
						|
    (DELETE 2)
 | 
						|
    (context 2)
 | 
						|
    (checking 3)
 | 
						|
    (match 1)
 | 
						|
    (domonad 0)
 | 
						|
    (describe 1)
 | 
						|
    (before 1)
 | 
						|
    (it 2))
 | 
						|
 | 
						|
  (add-hook 'clojure-mode-hook #'clojure-thing-at-point-setup)
 | 
						|
  (add-hook 'clojure-mode-hook #'+grfn/clojure-setup))
 | 
						|
 | 
						|
(use-package! flycheck-clojure
 | 
						|
  ;; :disabled t
 | 
						|
  :after (flycheck cider)
 | 
						|
  :config
 | 
						|
  (flycheck-clojure-setup))
 | 
						|
 | 
						|
(after! clj-refactor
 | 
						|
  (setq cljr-magic-requires :prompt
 | 
						|
        cljr-clojure-test-declaration "[clojure.test :refer :all]"
 | 
						|
        cljr-cljc-clojure-test-declaration"#?(:clj [clojure.test :refer :all]
 | 
						|
:cljs [cljs.test :refer-macros [deftest is testing]])"
 | 
						|
        )
 | 
						|
  (add-to-list
 | 
						|
   'cljr-magic-require-namespaces
 | 
						|
   '("s" . "clojure.spec.alpha")))
 | 
						|
 | 
						|
(set-popup-rule! "^\\*cider-test-report" :size 0.4)
 |