зеркало из
				https://github.com/iharh/notes.git
				synced 2025-11-04 07:36:08 +02:00 
			
		
		
		
	
		
			
				
	
	
		
			52 строки
		
	
	
		
			1.4 KiB
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
			
		
		
	
	
			52 строки
		
	
	
		
			1.4 KiB
		
	
	
	
		
			EmacsLisp
		
	
	
	
	
	
;; clojure-mode
 | 
						|
(add-to-list 'load-path "~/.emacs.d/site-lisp/clojure-mode") ; contrib added automatically
 | 
						|
(require 'clojure-mode)
 | 
						|
 | 
						|
;(add-to-list 'load-path "~/.emacs.d/site-lisp/swank-clojure/src/emacs")
 | 
						|
;(require 'swank-clojure-autoload)
 | 
						|
;(setq
 | 
						|
;	swank-clojure-jar-path "/usr/local/Cellar/clojure/1.2.0/clojure.jar"
 | 
						|
;	swank-clojure-extra-classpaths
 | 
						|
;	(list
 | 
						|
;		"~/.emacs.d/swank-clojure/src/main/clojure"
 | 
						|
;		"/usr/local/Cellar/clojure-contrib/1.2.0/clojure-contrib.jar")
 | 
						|
;)
 | 
						|
 | 
						|
; disable slime autodoc
 | 
						|
(setq slime-use-autodoc-mode nil)
 | 
						|
 | 
						|
;(defun define-function ()
 | 
						|
;	(interactive)
 | 
						|
;	(let 
 | 
						|
;		((name (symbol-at-point)))
 | 
						|
 | 
						|
;		(backward-paragraph)
 | 
						|
;		(insert "\n(defn " (symbol-name name) "\n  [])\n")
 | 
						|
;		(backward-char 3)
 | 
						|
;	)
 | 
						|
;)
 | 
						|
 | 
						|
;(define-key clojure-mode-map (kbd "C-c f") 'define-function)
 | 
						|
 | 
						|
 | 
						|
 | 
						|
(add-to-list 'load-path "~/.emacs.d/site-lisp/elein")
 | 
						|
; !!! PATCH elein.el !!!
 | 
						|
;(defun elein-swank-process-filter (process output)
 | 
						|
;	"Swank process filter to launch `slime-connect' when process is ready."
 | 
						|
;	(with-current-buffer elein-swank-buffer-name (insert output))
 | 
						|
;	(when (string-match "Connection opened on" output)
 | 
						|
;		(slime-set-inferior-process
 | 
						|
;			(slime-connect "localhost" elein-swank-port)
 | 
						|
;			process
 | 
						|
;		)
 | 
						|
;		(set-process-filter process nil)
 | 
						|
;	)
 | 
						|
;)
 | 
						|
(require 'elein)
 | 
						|
 | 
						|
(setq elein-swank-options "")
 | 
						|
; ":encoding '\"utf-8\"'"
 | 
						|
 | 
						|
; http://bc.tech.coop/blog/081120.html - SLIME doc / javadoc
 |