92 lines
2.7 KiB
EmacsLisp
92 lines
2.7 KiB
EmacsLisp
(defun copy-whole-line ()
|
|
(interactive)
|
|
(save-excursion
|
|
(kill-new
|
|
(buffer-substring
|
|
(point-at-bol)
|
|
(point-at-eol)))))
|
|
(global-set-key (kbd "C-c w l") 'copy-whole-line)
|
|
|
|
(defun kill-all-buffers ()
|
|
(interactive)
|
|
(mapc 'kill-buffer (buffer-list)))
|
|
(global-set-key (kbd "C-c k k") 'kill-all-buffers)
|
|
|
|
(defun split-and-follow-horizontally ()
|
|
(interactive)
|
|
(split-window-below)
|
|
(balance-windows)
|
|
(other-window 1))
|
|
(global-set-key (kbd "C-x 2") 'split-and-follow-horizontally)
|
|
|
|
(defun split-and-follow-vertically ()
|
|
(interactive)
|
|
(split-window-right)
|
|
(balance-windows)
|
|
(other-window 1))
|
|
(global-set-key (kbd "C-x 3") 'split-and-follow-vertically)
|
|
|
|
(defun switch-to-previous-buffer ()
|
|
(interactive)
|
|
(switch-to-buffer (other-buffer (current-buffer) 1)))
|
|
(global-set-key (kbd "C-x b") 'switch-to-previous-buffer)
|
|
(global-set-key (kbd "C-c b") 'switch-to-buffer)
|
|
|
|
;; compilation
|
|
(setq compile-command "make ")
|
|
(global-set-key (kbd "C-x C-m") 'compile)
|
|
|
|
(add-hook 'compilation-mode-hook
|
|
(lambda () (local-set-key (kbd "n") 'compilation-next-error)))
|
|
(add-hook 'compilation-mode-hook
|
|
(lambda () (local-set-key (kbd "p") 'compilation-previous-error)))
|
|
|
|
|
|
(defun mark-line ()
|
|
(interactive)
|
|
(move-beginning-of-line nil)
|
|
(set-mark (point))
|
|
(move-end-of-line nil))
|
|
|
|
(global-unset-key (kbd "C-x C-z")) ; disable suspend frame
|
|
(global-set-key (kbd "C-x C-z") 'mark-line)
|
|
(global-unset-key (kbd "C-z")) ; disable suspend frame
|
|
(global-set-key (kbd "C-x C-x") 'other-window)
|
|
(global-set-key (kbd "C-x C-b") '(lambda () (interactive)
|
|
(bs-show nil)
|
|
(swiper)))
|
|
|
|
(defun toggle-indent ()
|
|
(interactive)
|
|
(setq-default indent-tabs-mode (not indent-tabs-mode)))
|
|
|
|
(global-set-key [f5] (lambda ()
|
|
(interactive)
|
|
(disable-theme 'basic)
|
|
(load-theme 'magik)))
|
|
(global-set-key [f6] (lambda ()
|
|
(interactive)
|
|
(disable-theme 'magik)
|
|
(load-theme 'basic)))
|
|
|
|
(defun current-line-empty-p ()
|
|
(save-excursion
|
|
(beginning-of-line)
|
|
(looking-at-p "[[:space:]]*$")))
|
|
|
|
(defun flash-region (&optional timeout)
|
|
"Temporarily highlight region from START to END. Taken from SLIME source code and modified."
|
|
(interactive)
|
|
(transient-mark-mode)
|
|
(save-excursion
|
|
(mark-defun)
|
|
(when (current-line-empty-p)
|
|
(forward-char))
|
|
(let* ((start (region-beginning))
|
|
(end (region-end))
|
|
(overlay (make-overlay start end)))
|
|
(deactivate-mark)
|
|
(overlay-put overlay 'face 'secondary-selection)
|
|
(run-with-timer (or timeout 0.2) nil 'delete-overlay overlay)))
|
|
(transient-mark-mode))
|