* Added a keybinding C-x O to cyvle backwards through buffers in a frame (opposite of C-x o)
* Added for lispy like buffers converting lambda to the greek character of the same name * Modified some mc settings..its still the best for fs mgmt
This commit is contained in:
parent
9c48ccacbe
commit
1d67ae316f
27
.emacs
27
.emacs
|
@ -11,6 +11,25 @@
|
||||||
;; bind M-g to M-x goto-line
|
;; bind M-g to M-x goto-line
|
||||||
(global-set-key "\M-g" 'goto-line)
|
(global-set-key "\M-g" 'goto-line)
|
||||||
|
|
||||||
|
;; Make C-x O cycle backwards a pane (oposite to C-x o)
|
||||||
|
(global-set-key "\C-xO" #'(lambda ()
|
||||||
|
(interactive)
|
||||||
|
(other-window -1)))
|
||||||
|
|
||||||
|
;; Thanks to lauren michelle for this one
|
||||||
|
(defun pretty-lambdas ()
|
||||||
|
(font-lock-add-keywords
|
||||||
|
nil `(("(\\(lambda\\>\\)"
|
||||||
|
(0 (progn (compose-region (match-beginning 1) (match-end 1)
|
||||||
|
,(make-char 'greek-iso8859-7 107))
|
||||||
|
nil))))))
|
||||||
|
|
||||||
|
;; Make lambda appear as the greek character
|
||||||
|
(add-hook 'scheme-mode-hook 'pretty-lambdas)
|
||||||
|
(add-hook 'lisp-mode-hook 'pretty-lambdas)
|
||||||
|
(add-hook 'lisp-interaction-mode-hook 'pretty-lambdas)
|
||||||
|
(add-hook 'geiser-repl-mode-hook 'pretty-lambdas)
|
||||||
|
|
||||||
;; adds the given function mode to each element of the given-hooks
|
;; adds the given function mode to each element of the given-hooks
|
||||||
(defun activate-mode-with-hooks (mode given-hooks)
|
(defun activate-mode-with-hooks (mode given-hooks)
|
||||||
(while given-hooks
|
(while given-hooks
|
||||||
|
@ -136,6 +155,14 @@
|
||||||
;; Set default lisp program
|
;; Set default lisp program
|
||||||
(setq inferior-lisp-program "/usr/bin/sbcl")
|
(setq inferior-lisp-program "/usr/bin/sbcl")
|
||||||
|
|
||||||
|
;; Since there is no support for the kawa implementation of scheme
|
||||||
|
(defun run-kawa ()
|
||||||
|
"Run Kawa Scheme in an Emacs buffer."
|
||||||
|
(interactive)
|
||||||
|
(require 'cmuscheme)
|
||||||
|
(let ((scheme-program-name "/usr/bin/kawa"))
|
||||||
|
(run-scheme scheme-program-name)))
|
||||||
|
|
||||||
;; Set usable lisp implementations
|
;; Set usable lisp implementations
|
||||||
(setq slime-lisp-implementations
|
(setq slime-lisp-implementations
|
||||||
'((sbcl ("/usr/bin/sbcl" ""))
|
'((sbcl ("/usr/bin/sbcl" ""))
|
||||||
|
|
4
.mc/ini
4
.mc/ini
|
@ -14,7 +14,7 @@ confirm_execute=0
|
||||||
confirm_history_cleanup=1
|
confirm_history_cleanup=1
|
||||||
confirm_exit=1
|
confirm_exit=1
|
||||||
confirm_directory_hotlist_delete=1
|
confirm_directory_hotlist_delete=1
|
||||||
safe_delete=0
|
safe_delete=1
|
||||||
mouse_repeat_rate=100
|
mouse_repeat_rate=100
|
||||||
double_click_speed=250
|
double_click_speed=250
|
||||||
use_8th_bit_as_meta=0
|
use_8th_bit_as_meta=0
|
||||||
|
@ -24,7 +24,7 @@ mouse_close_dialog=0
|
||||||
fast_refresh=0
|
fast_refresh=0
|
||||||
drop_menus=0
|
drop_menus=0
|
||||||
wrap_mode=1
|
wrap_mode=1
|
||||||
old_esc_mode=0
|
old_esc_mode=1
|
||||||
old_esc_mode_timeout=1000000
|
old_esc_mode_timeout=1000000
|
||||||
cd_symlinks=1
|
cd_symlinks=1
|
||||||
show_all_if_ambiguous=0
|
show_all_if_ambiguous=0
|
||||||
|
|
Reference in New Issue