diff options
| -rw-r--r-- | .emacs | 47 |
1 files changed, 44 insertions, 3 deletions
@@ -5,12 +5,11 @@ ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(ansi-color-faces-vector - [default default default italic underline success warning error]) + [default default default italic underline success warning error]) '(ansi-color-names-vector - ["black" "#d55e00" "#009e73" "#f8ec59" "#0072b2" "#cc79a7" "#56b4e9" "white"]) + ["black" "#d55e00" "#009e73" "#f8ec59" "#0072b2" "#cc79a7" "#56b4e9" "white"]) '(custom-enabled-themes (quote (tsdh-dark))) '(global-auto-revert-mode t) - '(indent-tabs-mode nil) '(js-indent-level 2) '(package-selected-packages (quote @@ -52,10 +51,52 @@ (global-unset-key "\C-z") ;;(global-set-key "\C-z" 'advertised-undo) +(global-set-key [mouse-5] + (lambda () (interactive) (next-line 3))) + +(global-set-key [mouse-4] + (lambda () (interactive) (previous-line 3))) + + (setq-default tab-width 2) +;; scroll one line at a time (less "jumpy" than defaults) + + (setq mouse-wheel-scroll-amount '(1 ((shift) . 1))) ;; one line at a time + + (setq mouse-wheel-progressive-speed nil) ;; don't accelerate scrolling + + (setq mouse-wheel-follow-mouse 't) ;; scroll window under mouse + + (setq scroll-step 1) ;; keyboard scroll one line at a time + + +(defun copy-line (arg) + "Copy lines (as many as prefix argument) in the kill ring" + (interactive "p") + (kill-ring-save (line-beginning-position) + (line-beginning-position (+ 1 arg))) + (message "%d line%s copied" arg (if (= 1 arg) "" "s"))) + + +(global-set-key "\C-c\C-k" 'copy-line) + + +(defun revert-all-buffers () + "Refreshes all open buffers from their respective files" + (interactive) + (let* ((list (buffer-list)) + (buffer (car list))) + (while buffer + (when (and (buffer-file-name buffer) + (not (buffer-modified-p buffer))) + (set-buffer buffer) + (revert-buffer t t t)) + (setq list (cdr list)) + (setq buffer (car list)))) + (message "Refreshed open files")) (require 'dashboard) |