diff --git a/lib/extensions/clojure/core.el b/lib/extensions/clojure/core.el index 0ac2c05..9a787d3 100644 --- a/lib/extensions/clojure/core.el +++ b/lib/extensions/clojure/core.el @@ -1,3 +1,12 @@ +(defun setup-keys () + (define-key clojure-mode-map (kbd "M-") 'paredit-forward-slurp-sexp) + (define-key clojure-mode-map (kbd "M-") 'paredit-backward-slurp-sexp) + + (define-key clojure-mode-map (kbd "C-") 'right-word) + (define-key clojure-mode-map (kbd "C-") 'left-word) + (global-set-key (kbd "C-") 'right-word) + (global-set-key (kbd "C-") 'left-word)) + ;; Add requires to blank devcards files (defun cljr--find-source-ns-of-devcard-ns (test-ns test-file) (let* ((ns-chunks (split-string test-ns "[.]" t)) @@ -148,6 +157,7 @@ (define-key clojure-mode-map [remap paredit-backward] 'clojure-backward-logical-sexp) (define-key clojure-mode-map (kbd "C->") 'cljr-thread) (define-key clojure-mode-map (kbd "C-<") 'cljr-unwind) + (define-key clj-refactor-map (cljr--key-pairs-with-modifier "C-s-" "xf") 'my-toggle-expect-focused) (define-key clj-refactor-map @@ -274,6 +284,7 @@ (add-hook 'clojure-mode-hook #'paredit-mode) (add-hook 'cider-repl-mode-hook #'paredit-mode) (add-hook 'clojure-mode-hook #'hl-sexp-mode) + (add-hook 'paredit-mode-hook 'setup-keys) (define-key clojure-mode-map (kbd "C-`") 'live-cycle-clj-coll) (define-key cider-repl-mode-map (kbd "") nil) @@ -296,8 +307,10 @@ (define-key clojure-mode-map (kbd "C-c C-k") 'nrepl-warn-when-not-connected) (define-key clojure-mode-map (kbd "C-c C-n") 'nrepl-warn-when-not-connected) (define-key clojure-mode-map (kbd "C-c C-q") 'nrepl-warn-when-not-connected) + (define-key clojure-mode-map (kbd "M-") 'paredit-forward-slurp-sexp) (define-key clojure-mode-map (kbd "M-") 'paredit-backward-slurp-sexp) + (define-key clojure-mode-map (kbd "C-") 'right-word) (define-key clojure-mode-map (kbd "C-") 'left-word) (global-set-key (kbd "C-") 'right-word) diff --git a/lib/extensions/javascript/init.el b/lib/extensions/javascript/init.el index 8bead9d..7d213ad 100644 --- a/lib/extensions/javascript/init.el +++ b/lib/extensions/javascript/init.el @@ -7,7 +7,7 @@ ;; FIXME: don't hard code the indent size (setq js2-basic-offset 2) - (tern-mode t) + ;(tern-mode t) (jquery-doc-setup)) ;;;###autoload @@ -19,7 +19,7 @@ "Gives FG42 the ability to edit javascript." (autoload 'js2-mode "js2-mode" "Javascript mode") - (autoload 'tern-mode "tern.el" nil t) + ;(autoload 'tern-mode "tern.el" nil t) (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode))