commit 8cf0e12b88605e46ac7b7abbf56df4639174440a parent 4d62beb17d2dc85392cd7baae42a2074203561f0 Author: Ryan Jeffrey <pwishie@gmail.com> Date: Sun, 12 May 2019 05:29:34 -0700 tons of bindings Diffstat:
| M | joejoe.el | | | 160 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------ |
1 file changed, 136 insertions(+), 24 deletions(-)
diff --git a/joejoe.el b/joejoe.el @@ -1,39 +1,151 @@ -(defun my/prompt-save () - "Prompt the minibuffer to save a file." - (interactive) - (message "Name of file to save: %s" (buffer-name)) - (save-current-buffer) - (message "%s saved." (buffer-name))) +;;; package --- summary + +;;; Commentary: + +;;; TODO: Confine buffers to certain windows; better relative line number support with goto-line +;;; TODO: remake with lambdas + +;;; Code: +(defun joe/save-file (file-path) + "Prompt the minibuffer to save the current buffer as FILE-PATH." + (interactive "FName of file to save: ") + (save-buffer file-path) + (message "%s saved." file-path)) -(defun my/delete-window () +(defun joe/delete-window () "Delete current window, exit Emacs if only one window." + (interactive) + (if (= 1 (length (window-list))) + (if (buffer-modified-p) + (if (y-or-n-p "Lose changes to this file? ") + (kill-emacs) + nil) + (kill-emacs)) + (delete-window))) + +(defun joe/move-cursor-through-page (direction) + "Move the cursor through the page in DIRECTION more akin to joe." (interactive)) -;;; some wordstar keybindings to make manipulating the editor itself a bit easier -(defvar my-keys-minor-mode-map - (let ((map (make-sparse-keymap))) +(defun joe/scroll-down () + "Scroll down while preserving the cursor point." + (interactive) + (scroll-down 1)) + +(defun joe/scroll-up () + "Scroll down while preserving the cursor point." + (interactive) + (scroll-up 1)) + +(defun joe/goto-abosolute-line (num) + "Goto absolute line number NUM." + (interactive "sGo to line: ") + (forward-line (* -1 (count-lines 1 (point)))) + (forward-line (1- (string-to-number num)))) + +(defun joe/enlarge-window () + "Enlarge the current window.") + +(defun joe/shrink-window () + "Shrink the current window.") + +(defun joe/backward-delete-char () + "Redefine the what the backspace key does to mimic vim." + (interactive) + (cond ((bolp) + (delete-char -1) + (indent-according-to-mode) + (when (looking-at "\\([ \t]+\\)[^ \t]") + (delete-region (point) (match-end 1)))) + ((<= (point) (save-excursion (back-to-indentation) (point))) + (let ((backward-delete-char-untabify-method 'hungry)) + (call-interactively 'backward-delete-char-untabify) + (delete-char -1)) + (indent-according-to-mode)) + (t + (let ((backward-delete-char-untabify-method 'hungry)) + (call-interactively 'backward-delete-char-untabify))))) + +;; smooth scroll. +;; https://www.emacswiki.org/emacs/SmoothScrolling +(setq scroll-margin 1 + scroll-conservatively 0 + scroll-up-aggressively 0.01 + scroll-down-aggressively 0.01) +(setq-default scroll-up-aggressively 0.01 + scroll-down-aggressively 0.01) +;; keep cursor position while scrolling +(setq scroll-preserve-screen-position 'always) ;; TODO fix behavior so that it always scrolls perfectly +(setq scroll-error-top-bottom t) + +;;; some wordstar keybindings to make manipulating the editor itself a bit easier +(defvar my-keys-minor-mode-map + (let ((map (make-sparse-keymap))) + + ;; buffer movement + (define-key map (kbd "C-u") 'scroll-down) + (define-key map (kbd "C-v") 'scroll-up) + (define-key map (kbd "C-e") 'end-of-line) + (define-key map (kbd "C-a") 'beginning-of-line-text) + (define-key map (kbd "C-k u") 'beginning-of-buffer) + (define-key map (kbd "C-k C-u") 'beginning-of-buffer) + (define-key map (kbd "C-k v") 'end-of-buffer) + (define-key map (kbd "C-k C-v") 'end-of-buffer) + (define-key map (kbd "C-z") 'backward-word) + (define-key map (kbd "C-x") 'forward-word) + (define-key map (kbd "C-k C-l") 'joe/goto-abosolute-line) + (define-key map (kbd "C-k l") 'joe/goto-abosolute-line) + + ;; buffer manipulation + (define-key map (kbd "C-y") 'kill-whole-line) + (define-key map (kbd "C-j") 'kill-line) + (define-key map (kbd "C-[ C-o") 'kill-line) ;; TODO + (define-key map (kbd "C-[ o") 'kill-line) ;; TODO + (define-key map (kbd "C-W") 'kill-word) ; Test + (define-key map (kbd "C-O") 'kill-word) ;; TODO, Test + (define-key map (kbd "C-^") 'redo) + (define-key map (kbd "C-k C-x") 'save-buffers-kill-emacs) + (define-key map (kbd "C-f") 'search-forward) + (define-key map (kbd "C-j") 'kill-line) + (define-key map (kbd "C-k r") 'insert-file-contents) + (define-key map (kbd "C-k C-r") 'insert-file-contents) + (define-key map (kbd "<backspace>") 'joe/backward-delete-char) + + ;; editor manipulation + (define-key map (kbd "C-c") 'joe/delete-window) (define-key map (kbd "C-k o") 'split-window-vertically) - (define-key map (kbd "C-k C-c") 'my/delete-window) - (define-key map (kbd "C-k c") 'my/delete-window) + (define-key map (kbd "C-k C-c") 'joe/delete-window) + (define-key map (kbd "C-k c") 'joe/delete-window) (define-key map (kbd "C-k C-o") 'split-window-vertically) - (define-key map (kbd "C-k v") 'split-window-horizontally) - (define-key map (kbd "C-k C-v") 'split-window-horizontally) (define-key map (kbd "C-k b") 'kill-buffer) (define-key map (kbd "C-k n") 'other-window) - (define-key map (kbd "C-k C-b") 'kill-buffer) + (define-key map (kbd "C-k C-b") 'kill-buffer) ;; ??? (define-key map (kbd "C-k C-n") 'other-window) - (define-key map (kbd "M-+") 'text-scale-increase) + (define-key map (kbd "C-k C-d") 'joe/save-file) + (define-key map (kbd "C-k d") 'joe/save-file) + (define-key map (kbd "C-k g") 'enlarge-window) + (define-key map (kbd "C-k C-g") 'enlarge-window) + (define-key map (kbd "C-k t") 'shrink-window) + (define-key map (kbd "C-k C-t") 'shrink-window) + + ;; additions for features that joe does not support + (define-key map (kbd "M-+") 'text-scale-increase) (define-key map (kbd "M--") 'text-scale-decrease) - (define-key map (kbd "C-k C-d") 'my/prompt-save) - (define-key map (kbd "C-k d") 'my/prompt-save) - (define-key map (kbd "C-k u") 'beginning-of-buffer) - (define-key map (kbd "C-k C-u") 'beginning-of-buffer) - (define-key map (kbd "C-k v") 'end-of-buffer) - (define-key map (kbd "C-k C-v") 'end-of-buffer) - (define-key map (kbd "C-k u") 'beginning-of-buffer) - (define-key map (kbd "C-k u") 'beginning-of-buffer) + (define-key map (kbd "C-k ;") 'split-window-horizontally) + (define-key map (kbd "C-k C-;") 'split-window-horizontally) + + ;; region + (define-key map (kbd "<C-right>") 'highlight) + + ;; spellcheck TODO map) "My-keys-minor-mode keymap.") +(define-minor-mode my-keys-minor-mode + "A minor mode so that my key settings override annoying major modes." + :init-value t + :lighter " my-keys") +(my-keys-minor-mode t) + (provide 'joejoe) ;;; joejoe.el ends here