diff options
Diffstat (limited to 'emacs/inits/70-global-keybinds.el')
| -rw-r--r-- | emacs/inits/70-global-keybinds.el | 48 |
1 files changed, 23 insertions, 25 deletions
diff --git a/emacs/inits/70-global-keybinds.el b/emacs/inits/70-global-keybinds.el index 6b02fe8..816998f 100644 --- a/emacs/inits/70-global-keybinds.el +++ b/emacs/inits/70-global-keybinds.el @@ -1,34 +1,34 @@ -;; Time-stamp: <2021-08-13 20h11 EDT (academic)> +;; Time-stamp: <2020-10-26 17h12 EDT (hobbies)> (setq time-stamp-active t - time-stamp-line-limit 3 - time-stamp-format "%Y-%02m-%02d %02Hh%02M %Z (%s)") + time-stamp-line-limit 3 + time-stamp-format "%Y-%02m-%02d %02Hh%02M %Z (%s)") (add-hook 'before-save-hook #'time-stamp) (defun insert-timestamp () - (interactive) - (save-excursion - (goto-char (point-min)) - (unless (search-forward "Time-stamp: " - (line-beginning-position (1+ time-stamp-line-limit)) - t) - (goto-char (point-min)) - (newline) - (beginning-of-line 0) - (comment-dwim nil) - (insert (concat "Time-stamp: " "<>")) - (newline)) - (time-stamp))) + (interactive) + (save-excursion + (goto-char (point-min)) + (unless (search-forward "Time-stamp: " + (line-beginning-position (1+ time-stamp-line-limit)) + t) + (goto-char (point-min)) + (newline) + (beginning-of-line 0) + (comment-dwim nil) + (insert (concat "Time-stamp: " "<>")) + (newline)) + (time-stamp))) (global-set-key (kbd "C-x t") 'insert-timestamp) (global-set-key (kbd "C-z") 'nil) (use-package eterm-256color - :ensure t - :config - (add-hook 'term-mode-hook #'eterm-256color-mode) - (global-set-key (kbd "C-c c") 'ansi-term)) + :ensure t + :config + (add-hook 'term-mode-hook #'eterm-256color-mode) + (global-set-key (kbd "C-c c") 'ansi-term)) (global-set-key (kbd "C-x e") 'eval-expression) @@ -42,10 +42,8 @@ (global-set-key (kbd "M-z") 'zap-up-to-char) (defun kill-region-or-backward-kill-word (arg) - (interactive "p") - (if (region-active-p) (kill-region 0 0 t) - (backward-kill-word arg))) + (interactive "p") + (if (region-active-p) (kill-region 0 0 t) + (backward-kill-word arg))) (global-set-key (kbd "C-w") 'kill-region-or-backward-kill-word) - -(global-set-key (kbd "M-SPC") '(lambda () (interactive) (insert ?\\))) ; Never used just-one-space |