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

rainbow delimiter added to clojure extension

This commit is contained in:
Sameer Rahmani 2016-11-20 12:47:45 +03:30
parent 797d8279bd
commit c6756d1c55
4 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
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
@ -18,7 +18,7 @@
;'php ;'php
'clojure 'clojure
;'python ;'python
;'ruby 'ruby
) )
;; Load user config file in ~/.fg42 ;; Load user config file in ~/.fg42

3
lib/extensions/clojure.el
View File

@ -15,10 +15,11 @@
(depends-on 'clojure-mode-extra-font-locking) (depends-on 'clojure-mode-extra-font-locking)
;(depends-on 'core-async-mode) ;(depends-on 'core-async-mode)
(depends-on 'yesql-ghosts) (depends-on 'yesql-ghosts)
(depends-on 'rainbow-delimiters)
;; Extension ------------------------------------- ;; Extension -------------------------------------
(extension clojure (extension clojure
:version "2.31" :version "2.32"
:on-initialize extensions/clojure-initialize) :on-initialize extensions/clojure-initialize)
(provide 'extensions/clojure) (provide 'extensions/clojure)

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

@ -183,6 +183,7 @@
(require 'hl-sexp) (require 'hl-sexp)
(require 'paredit) (require 'paredit)
;; indent [quiescent.dom :as d] specially ;; indent [quiescent.dom :as d] specially
(define-clojure-indent (define-clojure-indent
(d/a 1) (d/a 1)
@ -285,6 +286,7 @@
(add-hook 'cider-repl-mode-hook #'paredit-mode) (add-hook 'cider-repl-mode-hook #'paredit-mode)
(add-hook 'clojure-mode-hook #'hl-sexp-mode) (add-hook 'clojure-mode-hook #'hl-sexp-mode)
(add-hook 'paredit-mode-hook 'setup-keys) (add-hook 'paredit-mode-hook 'setup-keys)
(add-hook 'clojure-mode-hook 'rainbow-delimiters-mode)
(define-key clojure-mode-map (kbd "C-`") 'live-cycle-clj-coll) (define-key clojure-mode-map (kbd "C-`") 'live-cycle-clj-coll)
(define-key cider-repl-mode-map (kbd "<home>") nil) (define-key cider-repl-mode-map (kbd "<home>") nil)

11
lib/extensions/python/init.el
View File

@ -74,7 +74,7 @@
;(require 'eldoc-mode) ;(require 'eldoc-mode)
(subword-mode +1) (subword-mode +1)
(anaconda-mode 1) ;(anaconda-mode 1)
(eldoc-mode 1) (eldoc-mode 1)
(setup-keybindings) (setup-keybindings)
@ -92,8 +92,8 @@
#'python-imenu-create-flat-index)) #'python-imenu-create-flat-index))
(add-hook 'post-self-insert-hook (add-hook 'post-self-insert-hook
#'electric-layout-post-self-insert-function nil 'local) #'electric-layout-post-self-insert-function nil 'local)
(add-hook 'after-save-hook 'python-mode-set-encoding nil 'local)) ;(add-hook 'after-save-hook 'python-mode-set-encoding nil 'local))
)
;;;###autoload ;;;###autoload
(defun extensions/python-initialize () (defun extensions/python-initialize ()
(message "Initializing 'python' extension.") (message "Initializing 'python' extension.")
@ -122,7 +122,8 @@
(ability python-code-completion ('code-completion) (ability python-code-completion ('code-completion)
"Gives FG42 the ability to complete python codes." "Gives FG42 the ability to complete python codes."
(when (boundp 'company-backends) ;(when (boundp 'company-backends)
(add-to-list 'company-backends 'company-anaconda)))) ; (add-to-list 'company-backends 'company-anaconda))))
))
(provide 'extensions/python/init) (provide 'extensions/python/init)