My Emacs init.el for Clojure/ErgoEmacs/ParEdit joy (hopefully)

.emacs

(require 'package)
(prefer-coding-system 'utf-8)

;; with emacs 26.1 on Ubuntu Budgie 19.04 I couldn't get ergoemacs-mode to work from melpa.
;; So I had to clone from git:
;; cd ~/.emacs.d
;; git clone -b master --single-branch https://github.com/ergoemacs/ergoemacs-mode.git
(add-to-list 'load-path "~/.emacs.d/ergoemacs-mode")

(add-to-list 'package-archives
         '("melpa" . "https://melpa.org/packages/") t)

;; Load and activate emacs packages. Do this first so that the
;; packages are loaded before you start trying to modify them.
;; This also sets the load path.
(package-initialize)

;; NB!! Comment out these 3 lines after initial install! Otherwise Emacs will initialize slowly..
(unless package-archive-contents ;; Refresh the packages descriptions
  (package-refresh-contents))
(setq package-load-list '(all))  ;; List of packages to load

(defvar my-packages 
  '(adoc-mode
    ag
    aggressive-indent
    avy
    beacon
    better-defaults
    cider
    clj-refactor
    clojure-mode
    clojure-mode-extra-font-locking
    company
    dash
    ergoemacs-mode
    flx-ido
    ido-completing-read+
    magit
    monokai-theme
    org
    paredit
    projectile
    rainbow-delimiters
    smex
    flycheck-clj-kondo))

(dolist (p my-packages)
  (when (not (package-installed-p p))
    (package-install p)))

(require 'flycheck-clj-kondo)

(require 'smex)
(require 'ergoemacs-mode)
(require 'clojure-mode-extra-font-locking)

(setq ergoemacs-theme nil) ;; Uses Standard Ergoemacs keyboard theme
(setq ergoemacs-keyboard-layout "us") ;; Assumes QWERTY keyboard layout
(ergoemacs-mode 1)

;;; Highlight the cursor
(beacon-mode 1)

;;; Smex
(autoload 'smex "smex"
  "Smex is a M-x enhancement for Emacs, it provides a convenient interface to
your recently and most frequently used commands.")

(global-set-key (kbd "C-c g") 'magit-status)
(global-set-key (kbd "C-c a") 'avy-goto-char-2)
(global-set-key (kbd "C-c M-g") 'magit-dispatch-popup)
(global-set-key (kbd "TAB") 'company-complete)
(global-set-key (kbd "C-c p s s") 'projectile-ag)
(global-set-key (kbd "C-<prior>")  'switch-to-prev-buffer)
(global-set-key (kbd "C-<next>")  'switch-to-next-buffer)
(global-set-key (kbd "M-x") 'smex)

;; always reload changed files
(global-auto-revert-mode t)

;; org mode
;; The following lines are always needed. Choose your own keys.
;;(global-set-key "\C-cl" 'org-store-link)
;;(global-set-key "\C-ca" 'org-agenda)
;;(global-set-key "\C-cc" 'org-capture)
;;(global-set-key "\C-cb" 'org-iswitchb)

;; AsciiDoc Mode
(autoload 'adoc-mode "adoc-mode" nil t)
(add-to-list 'auto-mode-alist (cons "\\.adoc\\'" 'adoc-mode))

(show-paren-mode 1)
(setq show-paren-delay 0)

;;ido related init
(require 'ido)
(setq ido-enable-flex-matching t)
(setq ido-everywhere t)
(ido-mode 1)

(require 'ido-completing-read+)
(ido-ubiquitous-mode 1)

(require 'flx-ido)
;; disable ido faces to see flx highlights.
(setq ido-enable-flex-matching t)
(setq ido-use-faces nil)

(setq projectile-indexing-method 'alien)

;; clojure mode hooks
(add-hook 'clojure-mode-hook 'paredit-mode)
(add-hook 'clojure-mode-hook 'aggressive-indent-mode)
(add-hook 'clojure-mode-hook 'projectile-mode)
(add-hook 'clojure-mode-hook 'eldoc-mode)
(add-hook 'clojure-mode-hook 'rainbow-delimiters-mode)
(add-hook 'clojure-mode-hook 'subword-mode)
(add-hook 'clojure-mode-hook 'flycheck-mode)

;; cider-mode hooks
(add-hook 'cider-mode-hook 'paredit-mode)
(add-hook 'cider-mode-hook 'aggressive-indent-mode)
(add-hook 'cider-mode-hook 'projectile-mode)
(add-hook 'cider-mode-hook 'eldoc-mode)
(add-hook 'cider-mode-hook 'rainbow-delimiters-mode)
(add-hook 'cider-mode-hook 'subword-mode)

(add-hook 'cider-repl-mode-hook 'rainbow-delimiters-mode)

;; company-mode hooks
(defun start-lisp-basic-minor-modes ()
  (paredit-mode 1)
  (show-paren-mode 1))

(defun start-lisp-minor-modes ()
  (start-lisp-basic-minor-modes)
  (company-mode 1)
  (eldoc-mode 1))

(add-hook 'clojure-mode-hook #'start-lisp-basic-minor-modes)
(add-hook 'cider-repl-mode-hook #'start-lisp-minor-modes)
(add-hook 'cider-mode-hook #'start-lisp-minor-modes)

;; projectile-mode hooks
(add-hook 'after-init-hook 'projectile-global-mode)

;; JSON Snatcher!
(defun js-mode-bindings ()
"Sets a hotkey for using the json-snatcher plugin"
     (when (string-match  "\\.json$" (buffer-name))
        (local-set-key (kbd "C-c C-g") 'jsons-print-path)))
(add-hook 'js-mode-hook 'js-mode-bindings)
(add-hook 'js2-mode-hook 'js-mode-bindings)

;; Theme!
(load-theme 'monokai t)
;;(add-hook 'after-make-frame-functions
;;         (lambda (frame)
;;            (let ((mode (if (display-graphic-p frame) 'dark 'dark)))
;;              (set-frame-parameter frame 'background-mode mode)
;;              (set-terminal-parameter frame 'background-mode mode))
;;            (enable-theme 'solarized-dark)))

;;from http://bzg.fr/emacs-strip-tease.html
;; Prevent the cursor from blinking
(blink-cursor-mode 0)

;; Transparent bg
(set-frame-parameter (selected-frame) 'alpha '(100 . 95))
(add-to-list 'default-frame-alist '(alpha . (100 . 95)))

;; Don't use messages that you don't read
(setq initial-scratch-message "")
(setq inhibit-startup-message t)

;; Don't let Emacs hurt your ears
(setq visible-bell t)

(tool-bar-mode 0)
(menu-bar-mode 0)

;; Default font-size
(set-face-attribute 'default nil :font "Courier 10 Pitch" :height 125)

;; Default clojure mode
(setq-default major-mode 'clojure-mode)

(setq default-directory "~/my/favorite/project")

(setq cider-overlays-use-font-lock t) ;; Syntax highlighting for overlays
(setq cider-test-show-report-on-success t)

(global-linum-mode t)
(setq linum-format "%d")

;;(global-hl-line-mode 1)

(eval-after-load 'clojure-mode
  '(progn
     (define-key clojure-mode-map (kbd "C-c C-h") #'clojure-cheatsheet)))

(eval-after-load 'cider-repl-mode
  '(progn
     (define-key cider-mode-map (kbd "C-c C-h") #'clojure-cheatsheet)))

(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:inherit nil :stipple nil :background "gray10" :foreground "#f8f8f2" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 124 :width normal :family "Hack")))))

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(cider-test-show-report-on-success nil)
 '(compilation-message-face 'default)
 '(custom-safe-themes
   '("8ed752276957903a270c797c4ab52931199806ccd9f0c3bb77f6f4b9e71b9272" "4486ade2acbf630e78658cd6235a5c6801090c2694469a2a2b4b0e12227a64b9" "70403e220d6d7100bae7775b3334eddeb340ba9c37f4b39c189c2c29d458543b" "1dffeecd1565d04cd2059234e872cd80fcbe813488602d5c42b5c9e576924d9f" "bffa9739ce0752a37d9b1eee78fc00ba159748f50dc328af4be661484848e476" "e16a771a13a202ee6e276d06098bc77f008b73bbac4d526f160faa2d76c1dd0e" "8aebf25556399b58091e533e455dd50a6a9cba958cc4ebb0aab175863c25b9a4" default))
 '(magit-diff-use-overlays nil)
 '(package-selected-packages
   '(markdown-preview-mode beacon undo-tree monokai-theme clojure-mode-extra-font-locking magit-todos magithub yaml-mode avy org-ac markdown-mode clojure-mode color-theme-sanityinc-tomorrow paganini-theme 4clojure gruvbox-theme ergoemacs-status highlight-tail smooth-scrolling smooth-scroll org zoutline use-package swiper stylus-mode persistent-soft iedit ido-ubiquitous exec-path-from-shell company better-defaults assemblage-theme aggressive-indent aggressive-fill-paragraph ag ace-window))
 '(pos-tip-background-color "#FFFACE")
 '(pos-tip-foreground-color "#272822")
 '(weechat-color-list
   (unspecified "#272822" "#3C3D37" "#F70057" "#F92672" "#86C30D" "#A6E22E" "#BEB244" "#E6DB74" "#40CAE4" "#66D9EF" "#FB35EA" "#FD5FF0" "#74DBCD" "#A1EFE4" "#F8F8F2" "#F8F8F0")))

(put 'downcase-region 'disabled nil)

Added subtle background transparency when window is inactive.

clj-kondo-flycheck, JSON Snatcher and ASCII-doc hooks.

Add hook for clojure-mode -> flycheck-mode, and remove some themes etc. that isn't used.