FG42
/
FG42
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

clojure plugin improved to a stable state

This commit is contained in:
Sameer Rahmani 2016-09-28 15:23:33 +03:30
parent 190deb134a
commit 6a386b88f8
3 changed files with 19 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fg42-config.el
View File

@ -1,5 +1,5 @@
(add-to-list 'load-path (concat (getenv "FG42_HOME") "/lib")) (add-to-list 'load-path (concat (getenv "FG42_HOME") "/lib"))
;(toggle-debug-on-error) (toggle-debug-on-error)
(require 'fg42) (require 'fg42)
;; Load the default theme ;; Load the default theme

11
lib/extensions/clojure/core.el
View File

@ -126,7 +126,7 @@
(setq cljr-expectations-test-declaration "[expectations :refer :all]") (setq cljr-expectations-test-declaration "[expectations :refer :all]")
;; insert keybinding setup here ;; insert keybinding setup here
(cljr-add-keybindings-with-prefix "C-c RET") (cljr-add-keybindings-with-prefix "C-c v")
(setq cljr-favor-prefix-notation nil) (setq cljr-favor-prefix-notation nil)
(setq cljr-favor-private-functions nil) (setq cljr-favor-private-functions nil)
@ -150,7 +150,6 @@
(define-key clojure-mode-map (kbd "C-<") 'cljr-unwind) (define-key clojure-mode-map (kbd "C-<") 'cljr-unwind)
(define-key clj-refactor-map (define-key clj-refactor-map
(cljr--key-pairs-with-modifier "C-s-" "xf") 'my-toggle-expect-focused) (cljr--key-pairs-with-modifier "C-s-" "xf") 'my-toggle-expect-focused)
(define-key clj-refactor-map (define-key clj-refactor-map
(cljr--key-pairs-with-modifier "C-s-" "xr") 'my-remove-all-focused) (cljr--key-pairs-with-modifier "C-s-" "xr") 'my-remove-all-focused)
@ -170,9 +169,7 @@
(defun clojure-mode-init () (defun clojure-mode-init ()
(interactive) (interactive)
(require 'clojure-mode-extra-font-locking)
(require 'cider) (require 'cider)
(require 'yesql-ghosts)
(require 'hl-sexp) (require 'hl-sexp)
(require 'paredit) (require 'paredit)
@ -224,7 +221,7 @@
(setq cider-pprint-fn 'pprint) (setq cider-pprint-fn 'pprint)
(setq cider-repl-history-file tmp-directory) (setq cider-repl-history-file (concat tmp-directory "/cider-repl-history"))
;; nice pretty printing ;; nice pretty printing
(setq cider-repl-use-pretty-printing t) (setq cider-repl-use-pretty-printing t)
@ -258,7 +255,7 @@
(setq cider-repl-popup-stacktraces t) (setq cider-repl-popup-stacktraces t)
;; Specify history file ;; Specify history file
(setq cider-history-file "~/.tmp/nrepl-history") (setq cider-history-file (concat (getenv "HOME") "/.tmp/nrepl-history"))
;; auto-select the error buffer when it's displayed ;; auto-select the error buffer when it's displayed
(setq cider-auto-select-error-buffer t) (setq cider-auto-select-error-buffer t)
@ -303,6 +300,8 @@
(define-key clojure-mode-map (kbd "M-<left>") 'paredit-backward-slurp-sexp) (define-key clojure-mode-map (kbd "M-<left>") 'paredit-backward-slurp-sexp)
(define-key clojure-mode-map (kbd "C-<right>") 'right-word) (define-key clojure-mode-map (kbd "C-<right>") 'right-word)
(define-key clojure-mode-map (kbd "C-<left>") 'left-word) (define-key clojure-mode-map (kbd "C-<left>") 'left-word)
(global-set-key (kbd "C-<right>") 'right-word)
(global-set-key (kbd "C-<left>") 'left-word)
(message "Clojure mode hook ran and initialized clojure-editor ability.")) (message "Clojure mode hook ran and initialized clojure-editor ability."))

26
lib/extensions/clojure/init.el
View File

@ -6,7 +6,7 @@
(ability clojure-editor ('flycheck) (ability clojure-editor ('flycheck)
(add-hook 'clojure-mode-hook 'clojure-mode-init) (add-hook 'clojure-mode-hook 'clojure-mode-init)
(setq tmp-directory "~/.tmp")) (setq tmp-directory (concat (getenv "HOME") "/.tmp")))
(ability clojure-completion ('code-completion) (ability clojure-completion ('code-completion)
;; company mode for completion ;; company mode for completion
@ -15,20 +15,20 @@
(ability clojure-refactore () (ability clojure-refactore ()
(add-hook 'clojure-mode-hook 'cljr-init)) (add-hook 'clojure-mode-hook 'cljr-init)))
(ability clojure-check ('flycheck) ;; (ability clojure-check ('flycheck)
(require 'flycheck-clojure) ;; (require 'flycheck-clojure)
(eval-after-load 'flycheck '(add-to-list 'flycheck-checkers 'clojure-cider-eastwood)) ;; (eval-after-load 'flycheck '(add-to-list 'flycheck-checkers 'clojure-cider-eastwood))
(eval-after-load 'flycheck '(flycheck-clojure-setup)) ;; (eval-after-load 'flycheck '(flycheck-clojure-setup))
(add-hook 'after-init-hook #'global-flycheck-mode) ;; (add-hook 'after-init-hook #'global-flycheck-mode)
;; Set up linting of clojure code with eastwood ;; ;; Set up linting of clojure code with eastwood
;; Make sure to add [acyclic/squiggly-clojure "0.1.2-SNAPSHOT"] ;; ;; Make sure to add [acyclic/squiggly-clojure "0.1.2-SNAPSHOT"]
;; to your :user :dependencies in .lein/profiles.clj ;; ;; to your :user :dependencies in .lein/profiles.clj
(add-hook 'cider-mode-hook ;; (add-hook 'cider-mode-hook
'(lambda () ;; '(lambda ()
(message "Make sure to add [acyclic/squiggly-clojure \"0.1.2-SNAPSHOT\"] to your :user :dependencies in .lein/profiles.clj"))))) ;; (message "Make sure to add [acyclic/squiggly-clojure \"0.1.2-SNAPSHOT\"] to your :user :dependencies in .lein/profiles.clj")))))
(provide 'extensions/clojure/init) (provide 'extensions/clojure/init)