From 588b6031e152b031be1dee04c7b38938ea7eb706 Mon Sep 17 00:00:00 2001 From: JSDurand Date: Thu, 21 Jan 2021 23:52:21 +0800 Subject: Regular updates In the course of configuring Emacs there are numerous changes to make. This is one regular step. --- basic.el | 27 ++++++++++++++++++++++++++- 1 file changed, 26 insertions(+), 1 deletion(-) (limited to 'basic.el') diff --git a/basic.el b/basic.el index 7a53334..191c997 100644 --- a/basic.el +++ b/basic.el @@ -211,7 +211,7 @@ I stole from Protesilaos' dotemacs.") ;;; Hide auto-revert-mode ;; The original is auto-revert-mode-text -(durand-hide-minor-mode auto-revert-mode) +(durand-hide-minor-mode auto-revert-mode autorevert) ;;; enable all commands @@ -226,13 +226,38 @@ I stole from Protesilaos' dotemacs.") (set 'comment-multi-line t) (set 'comment-style 'multi-line) +;;; Toggle line numbers + +(define-key global-map (vector 'f9) #'durand-display-line-numbers) + +;;;###autoload +(defun durand-display-line-numbers (&optional arg) + "Display absolute line numbers or not. +With a positive ARG, display in relative style. +With a negative ARG, display in visual style. +With zero ARG, disable line numbers. +See `display-line-numbers' for details." + (interactive "P") + (setq display-line-numbers + (cond + ((null arg) (not display-line-numbers)) + ((> (prefix-numeric-value arg) 0) 'relative) + ((< (prefix-numeric-value arg) 0) 'visual)))) + ;;; Windows (define-key global-map (vector ?\s-o) #'other-window) (define-key global-map (vector ?\s-&) #'delete-other-windows) +(define-key global-map (vector ?\s-é) #'split-window-below) +;; The following binds the key ?\s-" represented as a number, since +;; otherwise it would be interpreted as a string quote. +(define-key global-map (vector 8388642) #'split-window-right) (define-key global-map (vector ?\s-à) #'delete-window) (define-key global-map (vector ?\C-+) #'enlarge-window) (define-key global-map (vector ?\s-f) #'find-file) +(define-key global-map (vector ?\s-F) #'find-file-other-window) +(define-key global-map (vector ?\s-d) #'dired) +(define-key global-map (vector ?\s-D) #'dired-other-window) (define-key global-map (vector ?\s-v) #'durand-focus-completion-or-minibuffer) ;;; Package management -- cgit v1.2.3-18-g5258