added highlight-symbol mode and some shortcuts

This commit is contained in:
syl20bnr 2012-12-20 16:51:11 -05:00
parent c891a811bc
commit 0148062398
5 changed files with 27 additions and 0 deletions

View File

@ -4,6 +4,24 @@
(compile (concat "python " (buffer-name))))
(setq compilation-scroll-output t)
;; from https://gist.github.com/3402786
(defun toggle-maximize-buffer () "Maximize buffer"
(interactive)
(if (= 1 (length (window-list)))
(jump-to-register '_)
(progn
(set-register '_ (list (current-window-configuration)))
(delete-other-windows))))
;; from http://stackoverflow.com/questions/2905575/emacs-pass-arguments-to-inferior-python-shell-during-buffer-evaluation
(defun python-send-buffer-with-args (args)
(interactive "sArguments: ")
(let ((source-buffer (current-buffer)))
(with-temp-buffer
(insert "import sys; sys.argv = '" args "'.split()\n")
(insert-buffer-substring source-buffer)
(python-shell-send-buffer))))
(defun z:set-transparency (value)
"Sets the transparency of the frame window. 0=transparent/100=opaque"
(interactive "nTransparency Value 0 - 100 opaque:")

View File

@ -1,2 +1,4 @@
;; Key Bindings ================================================================
(global-set-key (kbd "C-x x") 'kill-this-buffer)
(provide 'my-keybindings)

View File

@ -0,0 +1,6 @@
(require 'highlight-symbol)
(global-set-key [(control f3)] 'highlight-symbol-at-point)
(global-set-key [f3] 'highlight-symbol-next)
(global-set-key [(shift f3)] 'highlight-symbol-prev)
(global-set-key [(meta f3)] 'highlight-symbol-remove-all)
(global-set-key [(control meta f3)] 'highlight-symbol-query-replace)

View File

@ -12,6 +12,7 @@
erlang
evil
fill-column-indicator
highlight-symbol
key-chord
p4
powerline