diff --git a/.emacs.d/init.el b/.emacs.d/init.el new file mode 100644 index 0000000..0597af9 --- /dev/null +++ b/.emacs.d/init.el @@ -0,0 +1,97 @@ +;; Store customizations in a separate file +(setq custom-file (expand-file-name "custom.el" user-emacs-directory)) +;; Load it if the file exists +(when (file-exists-p custom-file) + (load custom-file)) + +;; Setup MELPA +(require 'package) (setq package-archives '(("melpa" . "https://melpa.org/packages/") ("org" . "https://orgmode.org/elpa/") ("elpa" . "https://elpa.gnu.org/packages/"))) + +;; Setup package.el +(unless (package-installed-p 'use-package) + (package-refresh-contents) + (package-install 'use-package) + (eval-when-compile +(unless (bound-and-true-p package--initialized) + (package-initialize)) +(require 'use-package))) + (setq use-package-always-ensure t) + +; (package-refresh-contents) + +;; For up to date org mode. +(use-package org) +;; Enable Org mode +(require 'org) + +;; Enable Babel for specific languages including Nix +(org-babel-do-load-languages + 'org-babel-load-languages + '((emacs-lisp . t) ;; Elisp support + (scheme . t) ;; Scheme Lisp support + (lisp . t) ;; Common Lisp support + (lua . t) ;; Lua support + (latex . t) ;; Latex support + (shell . t))) ;; Posix Shell support + +;; Set the default export directory +(setq org-export-directory "~/org_exports/") +;; Show inline images in org documents +(setq org-startup-with-inline-images t) + +;; Set default directory based on operating system +(cond + ;; If using Windows + ((eq system-type 'windows-nt) + (setq default-directory (format "C:\\Users\\%s\\Documents" (getenv "USERNAME")))) + ;; If using GNU/Linux + ((eq system-type 'gnu/linux) + (setq default-directory (format "/home/%s" (user-login-name)))) + ;; If using macOS + ((eq system-type 'darwin) + (setq default-directory (format "/Users/%s" (user-login-name)))) +) + +;; Themeing +(use-package gruvbox-theme) ;; Gruvbox is comfy +(load-theme 'gruvbox-dark-hard) ;; Dark because I'm a parasite + +; For Unix-like operating systems only running the GUI. +(add-to-list 'default-frame-alist '(alpha-background . 80)) +(use-package doom-modeline + :ensure t + :init (doom-modeline-mode 1)) +;; Technically useless but cute for fullscreen editing. +(use-package nyan-mode + :init + (nyan-mode)) + +;; Requires the JetBrains Mono font be installed on the system. +(add-to-list 'default-frame-alist '(font . "JetBrains Mono-12")) + +;; Import external elisp programs +(add-to-list 'load-path "~/.emacs.d/lisp/") +;; Xah fly keys +(require 'xah-fly-keys) +(xah-fly-keys-set-layout "qwerty") +;; (xah-fly-keys) +;; I've been using Neovim a lot lately, so I'm using Evil mode for the time being. I think XFK is technically better, but it messes with my muscle memory a bit, and I need to be able to get stuff done, frankly. I'm already wasting time configuring emacs (* ￣︿￣) +(use-package evil + :init ;; tweak evil's configuration before loading it + (setq evil-want-keybinding nil) + (setq evil-vsplit-window-right t) + (setq evil-split-window-below t) + (evil-mode)) +;; Simple keybinds to increase and decrease the text size +;;(global-set-key (kbd "C-=") 'text-scale-increase) +;;(global-set-key (kbd "C--") 'text-scale-decrease) +;; MINIMALISM +(menu-bar-mode -1) +(tool-bar-mode -1) +;; (scroll-bar-mode -1) + +;; Misc stuff +(defalias 'yes-or-no-p 'y-or-n-p) +(column-number-mode 1) +(setq make-backup-files nil) +(setq global-visual-line-mode t) diff --git a/.emacs.d/lisp/keyfreq.el b/.emacs.d/lisp/keyfreq.el new file mode 100644 index 0000000..722c047 --- /dev/null +++ b/.emacs.d/lisp/keyfreq.el @@ -0,0 +1,603 @@ +;;; keyfreq.el --- track command frequencies +;; -*- coding: utf-8 -*- +;; +;; Copyright 2009-2010, 2015 by David Capello +;; Copyright 2008 by Xah Lee +;; Copyright 2006 by Michal Nazarewicz +;; Copyright 2006 by Ryan Yeske +;; +;; Author: Ryan Yeske, Michal Nazarewicz (mina86/AT/mina86.com) +;; Maintainer: David Capello, Xah lee +;; Created: 2006 +;; +;; Package-Requires: ((cl-lib "0.5")) +;; +;; +;; Keyfreq is free software; you can redistribute it and/or modify it +;; under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3 of the License, or +;; (at your option) any later version. +;; +;; Version 1.7 - 2015-09 - David Capello +;; * Avoid accumulating key frequency if keyfreq-file-release-lock fails +;; +;; Version 1.6 - 2015-09 - David Capello +;; * Added keyfreq-reset thanks to @w-vi +;; * Fixed issue running multiple instances of Emacs 24.5 +;; +;; Version 1.5 - 2014-11 - David Capello +;; * Support cl-lib or cl +;; * Minor doc fixes +;; +;; Version 1.4 - 2010-09 - David Capello +;; * Renamed from command-frequency to keyfreq +;; * Now keyfreq-table holds "deltas" +;; * Removed a lot of "facility" functions to keep the code simple. +;; * Rename keyfreq-summarize-all-modes -> keyfreq-groups-major-modes. +;; * Added keyfreq-filter-major-mode +;; * Added lock file to avoid overwrite the file by two processes at +;; the same time. +;; +;; Version 1.3 - 2009-09 - David Capello +;; * Added keyfreq-summarize-all-modes +;; +;; Version 1.2 - 2009-09 - David Capello +;; * Now each hash hash-key is a (major-mode . command) cons. Now only +;; symbols are recorded. +;; +;; Version 1.1 - 2008-09 +;; - Replaced the use of this-command var by real-last-command, so +;; that the commands backward-kill-word, kill-word, kill-line, +;; kill-region, do not all get counted as kill-region. Changed +;; post-command-hook to pre-command-hook +;; +;; Version 1.0 - 2007 +;; - Made into a full featured minor mode. Added full doc +;; strings. Added feature to save and read to disk the frequency +;; hash table. Added ability to set user preference using emacs's +;; customization system. Code is ~400 lines. This version is made by +;; Michal Nazarewicz in 2007. +;; +;; Version 0.1 - 2006 +;; - First version by Ryan Yeske. A quick hack of about 40 lines. +;; + +;;; Commentary: +;; +;; HOW TO USE IT? +;; +;; Include the following lines in your .emacs file: +;; +;; (require 'keyfreq) +;; (keyfreq-mode 1) +;; (keyfreq-autosave-mode 1) +;; +;; And use `keyfreq-show' to see how many times you used a command. +;; +;;; Code: + +(if (not (featurep 'cl-lib)) + (progn + (require 'cl) + ;; fix conflict name + (defalias 'cl-reduce 'reduce)) + (require 'cl-lib)) +;; (require 'json)? + +(defgroup keyfreq nil + "Customization group for Keyfreq mode. +This mode stores number of times each command was called and +provides it as a statistical data." + :package-version '(keyfreq . "1.7") + :group 'local + :prefix "keyfreq") + +;;;###autoload +(define-minor-mode keyfreq-mode + "Keyfreq mode records number of times each command was +called making it possible to access usage statistics through +various keyfreq-* functions." + :global t + :init-value nil + :lighter nil + :keymap nil + :group 'keyfreq + + (if keyfreq-mode + (add-hook 'pre-command-hook 'keyfreq-pre-command-hook) + (remove-hook 'pre-command-hook 'keyfreq-pre-command-hook))) + + +(defcustom keyfreq-buffer "*frequencies*" + "Buffer where frequencies are displayed." + :group 'keyfreq + :type 'string) + + +(defcustom keyfreq-file "~/.emacs.keyfreq" + "File `keyfreq-table' is saved to/loaded from by +`keyfreq-table-save' and `keyfreq-table-load' functions +by default." + :group 'keyfreq + :type 'file) + + +(defcustom keyfreq-file-lock "~/.emacs.keyfreq.lock" + "Lock file to update the `keyfreq-file'." + :group 'keyfreq + :type 'file) + +(defcustom keyfreq-excluded-regexp '() + "List of commands in REGEXP-FORM excluded by keyfreq." + :group 'keyfreq + :type 'file) + +(defvar keyfreq-table (make-hash-table :test 'equal :size 128) + "Hash table storing number of times each command was called in each major mode +since the last time the frequencies were saved in `keyfreq-file'.") + +(defvar keyfreq-excluded-commands '() + "List of commands excluded by keyfreq.") + +(defun keyfreq-match-p (cmd) + "Return t if CMD in `keyfreq-excluded-commands' or match `keyfreq-excluded-regexp'." + ;; HACK Inspire by `consult--regexp-filter' + (let ((filter (mapconcat (lambda (x) (concat "\\(?:" x "\\)")) + keyfreq-excluded-regexp "\\|"))) + (or (memq cmd keyfreq-excluded-commands) + (when keyfreq-excluded-regexp + (string-match-p filter (symbol-name cmd)))))) + + +(defun keyfreq-pre-command-hook () + "Record command execution in `keyfreq-table' hash." + (let ((command real-last-command) count) + (when (and command (symbolp command)) + (setq count (gethash (cons major-mode command) keyfreq-table)) + (unless (keyfreq-match-p command) + (puthash (cons major-mode command) (if count (1+ count) 1) + keyfreq-table) + )))) + +(defun keyfreq-groups-major-modes (table) + "Group major modes in TABLE by command. +Return a hash table where each entry has COMMAND as key and +COUNTER as value." + (let ((new-table (make-hash-table :test 'equal :size 128))) + (maphash (lambda (k v) + (puthash (cdr k) (+ (gethash (cdr k) new-table 0) v) new-table)) + table) + new-table)) + + +(defun keyfreq-filter-major-mode (table major-mode) + "Leave the frequencies of the specified major mode. +Return a hash table where each entry has COMMAND as key and +COUNTER as value." + + (let ((new-table (make-hash-table :test 'equal :size 128))) + (maphash (lambda (k v) + (when (eq (car k) major-mode) + (puthash (cdr k) (+ (gethash (cdr k) new-table 0) v) new-table))) + table) + new-table)) + + +(defun keyfreq-used-major-modes (table) + "Return a list with the used major modes (major modes +contained in the TABLE)." + (let ((list)) + (maphash (lambda (k v) + (add-to-list 'list (car k))) + table) + list)) + + +(defun keyfreq-list (table &optional reverse limit) + "Return a cons which car is sum of times any command was used +and cdr is a list of (command . count) pairs. + +If REVERSE is nil, sort it starting from the most used command; +if it is `no-sort' the list is not sorted; if it is non-nil and +not `no-sort', sort it from the least used commands. If LIMIT is +a positive number, only commands which were used more then LIMIT +times will be added. If it is a negative number, only commands +which were used less then -LIMIT times will be added." + + (let (l (sum 0)) + (maphash + (cond + ((or (not (numberp limit)) (= limit 0)) + (lambda (k v) (setq l (cons (cons k v) l) sum (+ sum v)))) + ((= limit -1) (lambda (k v) (setq sum (+ sum v)))) + ((< limit 0) + (setq limit (- limit)) + (lambda (k v) (setq sum (+ sum v)) + (if (< v limit) (setq l (cons (cons k v) l))))) + (t + (lambda (k v) (setq sum (+ sum v)) + (if (> v limit) (setq l (cons (cons k v) l)))))) + table) + (cons sum + (cond + ((equal reverse 'no-sort) l) + (reverse (sort l (lambda (a b) (< (cdr a) (cdr b))))) + (t (sort l (lambda (a b) (> (cdr a) (cdr b))))))))) + + +(defun keyfreq-format-list (list &optional func) + "Return formatted string with command usage statistics. + +The LIST is the `keyfreq-table' converted to a list using the `keyfreq-list'. + +If FUNC is nil each line contains number of times command was +called and the command; if it is t percentage usage is added in +the middle; if it is 'raw each line will contain number an +command separated by single line (with no formatting) otherwise +FUNC must be a function returning a string which will be called +for each entry with three arguments: number of times command was +called, percentage usage and the command." + (let* ((sum (car list)) + (max-len + (cl-reduce (lambda (a b) (max a (length (symbol-name (car b))))) + (cdr list) + :initial-value 0))) + (mapconcat + (cond + ((not func) (lambda (e) (format "%7d %s\n" (cdr e) (car e)))) + ((equal func t) + (lambda (e) (format (concat "%7d %6.2f%% %- " + (format "%d" max-len) + "s %s\n") + (cdr e) (/ (* 1e2 (cdr e)) sum) (car e) + (ignore-errors (keyfreq-where-is (car e)))))) + ((equal func 'raw) (lambda (e) (format "%d %s\n" (cdr e) (car e)))) + (t (lambda (e) (funcall func (cdr e) (/ (* 1e2 (cdr e)) sum) (car e))))) + (cdr list) ""))) + +(defun keyfreq-where-is (command) + (mapconcat 'key-description + (where-is-internal command) + ", ")) + +(defun keyfreq-show (&optional major-mode-symbol) + "Show command usage statistics in `keyfreq-buffer'. + +If MAJOR-MODE-SYMBOL is given, the function shows the statistics +for that particular major mode only. + +With a universal argument, the major-mode of the current buffer +is used as MAJOR-MODE-SYMBOL argument." + (interactive (list (cond (current-prefix-arg major-mode) + (t nil)))) + + (let ((table (copy-hash-table keyfreq-table))) + ;; Merge with the values in `keyfreq-file' + (keyfreq-table-load table) + + (let* ((list (keyfreq-list + (cond + (major-mode-symbol (keyfreq-filter-major-mode table major-mode-symbol)) + (t (keyfreq-groups-major-modes table))))) + (formatted-list (keyfreq-format-list list t))) + + ;; Display the table + (display-message-or-buffer (concat (if major-mode-symbol + (concat "For " (symbol-name major-mode)) + (concat "For all major modes")) + ":\n\n" + formatted-list) + keyfreq-buffer) + ))) + + +(defun keyfreq-html (filename &optional confirm) + "Save an HTML file as FILENAME with all the statistics of each mode." + + (interactive + (list (if buffer-file-name + (read-file-name "Write HTML file: " + nil nil nil nil) + (read-file-name "Write HTML file: " default-directory + (expand-file-name + (file-name-nondirectory (buffer-name)) + default-directory) + nil nil)) + (not current-prefix-arg))) + + (and confirm + (file-exists-p filename) + (or (y-or-n-p (format "File `%s' exists; overwrite? " filename)) + (error "Canceled"))) + + (let ((table (copy-hash-table keyfreq-table)) + (htmltable (lambda (list) + (insert "\n") + (insert "\n") + (insert "\n") + (keyfreq-format-list list + (lambda (count perc command) + (insert (format "\n" count perc command)))) + (insert "\n") + (insert "
TimesPercetageCommand
%d%.2f%%%s
\n")))) + + ;; Merge with the values in `keyfreq-file' + (keyfreq-table-load table) + + (with-temp-file filename + (insert "\n\n") + (insert "

Keyfreq Report

\n") + (insert "\n") + + (insert "

All major modes

\n") + (funcall htmltable (keyfreq-list (keyfreq-groups-major-modes table))) + + (mapc + (lambda (major-mode-symbol) + (insert (format "

%s

\n" + (symbol-name major-mode-symbol) + (symbol-name major-mode-symbol))) + (funcall htmltable (keyfreq-list (keyfreq-filter-major-mode table major-mode-symbol)))) + (keyfreq-used-major-modes table)) + + (insert "\n\n") + ) + )) + + +(defun keyfreq-json-encode (table) + "Return a JSON representation of the table of frequencies." + (require 'json) + (let ((commands-indexes (make-hash-table :test 'equal :size 128)) + commands-list frequencies-matrix i) + + ;; Build the "commands" property of the JSON object. + (setq i 0) + (maphash + (lambda (command-symbol counter) + (add-to-list 'commands-list command-symbol t) + (puthash command-symbol i commands-indexes) + (setq i (+ i 1)) + ) + (keyfreq-groups-major-modes table)) + + ;; Build the "frequencies" property. + (mapc + (lambda (major-mode-symbol) + (let ((cmd-count-pairs '())) + (keyfreq-format-list (keyfreq-list (keyfreq-filter-major-mode table major-mode-symbol)) + (lambda (count perc command) + (add-to-list 'cmd-count-pairs (gethash command commands-indexes) t) + (add-to-list 'cmd-count-pairs count t))) + (add-to-list 'frequencies-matrix major-mode-symbol t) + (add-to-list 'frequencies-matrix (append cmd-count-pairs nil) t))) + (keyfreq-used-major-modes table)) + + (json-encode `((:format . 1) + (:commands . ,commands-list) + (:frequencies . ,frequencies-matrix))))) + + +(defun keyfreq-json (filename &optional confirm) + "Save a file (as FILENAME) with a JSON structure of the data." + + (interactive + (list (if buffer-file-name + (read-file-name "Write JSON file: " + nil nil nil nil) + (read-file-name "Write JSON file: " default-directory + (expand-file-name + (file-name-nondirectory (buffer-name)) + default-directory) + nil nil)) + (not current-prefix-arg))) + + (and confirm + (file-exists-p filename) + (or (y-or-n-p (format "File `%s' exists; overwrite? " filename)) + (error "Canceled"))) + + (let ((table (copy-hash-table keyfreq-table))) + + ;; Merge with the values in `keyfreq-file' + (keyfreq-table-load table) + + (with-temp-file filename + (insert (keyfreq-json-encode table))))) + + +(defun keyfreq-reset () + "Reset all statistics including those in the file." + (interactive) + (when (yes-or-no-p (concat "Delete keyfreq file? You will lose all your stats. ")) + ;; clear the hash table + (clrhash keyfreq-table) + ;; Deal with the file + (when (keyfreq-file-is-unlocked) + ;; Lock the file + (keyfreq-file-claim-lock) + ;; Check that we have the lock + (if (eq (keyfreq-file-owner) (emacs-pid)) + (unwind-protect + ;; if the file exists just delete it + (if (file-exists-p keyfreq-file) + (delete-file keyfreq-file)) + ;; Release the lock. + (keyfreq-file-release-lock)))))) + + +(defun keyfreq-file-owner () + "Return the PID of the Emacs process that owns the table file lock file." + (let ((owner)) + (and (file-exists-p keyfreq-file-lock) + (ignore-errors + (with-temp-buffer + (insert-file-contents-literally keyfreq-file-lock) + (goto-char (point-min)) + (setq owner (read (current-buffer))) + (integerp owner))) + owner))) + + +(defun keyfreq-file-claim-lock () + (ignore-errors + (write-region (number-to-string (emacs-pid)) nil + keyfreq-file-lock nil 'nomessage nil 'excl))) + + +(defun keyfreq-file-release-lock () + (when (file-exists-p keyfreq-file-lock) + (delete-file keyfreq-file-lock))) + + +(defun keyfreq-file-is-unlocked () + ;; If the lock file exists.... + (if (file-exists-p keyfreq-file-lock) + ;; If the process which has the lock does not exist + (if (not (memql (keyfreq-file-owner) (list-system-processes))) + ;; Delete the lock + (delete-file keyfreq-file-lock))) + ;; Check again the lock existence (just in case...) + (not (file-exists-p keyfreq-file-lock))) + + +(defun keyfreq-table-save (table &optional mustsave) + "Append all values from the specified TABLE into the +`keyfreq-file' as a sexp of an alist. Then resets the TABLE +if it was successfully merged. + +If MUSTSAVE is t, this function tries to save the table until it +gets the lock and successfully saves it. If MUSTSAVE is nil, it +does nothing if the table cannot be saved." + + ;; Avoid adding nothing to the file + (if (> (hash-table-count table) 0) + (let ((done)) + ;; Check that the lock file doesn't exist + (while (not done) + (when (keyfreq-file-is-unlocked) + ;; Lock the file + (keyfreq-file-claim-lock) + + ;; Check that we have the lock + (if (eq (keyfreq-file-owner) (emacs-pid)) + (unwind-protect + (progn + ;; Load values and merge them with the current keyfreq-table + (keyfreq-table-load table) + + ;; Write the new frequencies + (with-temp-file keyfreq-file + (let ((l (cdr (keyfreq-list table 'no-sort)))) + (insert "(") + (dolist (item l) + (prin1 item (current-buffer)) + ;; Easy for git to track if every command is + ;; one line + (insert "\n")) + (insert ")")))) + + ;; Reset the hash table, enable the 'done' flag, and + ;; release the lock. + (clrhash table) + (setq done t) + (keyfreq-file-release-lock)))) + + (if (and (not done) mustsave) + ;; If we must save the file right now, we'll just keep + ;; trying until we can get the lock. So we can sleep some + ;; milliseconds for the next while-loop cycle. + (sleep-for 0.1) + ;; If we can wait to the next timer's timeout, just enable + ;; the 'done' flag to break the while-loop. + (setq done t)) + + )))) + + +(defun keyfreq-table-load (table) + "Load all values from the `keyfreq-file' and add them in the TABLE. +The table is not reset, so the values are appended to the table." + + ;; Does `keyfreq-file' exist? + (if (file-exists-p keyfreq-file) + ;; Load sexp + (let ((l (with-temp-buffer + (insert-file-contents keyfreq-file) + (goto-char (point-min)) + (read (current-buffer))))) + + ;; Add the values in the table + (while (and (listp l) l) + (if (listp (car l)) + (unless (keyfreq-match-p (cdr (caar l))) + (puthash (caar l) (+ (gethash (caar l) table 0) (cdar l)) table))) + (setq l (cdr l))) + ))) + + +;;;###autoload +(define-minor-mode keyfreq-autosave-mode + "Keyfreq Autosave mode automatically saves +`keyfreq-table' every `keyfreq-autosave-timeout' seconds +and when emacs is killed." + :global t + :init-value nil + :lighter nil + :keymap nil + :group 'keyfreq + + (when keyfreq-autosave--timer + (cancel-timer keyfreq-autosave--timer) + (setq keyfreq-autosave--timer nil)) + + (if keyfreq-autosave-mode + (progn + (setq keyfreq-autosave--timer + (run-at-time t keyfreq-autosave-timeout + 'keyfreq-autosave--do)) + (add-hook 'kill-emacs-hook 'keyfreq-mustsave--do)) + (keyfreq-mustsave--do) + (remove-hook 'kill-emacs-hook 'keyfreq-mustsave--do))) + + +(defcustom keyfreq-autosave-timeout 600 + "How often in seconds `keyfreq-table' should be saved +when `keyfreq-autosave-mode' is enabled. Setting this +value will take effect only after (re)enabling +`keyfreq-autosave-mode'." + :group 'keyfreq + :type 'number) + + +(defvar keyfreq-autosave--timer nil) + + +(defun keyfreq-autosave--do () + "Function executed periodically to save the `keyfreq-table' in `keyfreq-file'." + (keyfreq-table-save keyfreq-table)) + + +(defun keyfreq-mustsave--do () + "Function executed when we close Emacs." + (keyfreq-table-save keyfreq-table t)) + + +;;;###autoload +(defun keyfreq-save-now () + "Save keyfreq data now." + (interactive) + (keyfreq-mustsave--do) + (message "keyfreq data saved into %s" keyfreq-file)) + +(provide 'keyfreq) + +;;; keyfreq.el ends here diff --git a/.emacs.d/lisp/keyfreq.el:Zone.Identifier b/.emacs.d/lisp/keyfreq.el:Zone.Identifier new file mode 100644 index 0000000..e69de29 diff --git a/.emacs.d/lisp/xah-fly-keys.el b/.emacs.d/lisp/xah-fly-keys.el new file mode 100644 index 0000000..0b7299e --- /dev/null +++ b/.emacs.d/lisp/xah-fly-keys.el @@ -0,0 +1,4163 @@ +;;; xah-fly-keys.el --- ergonomic modal keybinding minor mode. -*- coding: utf-8; lexical-binding: t; -*- + +;; Copyright © 2013, 2024 by Xah Lee + +;; Author: Xah Lee ( http://xahlee.info/ ) +;; Maintainer: Xah Lee +;; Version: 26.11.20250325184849 +;; Created: 2013-09-10 +;; Package-Requires: ((emacs "27")) +;; Keywords: convenience, vi, vim, ergoemacs, keybinding +;; License: GPL v3. +;; Homepage: http://xahlee.info/emacs/misc/xah-fly-keys.html + +;; This file is not part of GNU Emacs. + +;;; Commentary: + +;; xah-fly-keys is a efficient keybinding for emacs. It is modal like +;; vi, but key choices are based on statistics of command call +;; frequency. + +;;; Usage: + +;; M-x xah-fly-keys to toggle the mode on/off. + +;; Important command/insert mode switch keys: + +;; M-x `xah-fly-command-mode-activate' +;; or press F8 or Alt+Space or Ctrl+Space or . +;; Note: if using emacs 28 or before, escape key only works when in emacs is running in graphical user interface mode. + +;; M-x `xah-fly-insert-mode-activate' +;; when in command mode, press qwerty letter key f. + +;; When in command mode: + +;; "f" calls `xah-fly-insert-mode-activate'. + +;; Space is a leader key. For example, "SPC r" calls `query-replace'. +;; Press "SPC C-h" to see the full list. + +;; "SPC SPC" also activates insertion mode. + +;; "SPC RET" calls `execute-extended-command'. + +;; "a" calls `execute-extended-command'. + +;; The leader key sequence basically supplant ALL emacs commands that +;; starts with C-x key. + +;; When using xah-fly-keys, you don't need to press Control or Meta, +;; with the following exceptions: + +;; "C-c" for major mode commands. +;; "C-g" for cancel. +;; "C-q" for quoted-insert. +;; "C-h" for getting a list of keys following a prefix/leader key. + +;; Leader key + +;; You NEVER need to press "C-x" + +;; Any emacs command that has a keybinding starting with C-x, has also +;; a key sequence binding in xah-fly-keys. For example, + +;; "C-x b" for `switch-to-buffer' is "SPC f" +;; "C-x C-f" for `find-file' is "SPC i e" +;; "C-x n n" for `narrow-to-region' is "SPC l l" + +;; The first key we call it leader key. In the above examples, the SPC +;; is the leader key. + +;; When in command mode, the "SPC" is a leader key. + +;; if you want the following standard keys with Control +;; "C-TAB" `xah-next-user-buffer' +;; "C-S-TAB" `xah-previous-user-buffer' +;; "C-v" paste +;; "C-w" close +;; "C-z" undo +;; "C-n" new +;; "C-o" open +;; "C-s" save +;; "C-S-s" save as +;; "C-S-t" open last closed +;; "C-+" `text-scale-increase' +;; "C--" `text-scale-decrease' + +;; add +;; (setq xah-fly-use-control-key t) + +;; To disable any change to Control keybinding +;; add this to emacs init +;; (setq xah-fly-use-control-key nil) +;; before loading xah-fly-keys + +;; To disable any change to meta keybinding +;; add this to emacs init +;; (setq xah-fly-use-meta-key nil) +;; before loading xah-fly-keys + +;; If you have a bug, post on github. + +;; For detail about design and other info, see home page at +;; http://xahlee.info/emacs/misc/xah-fly-keys.html + +;; If you like this project, paypal me $30 to Xah@XahLee.org + +;;; Installation: +;; here's how to manual install +;; +;; put the file xah-fly-keys.el in ~/.emacs.d/lisp/ +;; create the dir if doesn't exist. +;; +;; put the following in your emacs init file: +;; (add-to-list 'load-path "~/.emacs.d/lisp/") +;; (require 'xah-fly-keys) +;; (xah-fly-keys-set-layout "qwerty") ; optional +;; (xah-fly-keys 1) +;; +;; possible layout values: + +;; adnw (German) +;; azerty +;; azerty-be +;; bepo (French) +;; colemak +;; colemak-dh +;; dvorak +;; engrammer +;; halmak +;; koy (German) +;; minimak +;; neo2 (German) +;; norman +;; programer-dvorak +;; pt-nativo (Brazil) +;; qfmlwy +;; qgmlwb +;; qwerty +;; qwerty-abnt (Brazil) +;; qwerty-no (Norwegian) +;; qwerty-se (Swedish) +;; qwertz +;; qwpr +;; russian +;; workman + +;; supported layouts are stored in the variable xah-fly-layout-diagrams + +;; HHHH------------------------------ +;;; Code: + +(require 'dired) +(require 'dired-x) +(require 'seq) + +;; HHHH------------------------------ + +(defgroup xah-fly-keys nil + "Ergonomic modal keybinding minor mode." + :group 'keyboard) + +(defvar xah-fly-command-mode-activate-hook nil "Hook for `xah-fly-command-mode-activate'") +(defvar xah-fly-insert-mode-activate-hook nil "Hook for `xah-fly-insert-mode-activate'") + +(defvar xah-fly-command-mode-indicator "c" + "Character in mode line indicating command mode is active.") +(defvar xah-fly-insert-mode-indicator "i" + "Character in mode line indicating insert mode is active.") + +(defcustom xah-fly-use-control-key nil + "If true, change many emacs keybinding involving control key. +Keys changed: +Standard shortcut for open, close, copy, paste etc. +Remove many redundant emacs default keys +Must be set before loading xah-fly-keys." + :type 'boolean) + +(defcustom xah-fly-use-meta-key t + "If true, change some emacs keybinding involving meta key. +Remove many redundant emacs default keys. +Must be set before loading xah-fly-keys." + :type 'boolean) + +(defcustom xah-fly-use-isearch-arrows t + "If true, set arrow keys for moving between occurrences, and C-v is paste, in isearch (`isearch-forward'). +Must be set before loading xah-fly-keys." + :type 'boolean) + +;; HHHH------------------------------ +;; cursor movement + +(defun xah-pop-local-mark-ring () + "Move cursor to last mark position of current buffer. +Repeat call cycles all positions in `mark-ring'. + +URL `http://xahlee.info/emacs/emacs/emacs_cycle_local_mark_ring.html' +Created: 2016-04-04 +Version: 2023-09-03" + (interactive) + (set-mark-command t)) + +(defun xah-beginning-of-line-or-block () + "Move cursor to beginning of indent or line, end of previous block, in that order. + +If `visual-line-mode' is on, beginning of line means visual line. + +URL `http://xahlee.info/emacs/emacs/emacs_move_by_paragraph.html' +Created: 2018-06-04 +Version: 2024-10-30" + (interactive) + (let ((xp (point))) + (if (or (eq (point) (line-beginning-position)) + (eq last-command this-command)) + (when (re-search-backward "\n[\t\n ]*\n+" nil :move) + (skip-chars-backward "\n\t ") + ;; (forward-char) + ) + (if visual-line-mode + (beginning-of-visual-line) + (if (eq major-mode 'eshell-mode) + (beginning-of-line) + (back-to-indentation) + (when (eq xp (point)) + (beginning-of-line))))))) + +(defun xah-end-of-line-or-block () + "Move cursor to end of line or next block. + +• When called first time, move cursor to end of line. +• When called again, move cursor forward by jumping over any sequence of whitespaces containing 2 blank lines. +• if `visual-line-mode' is on, end of line means visual line. + +URL `http://xahlee.info/emacs/emacs/emacs_move_by_paragraph.html' +Created: 2018-06-04 +Version: 2024-10-30" + (interactive) + (if (or (eq (point) (line-end-position)) + (eq last-command this-command)) + (re-search-forward "\n[\t\n ]*\n+" nil :move) + (if visual-line-mode + (end-of-visual-line) + (end-of-line)))) + +(defun xah-page-up () + "Call `scroll-down-command'. (page up key.) +Created: 2024-10-09 +Version: 2024-10-09" + (interactive) + (progn + (scroll-down-command) + (set-transient-map + (let ((xkmap (make-sparse-keymap))) + (define-key xkmap (kbd "") #'xah-page-up) + (define-key xkmap (kbd "") #'xah-page-down) + xkmap)))) + +(defun xah-page-down () + "Call `scroll-up-command'. (page down key.) +Created: 2024-10-09 +Version: 2024-10-09" + (interactive) + (progn + (scroll-up-command) + (set-transient-map + (let ((xkmap (make-sparse-keymap))) + (define-key xkmap (kbd "") #'xah-page-up) + (define-key xkmap (kbd "") #'xah-page-down) + xkmap)))) + +(defvar xah-brackets '( "“”" "()" "[]" "{}" "<>" "＜＞" "（）" "［］" "｛｝" "⦅⦆" "〚〛" "⦃⦄" "‹›" "«»" "「」" "〈〉" "《》" "【】" "〔〕" "⦗⦘" "『』" "〖〗" "〘〙" "｢｣" "⟦⟧" "⟨⟩" "⟪⟫" "⟮⟯" "⟬⟭" "⌈⌉" "⌊⌋" "⦇⦈" "⦉⦊" "❛❜" "❝❞" "❨❩" "❪❫" "❴❵" "❬❭" "❮❯" "❰❱" "❲❳" "〈〉" "⦑⦒" "⧼⧽" "﹙﹚" "﹛﹜" "﹝﹞" "⁽⁾" "₍₎" "⦋⦌" "⦍⦎" "⦏⦐" "⁅⁆" "⸢⸣" "⸤⸥" "⟅⟆" "⦓⦔" "⦕⦖" "⸦⸧" "⸨⸩" "｟｠") + "A list of strings, each element is a string of 2 chars, the left bracket and a matching right bracket. +Used by `xah-select-text-in-quote' and others.") + +(defconst xah-left-brackets + (mapcar (lambda (x) (substring x 0 1)) xah-brackets) + "List of left bracket chars. Each element is a string.") + +(defconst xah-right-brackets + (mapcar (lambda (x) (substring x 1 2)) xah-brackets) + "List of right bracket chars. Each element is a string.") + +(defun xah-backward-left-bracket () + "Move cursor to the previous occurrence of left bracket. +The list of brackets to jump to is defined by `xah-left-brackets'. + +URL `http://xahlee.info/emacs/emacs/emacs_navigating_keys_for_brackets.html' +Version: 2015-10-01" + (interactive) + (re-search-backward (regexp-opt xah-left-brackets) nil t)) + +(defun xah-forward-right-bracket () + "Move cursor to the next occurrence of right bracket. +The list of brackets to jump to is defined by `xah-right-brackets'. + +URL `http://xahlee.info/emacs/emacs/emacs_navigating_keys_for_brackets.html' +Version: 2015-10-01" + (interactive) + (re-search-forward (regexp-opt xah-right-brackets) nil t)) + +(defun xah-goto-matching-bracket () + "Move cursor to the matching bracket. +If cursor is not on a bracket, call `backward-up-list'. +The list of brackets to jump to is defined by `xah-left-brackets' and `xah-right-brackets'. + +URL `http://xahlee.info/emacs/emacs/emacs_navigating_keys_for_brackets.html' +Created: 2016-11-22 +Version: 2024-06-15" + (interactive) + (if (nth 3 (syntax-ppss)) + (backward-up-list 1 'ESCAPE-STRINGS 'NO-SYNTAX-CROSSING) + (cond + ((eq (char-after) ?\") (forward-sexp)) + ((eq (char-before) ?\") (backward-sexp)) + ((looking-at (regexp-opt xah-left-brackets)) + (forward-sexp)) + ((if (eq (point-min) (point)) + nil + (prog2 + (backward-char) + (looking-at (regexp-opt xah-right-brackets)) + (forward-char))) + (backward-sexp) + (while (looking-at "\\s'") (forward-char))) + (t (backward-up-list 1 'ESCAPE-STRINGS 'NO-SYNTAX-CROSSING))))) + +(defvar xah-punctuation-regex nil "A regex string for the purpose of moving cursor to a punctuation.") +(setq xah-punctuation-regex "\"") + +(defun xah-forward-punct () + "Move cursor to the next occurrence of punctuation. +Punctuations is defined by `xah-punctuation-regex' + +URL `http://xahlee.info/emacs/emacs/emacs_jump_to_punctuations.html' +Created: 2017-06-26 +Version: 2025-03-21" + (interactive) + (set-transient-map + (let ((xkmap (make-sparse-keymap))) + (define-key xkmap (kbd "") #'xah-backward-punct) + (define-key xkmap (kbd "") #'xah-forward-punct) + (define-key xkmap (kbd (if (boundp 'xah-repeat-key) xah-repeat-key "m")) real-this-command) + xkmap)) + (re-search-forward xah-punctuation-regex nil t)) + +(defun xah-backward-punct () + "Move cursor to the previous occurrence of punctuation. +See `xah-forward-punct' + +URL `http://xahlee.info/emacs/emacs/emacs_jump_to_punctuations.html' +Created: 2017-06-26 +Version: 2025-03-21" + (interactive) + (set-transient-map + (let ((xkmap (make-sparse-keymap))) + (define-key xkmap (kbd "") #'xah-backward-punct) + (define-key xkmap (kbd "") #'xah-forward-punct) + (define-key xkmap (kbd (if (boundp 'xah-repeat-key) xah-repeat-key "m")) real-this-command) + xkmap)) + (re-search-backward xah-punctuation-regex nil t)) + +(defun xah-sort-lines () + "Like `sort-lines' but if no region, do the current block. +Created: 2022-01-22 +Version: 2025-03-25" + (interactive) + (let (xbeg xend) + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))) + (sort-lines current-prefix-arg xbeg xend))) + +(defun xah-narrow-to-region () + "Same as `narrow-to-region', but if no selection, narrow to the current block. +Created: 2022-01-22 +Version: 2025-03-25" + (interactive) + (let (xbeg xend) + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))) + (narrow-to-region xbeg xend))) + +;; HHHH------------------------------ +;; editing commands + +(defun xah-copy-line-or-region () + "Copy current line or selection. + +Copy current line. When called repeatedly, append copy subsequent lines. +Except: + +If `universal-argument' is called first, copy whole buffer (respects `narrow-to-region'). +If `rectangle-mark-mode' is on, copy the rectangle. +If `region-active-p', copy the region. + +URL `http://xahlee.info/emacs/emacs/emacs_copy_cut_current_line.html' +Created: 2010-05-21 +Version: 2024-06-19" + (interactive) + (cond + (current-prefix-arg (copy-region-as-kill (point-min) (point-max))) + ((and (boundp 'rectangle-mark-mode) rectangle-mark-mode) + (copy-region-as-kill (region-beginning) (region-end) t)) + ((region-active-p) (copy-region-as-kill (region-beginning) (region-end))) + ((eq last-command this-command) + (if (eobp) + nil + (progn + (kill-append "\n" nil) + (kill-append (buffer-substring (line-beginning-position) (line-end-position)) nil) + (end-of-line) + (forward-char)))) + ((eobp) + (if (eq (char-before) 10) + (progn) + (progn + (copy-region-as-kill (line-beginning-position) (line-end-position)) + (end-of-line)))) + (t + (copy-region-as-kill (line-beginning-position) (line-end-position)) + (end-of-line) + (forward-char)))) + +(defun xah-cut-line-or-region () + "Cut current line or selection. +If `universal-argument' is called first, cut whole buffer (respects `narrow-to-region'). + +URL `http://xahlee.info/emacs/emacs/emacs_copy_cut_current_line.html' +Created: 2010-05-21 +Version: 2015-06-10" + (interactive) + (if current-prefix-arg + (progn ; not using kill-region because we don't want to include previous kill + (kill-new (buffer-string)) + (delete-region (point-min) (point-max))) + (progn (if (region-active-p) + (kill-region (region-beginning) (region-end) t) + (kill-region (line-beginning-position) (line-beginning-position 2)))))) + +(defun xah-copy-all-or-region () + "Copy buffer or selection content to `kill-ring'. +Respects `narrow-to-region'. + +URL `http://xahlee.info/emacs/emacs/emacs_copy_cut_all_or_region.html' +Version: 2015-08-22" + (interactive) + (if (region-active-p) + (progn + (kill-new (buffer-substring (region-beginning) (region-end))) + (message "Text selection copied.")) + (progn + (kill-new (buffer-string)) + (message "Buffer content copied.")))) + +(defun xah-cut-all-or-region () + "Cut buffer or selection content to `kill-ring'. +Respects `narrow-to-region'. + +URL `http://xahlee.info/emacs/emacs/emacs_copy_cut_all_or_region.html' +Version: 2015-08-22" + (interactive) + (if (region-active-p) + (progn + (kill-new (buffer-substring (region-beginning) (region-end))) + (delete-region (region-beginning) (region-end))) + (progn + (kill-new (buffer-string)) + (delete-region (point-min) (point-max))))) + +(defun xah-copy-all () + "Put the whole buffer content into the `kill-ring'. +(respects `narrow-to-region') +Version: 2016-10-06" + (interactive) + (kill-new (buffer-string)) + (message "Buffer content copied.")) + +(defun xah-cut-all () + "Cut the whole buffer content into the `kill-ring'. +Respects `narrow-to-region'. +Version: 2017-01-03" + (interactive) + (kill-new (buffer-string)) + (delete-region (point-min) (point-max))) + +(defun xah-paste-or-paste-previous () + "Paste. When called repeatedly, paste previous. +This command calls `yank', and if repeated, call `yank-pop'. + +If `universal-argument' is called first with a number arg, paste that many times. + +URL `http://xahlee.info/emacs/emacs/emacs_paste_or_paste_previous.html' +Created: 2017-07-25 +Version: 2020-09-08" + (interactive) + (progn + (when (and delete-selection-mode (region-active-p)) + (delete-region (region-beginning) (region-end))) + (if current-prefix-arg + (progn + (dotimes (_ (prefix-numeric-value current-prefix-arg)) + (yank))) + (if (eq real-last-command this-command) + (yank-pop 1) + (yank))))) + +(defun xah-show-kill-ring () + "Insert all `kill-ring' content in a new buffer named *copy history*. + +URL `http://xahlee.info/emacs/emacs/emacs_show_kill_ring.html' +Created: 2019-12-02 +Version: 2024-05-07" + (interactive) + (let ((xbuf (generate-new-buffer "*copy history*")) + (inhibit-read-only t)) + (progn + (switch-to-buffer xbuf) + (funcall 'fundamental-mode) + (mapc + (lambda (x) + (insert x "\n\nsss97707------------------------------------------------\n\n" )) + kill-ring)) + (goto-char (point-min)))) + +(defun xah-move-block-up () + "Swap the current text block with the previous. +After this command is called, press or to move. Any other key to exit. +Version: 2022-03-04" + (interactive) + (let ((xp0 (point)) + xc1 ; current block begin + xc2 ; current Block End + xbeg ; prev Block Begin + xend ; prev Block end + ) + (if (re-search-forward "\n[ \t]*\n+" nil "move") + (setq xc2 (match-beginning 0)) + (setq xc2 (point))) + (goto-char xp0) + (if (re-search-backward "\n[ \t]*\n+" nil "move") + (progn + (skip-chars-backward "\n \t") + (setq xend (point)) + (skip-chars-forward "\n \t") + (setq xc1 (point))) + (error "No previous block.")) + (goto-char xend) + (if (re-search-backward "\n[ \t]*\n+" nil "move") + (progn + (setq xbeg (match-end 0))) + (setq xbeg (point))) + (transpose-regions xbeg xend xc1 xc2) + (goto-char xbeg) + (set-transient-map + (let ((xkmap (make-sparse-keymap))) + (define-key xkmap (kbd "") #'xah-move-block-up) + (define-key xkmap (kbd "") #'xah-move-block-down) + xkmap)))) + +(defun xah-move-block-down () + "Swap the current text block with the next. +After this command is called, press or to move. Any other key to exit. +Version: 2022-03-04" + (interactive) + (let ((xp0 (point)) + xc1 ; current block begin + xc2 ; current Block End + xn1 ; next Block Begin + xn2 ; next Block end + ) + (if (eq (point-min) (point)) + (setq xc1 (point)) + (if (re-search-backward "\n\n+" nil "move") + (progn + (setq xc1 (match-end 0))) + (setq xc1 (point)))) + (goto-char xp0) + (if (re-search-forward "\n[ \t]*\n+" nil "move") + (progn + (setq xc2 (match-beginning 0)) + (setq xn1 (match-end 0))) + (error "No next block.")) + (if (re-search-forward "\n[ \t]*\n+" nil "move") + (progn + (setq xn2 (match-beginning 0))) + (setq xn2 (point))) + (transpose-regions xc1 xc2 xn1 xn2) + (goto-char xn2)) + (set-transient-map + (let ((xkmap (make-sparse-keymap))) + (define-key xkmap (kbd "") #'xah-move-block-up) + (define-key xkmap (kbd "") #'xah-move-block-down) + xkmap))) + +(defun xah-shrink-whitespaces () + "Remove whitespaces around cursor . + +Shrink neighboring spaces, then newlines, then spaces again, leaving one space or newline at each step, till no more white space. + +URL `http://xahlee.info/emacs/emacs/emacs_shrink_whitespace.html' +Created: 2014-10-21 +Version: 2023-07-12" + (interactive) + (let ((xeol-count 0) + (xp0 (point)) + xbeg ; whitespace begin + xend ; whitespace end + (xcharBefore (char-before)) + (xcharAfter (char-after)) + xspace-neighbor-p) + (setq xspace-neighbor-p (or (eq xcharBefore 32) (eq xcharBefore 9) (eq xcharAfter 32) (eq xcharAfter 9))) + (skip-chars-backward " \n\t　") + (setq xbeg (point)) + (goto-char xp0) + (skip-chars-forward " \n\t　") + (setq xend (point)) + (goto-char xbeg) + (while (search-forward "\n" xend t) + (setq xeol-count (1+ xeol-count))) + (goto-char xp0) + (cond + ((eq xeol-count 0) + (if (> (- xend xbeg) 1) + (progn + (delete-horizontal-space) (insert " ")) + (progn (delete-horizontal-space)))) + ((eq xeol-count 1) + (if xspace-neighbor-p + (delete-horizontal-space) + (progn (delete-space--internal "\n" nil) (insert " ")))) + ((eq xeol-count 2) + (if xspace-neighbor-p + (delete-horizontal-space) + (progn + (delete-space--internal "\n" nil) + (insert "\n")))) + ((> xeol-count 2) + (if xspace-neighbor-p + (delete-horizontal-space) + (progn + (goto-char xend) + (search-backward "\n") + (delete-region xbeg (point)) + (insert "\n")))) + (t (progn + (message "nothing done. logic error 40873. shouldn't reach here")))))) + +(defun xah-delete-string-backward (&optional DeleteJustQuote) + "Delete string to the left of cursor. + +Cursor must be on the right of a string delimiter. +e.g. \"▮some\" or \"some\"▮ +Else, do nothing. + +String delimiter is determined by current syntax table. (see `describe-syntax') + +If DeleteJustQuote is true, delete only the quotation marks. + +Created: 2023-11-12 +Version: 2024-06-06" + (when (prog2 (backward-char) (looking-at "\\s\"") (forward-char)) + (let ((xp0 (point)) xbeg xend) + ;; xbeg xend are the begin and end pos of the string + (if (nth 3 (syntax-ppss)) + (setq xbeg (1- xp0) + xend + (progn + (backward-char) + (forward-sexp) + (point))) + (setq xend (point) + xbeg + (progn (forward-sexp -1) (point)))) + (if DeleteJustQuote + (progn (goto-char xend) + (delete-char -1) + (goto-char xbeg) + (delete-char 1)) + (if (eq real-this-command real-last-command) + (kill-append (delete-and-extract-region xbeg xend) t) + (kill-region xbeg xend)))))) + +(defvar xah-smart-delete-dispatch + nil + "Used by `xah-smart-delete'. +This makes that function behavior dependent on current major-mode. +Value is Alist of pairs, each is of the form +(‹major-mode-name› . ‹function-name›) +If ‹major-mode-name› match current var `major-mode', the paired function is called. +If no major mode matches, `xah-smart-delete' default behavior is used. + +Version: 2024-06-05") + +(setq xah-smart-delete-dispatch + '((xah-wolfram-mode . xah-wolfram-smart-delete-backward) + (xah-html-mode . xah-html-smart-delete-backward))) + +(defun xah-smart-delete (&optional BracketOnly SkipDispatch) + "Smart backward delete. +Typically, delete to the left 1 char or entire bracketed text. +Behavior depends on what's left char, and current `major-mode'. + +If `xah-smart-delete-dispatch' match, call the matched function instead. +If region active, delete region. +If cursor left is space tab newline, delete them. +If cursor left is bracket, delete the whole bracket block. +If cursor left is string quote, delete the string. +Else just delete one char to the left. + +If `universal-argument' is called first, do not delete bracket's innertext. + +In elisp code, arg BracketOnly if true, do not delete innertext. SkipDispatch if true, skip checking `xah-smart-delete-dispatch'. + +Created: 2023-07-22 +Version: 2025-02-05" + (interactive (list current-prefix-arg nil)) + (let (xfun) + (cond + ((and (not SkipDispatch) (setq xfun (assq major-mode xah-smart-delete-dispatch))) + (message "calling cdr of %s" xfun) + (funcall (cdr xfun))) + ((region-active-p) (delete-region (region-beginning) (region-end))) + ((or + ;; 32 is space, 9 is tab, 10 is newline + (eq (char-before) 32) + (eq (char-before) 10) + (eq (char-before) 9)) + (if (minibufferp (current-buffer)) + (while (or (eq (char-before) 32) (eq (char-before) 10) (eq (char-before) 9)) + (delete-char -1)) + (let ((xp0 (point)) xbeg xend) + (skip-chars-backward " \t\n") + (setq xbeg (point) xend xp0) + (if (eq real-this-command real-last-command) + (kill-append (delete-and-extract-region xbeg xend) t) + (kill-region xbeg xend))))) + ((prog2 (backward-char) (looking-at "\\s)") (forward-char)) + ;; (message "cursor left is closing bracket") + (cond + ;; unmatched bracket, just delete it + ((not (condition-case nil (scan-sexps (point) -1) (scan-error nil))) + (warn "There was unmatched bracket: no paired opening bracket on left of cursor") + (delete-char -1)) + ;; delete just the brackets + (BracketOnly + (let ((xp0 (point)) xbeg) + (forward-sexp -1) + (while (looking-at "\\s'") (forward-char)) + (setq xbeg (point)) + (goto-char xp0) + (delete-char -1) + (goto-char xbeg) + (delete-char 1) + (goto-char (- xp0 2)))) + ;; delete the bracket block + (t + (let ((xp0 (point)) xbeg xend) + (forward-sexp -1) + (while (looking-at "\\s'") (forward-char)) + (setq xbeg (point) xend xp0) + (if (eq real-this-command real-last-command) + (kill-append (delete-and-extract-region xbeg xend) t) + (kill-region xbeg xend)))))) + ((prog2 (backward-char) (looking-at "\\s(") (forward-char)) + ;; (message "cursor left is opening bracket") + (cond + ;; unmatched bracket, just delete it + ((save-excursion + (backward-char) + (not (condition-case nil (scan-sexps (point) 1) (scan-error nil)))) + (warn "There was unmatched bracket: no paired closing bracket on right of cursor") + (delete-char -1)) + ;; delete just the brackets + (BracketOnly + (let (xbeg) + (backward-char) + (setq xbeg (point)) + (forward-sexp 1) + (delete-char -1) + (goto-char xbeg) + (delete-char 1))) + ;; delete the bracket block + (t + (let (xbeg xend) + (backward-char) + (setq xbeg (point)) + (forward-sexp 1) + (setq xend (point)) + (if (eq real-this-command real-last-command) + (kill-append (delete-and-extract-region xbeg xend) t) + (kill-region xbeg xend)))))) + ((prog2 (backward-char) (looking-at "\\s\"") (forward-char)) + (message "calling xah-delete-string-backward") + (xah-delete-string-backward BracketOnly)) + (t (delete-char -1))))) + +(defun xah-change-bracket-pairs (FromChars ToChars) + "Change bracket pairs to another type or none. +For example, change all parenthesis () to square brackets []. +Works on current block or selection. + +In lisp code, FromChars is a string with at least 2 spaces. +e.g. +paren ( ) +french angle ‹ › +double bracket [[ ]] +etc. +It is split by space, and last 2 items are taken as left and right brackets. + +ToChars is similar, with a special value of +none +followed by 2 spaces. +,it means replace by empty string. + +URL `http://xahlee.info/emacs/emacs/elisp_change_brackets.html' +Created: 2020-11-01 +Version: 2025-03-25" + (interactive + (let ((xbrackets + '( + "square [ ]" + "brace { }" + "paren ( )" + "less greater than < >" + "QUOTATION MARK \" \"" + "APOSTROPHE ' '" + "emacs ` '" + "GRAVE ACCENT ` `" + "double square [[ ]]" + "tilde ~ ~" + "equal = =" + "double curly quote “ ”" + "single curly quote ‘ ’" + "french angle quote ‹ ›" + "french double angle « »" + "corner 「 」" + "white corner 『 』" + "lenticular 【 】" + "white lenticular 〖 〗" + "title angle 〈 〉" + "double angle 《 》" + "tortoise 〔 〕" + "white tortoise 〘 〙" + "white square 〚 〛" + "white paren ⦅ ⦆" + "white curly bracket ⦃ ⦄" + "pointing angle 〈 〉" + "angle with dot ⦑ ⦒" + "curved angle ⧼ ⧽" + "math square ⟦ ⟧" + "math angle ⟨ ⟩" + "math double angle ⟪ ⟫" + "math flattened parenthesis ⟮ ⟯" + "math white tortoise shell ⟬ ⟭" + "heavy single quotation mark ornament ❛ ❜" + "heavy double turned comma quotation mark ornament ❝ ❞" + "medium parenthesis ornament ❨ ❩" + "medium flattened parenthesis ornament ❪ ❫" + "medium curly ornament ❴ ❵" + "medium pointing angle ornament ❬ ❭" + "heavy pointing angle quotation mark ornament ❮ ❯" + "heavy pointing angle ornament ❰ ❱" + "none " + ))) + (let ((completion-ignore-case t)) + (list + (completing-read "Replace this:" xbrackets nil t nil nil (car xbrackets)) + (completing-read "To:" xbrackets nil t nil nil (car (last xbrackets))))))) + (let (xbeg xend xleft xright xtoL xtoR) + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))) + (let ((xsFrom (last (split-string FromChars " ") 2)) + (xsTo (last (split-string ToChars " ") 2))) + + ;; (when (< (length xsFrom) 3) + ;; (error "cannot find input brackets %s" xsFrom)) + + ;; (when (< (length xsTo) 3) + ;; (message "replace blacket is empty string") + ;; (setq xsTo (list "" "" ""))) + + (setq xleft (car xsFrom) xright (car (cdr xsFrom)) + xtoL (car xsTo) xtoR (car (cdr xsTo))) + + (save-excursion + (save-restriction + (narrow-to-region xbeg xend) + (let ((case-fold-search nil)) + (if (string-equal xleft xright) + (let ((xx (regexp-quote xleft))) + (goto-char (point-min)) + (while + (re-search-forward + (format "%s\\([^%s]+?\\)%s" xx xx xx) + nil t) + (overlay-put (make-overlay (match-beginning 0) (match-end 0)) 'face 'highlight) + (replace-match (concat xtoL "\\1" xtoR) t))) + (progn + (progn + (goto-char (point-min)) + (while (search-forward xleft nil t) + (overlay-put (make-overlay (match-beginning 0) (match-end 0)) 'face 'highlight) + (replace-match xtoL t t))) + (progn + (goto-char (point-min)) + (while (search-forward xright nil t) + (overlay-put (make-overlay (match-beginning 0) (match-end 0)) 'face 'highlight) + (replace-match xtoR t t))))))))))) + +(defun xah-toggle-letter-case () + "Toggle the letter case of current word or selection. +Always cycle in this order: Init Caps, ALL CAPS, all lower. + +URL `http://xahlee.info/emacs/emacs/emacs_toggle_letter_case.html' +Created: 2020-06-26 +Version: 2024-06-17" + (interactive) + (let ((deactivate-mark nil) xbeg xend) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (save-excursion + (skip-chars-backward "[:alnum:]") + (setq xbeg (point)) + (skip-chars-forward "[:alnum:]") + (setq xend (point)))) + (when (not (eq last-command this-command)) + (put this-command 'state 0)) + (cond + ((equal 0 (get this-command 'state)) + (upcase-initials-region xbeg xend) + (put this-command 'state 1)) + ((equal 1 (get this-command 'state)) + (upcase-region xbeg xend) + (put this-command 'state 2)) + ((equal 2 (get this-command 'state)) + (downcase-region xbeg xend) + (put this-command 'state 0))))) + +;; test case +;; test_case some +;; test-case +;; tes▮t-case + +(defun xah-toggle-previous-letter-case () + "Toggle the letter case of the letter to the left of cursor. + +URL `http://xahlee.info/emacs/emacs/emacs_toggle_letter_case.html' +Created: 2015-12-22 +Version: 2023-11-14" + (interactive) + (let ((case-fold-search nil)) + (left-char 1) + (cond + ((looking-at "[[:lower:]]") (upcase-region (point) (1+ (point)))) + ((looking-at "[[:upper:]]") (downcase-region (point) (1+ (point))))) + (right-char))) + +(defun xah-upcase-sentence () + "Upcase first letters of sentences of current block or selection. + +URL `http://xahlee.info/emacs/emacs/emacs_upcase_sentence.html' +Created: 2020-12-08 +Version: 2025-03-25" + (interactive) + (let (xbeg xend) + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))) + (save-restriction + (narrow-to-region xbeg xend) + (let ((case-fold-search nil)) + ;; after period or question mark or exclamation + (goto-char (point-min)) + (while (re-search-forward "\\(\\.\\|\\?\\|!\\)[ \n]+ *\\([a-z]\\)" nil :move) + (upcase-region (match-beginning 2) (match-end 2)) + (overlay-put (make-overlay (match-beginning 2) (match-end 2)) 'face 'highlight)) + ;; after a blank line, after a bullet, or beginning of buffer + (goto-char (point-min)) + (while (re-search-forward "\\(\\`\\|• \\|\n\n\\)\\([a-z]\\)" nil :move) + (upcase-region (match-beginning 2) (match-end 2)) + (overlay-put (make-overlay (match-beginning 2) (match-end 2)) 'face 'highlight)) + ;; for HTML. first letter after tag + (when + (or + (eq major-mode 'xah-html-mode) + (eq major-mode 'html-mode) + (eq major-mode 'sgml-mode) + (eq major-mode 'nxml-mode) + (eq major-mode 'xml-mode) + (eq major-mode 'mhtml-mode)) + (goto-char (point-min)) + (while + (re-search-forward "\\([ \n]?\\|<h[1-6]>[ \n]?\\|<p>[ \n]?\\|<li>[ \n]?\\|<dd>[ \n]?\\|<td>[ \n]?\\|<br ?/?>[ \n]?\\|<figcaption>[ \n]?\\)\\([a-z]\\)" nil :move) + (upcase-region (match-beginning 2) (match-end 2)) + (overlay-put (make-overlay (match-beginning 2) (match-end 2)) 'face 'highlight)))) + (goto-char (point-max))) + (skip-chars-forward " \n\t"))) + +(defun xah-title-case-region-or-line (&optional Begin End) + "Title case text between nearest brackets, or current line or selection. +Capitalize first letter of each word, except words like {to, of, the, a, in, or, and}. If a word already contains cap letters such as HTTP, URL, they are left as is. + +When called in a elisp program, Begin End are region boundaries. + +URL `http://xahlee.info/emacs/emacs/elisp_title_case_text.html' +Created: 2017-01-11 +Version: 2021-09-19" + (interactive) + (let* ((xskipChars "^\"<>(){}[]“”‘’‹›«»「」『』【】〖〗《》〈〉〔〕") + (xp0 (point)) + (xbeg (if Begin + Begin + (if (region-active-p) + (region-beginning) + (progn + (skip-chars-backward xskipChars (line-beginning-position)) (point))))) + (xend (if End + End + (if (region-active-p) + (region-end) + (progn (goto-char xp0) + (skip-chars-forward xskipChars (line-end-position)) (point))))) + (xstrPairs [ + [" A " " a "] + [" An " " an "] + [" And " " and "] + [" At " " at "] + [" As " " as "] + [" By " " by "] + [" Be " " be "] + [" Into " " into "] + [" In " " in "] + [" Is " " is "] + [" It " " it "] + [" For " " for "] + [" Of " " of "] + [" Or " " or "] + [" On " " on "] + [" Via " " via "] + [" The " " the "] + [" That " " that "] + [" To " " to "] + [" Vs " " vs "] + [" With " " with "] + [" From " " from "] + ["'S " "'s "] + ["'T " "'t "] + ])) + (save-excursion + (save-restriction + (narrow-to-region xbeg xend) + (upcase-initials-region (point-min) (point-max)) + (let ((case-fold-search nil)) + (mapc + (lambda (xx) + (goto-char (point-min)) + (while + (search-forward (aref xx 0) nil t) + (replace-match (aref xx 1) t t))) + xstrPairs)))))) + +(defun xah-add-space-after-comma () + "Add a space after comma of current block or selection. +and highlight changes made. +Created: 2022-01-20 +Version: 2025-03-25" + (interactive) + (let (xbeg xend) + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))) + (save-restriction + (narrow-to-region xbeg xend) + (goto-char (point-min)) + (while + (re-search-forward ",\\b" nil t) + (replace-match ", ") + (overlay-put + (make-overlay + (match-beginning 0) + (match-end 0)) 'face 'highlight))))) + +(defun xah-toggle-read-novel-mode () + "Setup current frame to be suitable for reading long novel/article text. +• Set frame width to 70 +• Line wrap at word boundaries. +• Line spacing is increased. +• Proportional width font is used. +Call again to toggle back. + +URL `http://xahlee.info/emacs/emacs/emacs_novel_reading_mode.html' +Created: 2019-01-30 +Version: 2021-01-16" + (interactive) + (if (eq (frame-parameter (selected-frame) 'width) 70) + (progn + (set-frame-parameter (selected-frame) 'width 106) + (variable-pitch-mode 0) + (setq line-spacing nil) + (setq word-wrap nil)) + (progn + (set-frame-parameter (selected-frame) 'width 70) + (variable-pitch-mode 1) + (setq line-spacing 0.5) + (setq word-wrap t))) + (redraw-frame (selected-frame))) + +(defun xah-fill-or-unfill () + "Reformat current block or selection to short/long line. +First call will break into multiple short lines. Repeated call toggles between short and long lines. +This commands calls `fill-region' to do its work. Set `fill-column' for short line length. + +URL `http://xahlee.info/emacs/emacs/modernization_fill-paragraph.html' +Created: 2020-11-22 +Version: 2025-03-25" + (interactive) + ;; This command symbol has a property “'longline-p”, the possible values are t and nil. This property is used to easily determine whether to compact or uncompact, when this command is called again + (let ( (xisLongline (if (eq last-command this-command) (get this-command 'longline-p) t)) + (deactivate-mark nil) + xbeg xend ) + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))) + (if xisLongline + (fill-region xbeg xend) + (let ((fill-column 99999 )) + (fill-region xbeg xend))) + (put this-command 'longline-p (not xisLongline)))) + +(defun xah-unfill-paragraph () + "Replace newline chars in current paragraph by single spaces. +This command does the inverse of `fill-paragraph'. + +URL `http://xahlee.info/emacs/emacs/emacs_unfill-paragraph.html' +Created: 2010-05-12 +Version: 2022-05-20" + (interactive) + (let ((fill-column 90002000)) + (fill-paragraph))) + +(defun xah-unfill-region (Begin End) + "Replace newline chars in region by single spaces. +This command does the inverse of `fill-region'. + +URL `http://xahlee.info/emacs/emacs/emacs_unfill-paragraph.html' +Created: 2010-05-12 +Version: 2022-05-20" + (interactive "r") + (let ((fill-column 90002000)) + (fill-region Begin End))) + +(defun xah-change-newline-chars-to-one (Begin End) + "Replace newline char sequence by just one. + +URL `http://xahlee.info/emacs/emacs/emacs_reformat_lines.html' +Version: 2021-07-06" + (interactive "r") + (save-excursion + (save-restriction + (narrow-to-region Begin End) + (goto-char (point-min)) + (while (re-search-forward "\n\n+" nil :move) (replace-match "\n"))))) + +(defun xah-reformat-whitespaces-to-one-space (Begin End) + "Replace whitespaces by one space. + +URL `http://xahlee.info/emacs/emacs/emacs_reformat_lines.html' +Created: 2017-01-11 +Version: 2022-01-08" + (interactive "r") + (save-restriction + (narrow-to-region Begin End) + (goto-char (point-min)) + (while (search-forward "\n" nil :move) (replace-match " ")) + (goto-char (point-min)) + (while (search-forward "\t" nil :move) (replace-match " ")) + (goto-char (point-min)) + (while (re-search-forward " +" nil :move) (replace-match " ")) + (goto-char (point-max)))) + +(defun xah-reformat-to-multi-lines ( &optional Begin End MinLength) + "Replace spaces by a newline at ~70 chars, on current block or selection. +If `universal-argument' is called first, ask user for max width. + +URL `http://xahlee.info/emacs/emacs/emacs_reformat_lines.html' +Created: 2018-12-16 +Version: 2025-03-25" + (interactive) + (let ( xbeg xend xminlen ) + (setq xminlen (if MinLength MinLength (if current-prefix-arg (prefix-numeric-value current-prefix-arg) fill-column))) + (if (and Begin End) + (setq xbeg Begin xend End) + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point))))))) + (save-excursion + (save-restriction + (narrow-to-region xbeg xend) + (goto-char (point-min)) + (while (re-search-forward " +" nil :move) + (when (> (- (point) (line-beginning-position)) xminlen) + (replace-match "\n" ))))))) + +(defun xah-reformat-lines (&optional Width) + "Reformat current block or selection into short lines or 1 long line. +When called for the first time, change to one line. Second call change it to multi-lines. Repeated call toggles. +If `universal-argument' is called first, ask user to type max length of line. By default, it is 66. + +Note: this command is different from emacs `fill-region' or `fill-paragraph'. +This command never adds or delete non-whitespace chars. It only exchange whitespace sequence. + +URL `http://xahlee.info/emacs/emacs/emacs_reformat_lines.html' +Created: 2016 +Version: 2025-03-25" + (interactive) + ;; This symbol has a property 'is-long-p, the possible values are t and nil. This property is used to easily determine whether to compact or uncompact, when this command is called again + (let (xisLong xwidth xbeg xend) + (setq xwidth (if Width Width (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 66))) + (setq xisLong (if (eq last-command this-command) (get this-command 'is-long-p) nil)) + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))) + (if current-prefix-arg + (xah-reformat-to-multi-lines xbeg xend xwidth) + (if xisLong + (xah-reformat-to-multi-lines xbeg xend xwidth) + (progn + (xah-reformat-whitespaces-to-one-space xbeg xend)))) + (put this-command 'is-long-p (not xisLong)))) + +(defun xah-reformat-to-sentence-lines () + "Reformat current block or selection into multiple lines by ending period. +Move cursor to the beginning of next text block. +After this command is called, press `xah-repeat-key' to repeat it. + +URL `http://xahlee.info/emacs/emacs/elisp_reformat_to_sentence_lines.html' +Created: 2020-12-02 +Version: 2025-03-25" + (interactive) + (let (xbeg xend) + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))) + (save-restriction + (narrow-to-region xbeg xend) + (goto-char (point-min)) (while (search-forward "。" nil t) (replace-match "。\n")) + ;; (goto-char (point-min)) (while (search-forward " <a " nil t) (replace-match "\n<a ")) + ;; (goto-char (point-min)) (while (search-forward "</a> " nil t) (replace-match "</a>\n")) + (goto-char (point-min)) + (while (re-search-forward "\\([A-Za-z0-9]+\\)[ \t]*\n[ \t]*\\([A-Za-z0-9]+\\)" nil t) + (replace-match "\\1 \\2")) + (goto-char (point-min)) + (while (re-search-forward "\\([,]\\)[ \t]*\n[ \t]*\\([A-Za-z0-9]+\\)" nil t) + (replace-match "\\1 \\2")) + (goto-char (point-min)) + (while (re-search-forward " +" nil t) (replace-match " ")) + (goto-char (point-min)) + (while (re-search-forward "\\([.?!]\\) +\\([(0-9A-Za-z]+\\)" nil t) (replace-match "\\1\n\\2")) + (goto-char (point-max)) + (while (eq (char-before) 32) (delete-char -1)))) + (re-search-forward "\n+" nil :move) + (set-transient-map (let ((xkmap (make-sparse-keymap))) (define-key xkmap (kbd (if (boundp 'xah-repeat-key) xah-repeat-key "m")) this-command) xkmap)) + (set-transient-map (let ((xkmap (make-sparse-keymap))) (define-key xkmap (kbd "DEL") this-command) xkmap))) + +(defun xah-space-to-newline () + "Replace space sequence to a newline char in current block or selection. + +URL `http://xahlee.info/emacs/emacs/emacs_space_to_newline.html' +Created: 2017-08-19 +Version: 2025-03-25" + (interactive) + (let (xbeg xend) + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))) + (save-restriction + (narrow-to-region xbeg xend) + (goto-char (point-min)) + (while (re-search-forward " +" nil t) + (replace-match "\n"))))) + +(defun xah-slash-to-backslash (&optional Begin End) + "Replace slash by backslash on current line or region. +Created: 2021-07-14 +Version: 2021-09-12" + (interactive) + (let (xbeg xend) + (if (and Begin End) + (setq xbeg Begin xend End) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (setq xbeg (line-beginning-position) xend (line-end-position)))) + (save-restriction + (narrow-to-region xbeg xend) + (let ((case-fold-search nil)) + (goto-char (point-min)) + (while (search-forward "/" nil t) + (replace-match "\\\\")))))) + +(defun xah-backslash-to-slash (&optional Begin End) + "Replace backslash by slash on current line or region. +Version: 2021-09-11" + (interactive) + (let (xbeg xend) + (if (and Begin End) + (setq xbeg Begin xend End) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (setq xbeg (line-beginning-position) xend (line-end-position)))) + (save-restriction + (narrow-to-region xbeg xend) + (let ((case-fold-search nil)) + (goto-char (point-min)) + (while (search-forward "\\" nil t) + (replace-match "/")))))) + +(defun xah-double-backslash (&optional Begin End) + "Replace backslash by two backslash on current line or region. +Version: 2021-11-09" + (interactive) + (let (xbeg xend) + (if (and Begin End) + (setq xbeg Begin xend End) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (setq xbeg (line-beginning-position) xend (line-end-position)))) + (save-restriction + (narrow-to-region xbeg xend) + (let ((case-fold-search nil)) + (goto-char (point-min)) + (while (search-forward "\\" nil t) + (replace-match "\\\\\\\\")))))) + +(defun xah-double-backslash-to-single (&optional Begin End) + "Replace double backslash by single backslash on current line or region. +Version: 2021-11-09" + (interactive) + (let (xbeg xend) + (if (and Begin End) + (setq xbeg Begin xend End) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (setq xbeg (line-beginning-position) xend (line-end-position)))) + (save-restriction + (narrow-to-region xbeg xend) + (let ((case-fold-search nil)) + (goto-char (point-min)) + (while (search-forward "\\\\" nil t) + (replace-match "\\\\")))))) + +(defun xah-slash-to-double-backslash (&optional Begin End) + "Replace slash by double backslash on current line or region. +Version: 2021-07-14" + (interactive) + (let (xbeg xend) + (if (and Begin End) + (setq xbeg Begin xend End) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (setq xbeg (line-beginning-position) xend (line-end-position)))) + (save-restriction + (narrow-to-region xbeg xend) + (let ((case-fold-search nil)) + (goto-char (point-min)) + (while (search-forward "/" nil t) + (replace-match "\\\\\\\\")))))) + +(defun xah-double-backslash-to-slash (&optional Begin End) + "Replace double backslash by slash on current line or region. +Version: 2021-07-14" + (interactive) + (let (xbeg xend) + (if (and Begin End) + (setq xbeg Begin xend End) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (setq xbeg (line-beginning-position) xend (line-end-position)))) + (save-restriction + (narrow-to-region xbeg xend) + (let ((case-fold-search nil)) + (goto-char (point-min)) + (while (search-forward "\\\\" nil t) + (replace-match "/")))))) + +(defun xah-comment-dwim () + "Toggle comment in programing language code. + +Like `comment-dwim', but toggle comment if cursor is not at end of line. +If cursor is at end of line, either add comment at the line end or move cursor to start of line end comment. call again to comment out whole line. + +URL `http://xahlee.info/emacs/emacs/emacs_toggle_comment_by_line.html' +Created: 2016-10-25 +Version: 2023-07-10" + (interactive) + (if (region-active-p) + (comment-dwim nil) + (let ((xbegin (line-beginning-position)) + (xend (line-end-position))) + (if (eq xbegin xend) + (progn + (comment-dwim nil)) + (if (eq (point) xend) + (progn + (comment-dwim nil)) + (progn + (comment-or-uncomment-region xbegin xend) + (forward-line ))))))) + +(defun xah-quote-lines (QuoteL QuoteR Sep) + "Add quotes/brackets and separator (comma) to lines. +Act on current block or selection. + +For example, + + cat + dog + cow + +becomes + + \"cat\", + \"dog\", + \"cow\", + +or + + (cat) + (dog) + (cow) + +In lisp code, QuoteL QuoteR Sep are strings. + +URL `http://xahlee.info/emacs/emacs/emacs_quote_lines.html' +Created: 2020-06-26 +Version: 2025-03-25" + (interactive + (let ((xbrackets + '( + "\"QUOTATION MARK\"" + "'APOSTROPHE'" + "(paren)" + "{brace}" + "[square]" + "<greater>" + "`emacs'" + "`markdown`" + "~tilde~" + "=equal=" + "“curly double”" + "‘curly single’" + "‹french angle›" + "«french double angle»" + "「corner」" + "none" + "other" + )) + (xcomma '("comma ," "semicolon ;" "none" "other")) + xbktChoice xsep xsepChoice xquoteL xquoteR) + (let ((completion-ignore-case t)) + (setq xbktChoice (completing-read "Quote to use:" xbrackets nil t nil nil (car xbrackets))) + (setq xsepChoice (completing-read "line separator:" xcomma nil t nil nil (car xcomma)))) + (cond + ((string-equal xbktChoice "none") + (setq xquoteL "" xquoteR "")) + ((string-equal xbktChoice "other") + (let ((xx (read-string "Enter 2 chars, for begin/end quote:"))) + (setq xquoteL (substring xx 0 1) + xquoteR (substring xx 1 2)))) + (t (setq xquoteL (substring xbktChoice 0 1) + xquoteR (substring xbktChoice -1)))) + (setq xsep + (cond + ((string-equal xsepChoice "comma ,") ",") + ((string-equal xsepChoice "semicolon ;") ";") + ((string-equal xsepChoice "none") "") + ((string-equal xsepChoice "other") (read-string "Enter separator:")) + (t xsepChoice))) + (list xquoteL xquoteR xsep))) + (let (xbeg xend (xquoteL QuoteL) (xquoteR QuoteR) (xsep Sep)) + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))) + (save-excursion + (save-restriction + (narrow-to-region xbeg xend) + (goto-char (point-min)) + (catch 'EndReached + (while t + (skip-chars-forward "\t ") + (insert xquoteL) + (end-of-line) + (insert xquoteR xsep) + (if (eq (point) (point-max)) + (throw 'EndReached t) + (forward-char)))))))) + +(defun xah-escape-quotes (Begin End) + "Add slash before double quote in current line or selection. +Double quote is codepoint 34. +See also: `xah-unescape-quotes' +URL `http://xahlee.info/emacs/emacs/elisp_escape_quotes.html' +Version: 2017-01-11" + (interactive + (if (region-active-p) + (list (region-beginning) (region-end)) + (list (line-beginning-position) (line-end-position)))) + (save-excursion + (save-restriction + (narrow-to-region Begin End) + (goto-char (point-min)) + (while (search-forward "\"" nil t) + (replace-match "\\\"" t t))))) + +(defun xah-unescape-quotes (&optional Begin End) + "Replace 「\\\"」 by 「\"」 in current line or selection. +See also: `xah-escape-quotes' + +URL `http://xahlee.info/emacs/emacs/elisp_escape_quotes.html' +Created: 2017-01-11 +Version: 2023-11-02" + (interactive) + (let (xbeg xend) + (if (and Begin End) + (setq xbeg Begin xend End) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (setq xbeg (line-beginning-position) xend (line-end-position)))) + (save-excursion + (save-restriction + (narrow-to-region xbeg xend) + (goto-char (point-min)) + (while (search-forward "\\\"" nil t) + (replace-match "\"" t t)))))) + +(defun xah-cycle-hyphen-lowline-space (&optional Begin End) + "Cycle {hyphen lowline space} chars. + +The region to work on is by this order: + 1. if there is a selection, use that. + 2. If cursor is in a string quote or any type of bracket, and is within current line, work on that region. + 3. else, work on current line. + +After this command is called, press `xah-repeat-key' to repeat it. + +URL `http://xahlee.info/emacs/emacs/elisp_change_space-hyphen_underscore.html' +Created: 2019-02-12 +Version: 2025-01-24" + (interactive) + ;; this function sets a property 'state. Possible values are 0 to length of xcharArray. + (let (xbeg xend xlen + (xcharArray ["-" "_" " "]) + (xregionWasActive-p (region-active-p)) + (xnowState (if (eq last-command this-command) (get 'xah-cycle-hyphen-lowline-space 'state) 0)) + xchangeTo) + (setq + xlen (length xcharArray) + xchangeTo (elt xcharArray xnowState)) + (if (and Begin End) + (setq xbeg Begin xend End) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (let ((xskipChars "^\"<>(){}[]“”‘’‹›«»「」『』【】〖〗《》〈〉〔〕（）")) + (skip-chars-backward xskipChars (line-beginning-position)) + (setq xbeg (point)) + (skip-chars-forward xskipChars (line-end-position)) + (setq xend (point)) + (push-mark xbeg)))) + (save-excursion + (save-restriction + (narrow-to-region xbeg xend) + (goto-char (point-min)) + (while (re-search-forward (elt xcharArray (% (+ xnowState 2) xlen)) (point-max) 1) + (replace-match xchangeTo t t)))) + (when (or (string-equal xchangeTo " ") xregionWasActive-p) + (goto-char xend) + (push-mark xbeg) + (setq deactivate-mark nil)) + (put 'xah-cycle-hyphen-lowline-space 'state (% (+ xnowState 1) xlen))) + (set-transient-map (let ((xkmap (make-sparse-keymap))) (define-key xkmap (kbd (if (boundp 'xah-repeat-key) xah-repeat-key "m")) this-command) xkmap))) + +(defun xah-copy-file-path (&optional DirPathOnlyQ) + "Copy current buffer file path or dired path. +Result is full path. +If `universal-argument' is called first, copy only the dir path. + +If in dired, copy the current or marked files. + +If a buffer is not file and not dired, copy value of `default-directory'. + +URL `http://xahlee.info/emacs/emacs/emacs_copy_file_path.html' +Created: 2018-06-18 +Version: 2024-12-15" + (interactive "P") + (let ((xfpath + (if (eq major-mode 'dired-mode) + (progn + (let ((xresult (mapconcat #'identity + (dired-get-marked-files) "\n"))) + (if (equal (length xresult) 0) + (progn default-directory) + (progn xresult)))) + (or buffer-file-name default-directory)))) + (kill-new + (if DirPathOnlyQ + (progn + (message "Directory copied: %s" (file-name-directory xfpath)) + (file-name-directory xfpath)) + (progn + (message "File path copied: %s" xfpath) + xfpath))))) + +(defun xah-delete-current-text-block () + "Delete the current text block plus blank lines, or selection, and copy to `kill-ring'. + +If cursor is between blank lines, delete following blank lines. + +URL `http://xahlee.info/emacs/emacs/emacs_delete_block.html' +Created: 2017-07-09 +Version: 2024-10-07" + (interactive) + (let (xbeg xend (xp (point))) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (progn + (setq xbeg + (if (re-search-backward "\n[ \t]*\n+" nil :move) + (match-end 0) + (point))) + (goto-char xp) + (setq xend (if (re-search-forward "\n[ \t]*\n+" nil :move) + (match-end 0) + (point-max))))) + (kill-region xbeg xend))) + +(defun xah-copy-to-register-1 () + "Copy current line or selection to register 1. + +See also: +`xah-copy-to-register-1' +`xah-append-to-register-1' +`xah-paste-from-register-1' +`xah-clear-register-1' + +URL `http://xahlee.info/emacs/emacs/elisp_copy-paste_register_1.html' +Created: 2012-07-17 +Version: 2023-08-05" + (interactive) + (let (xbeg xend) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (setq xbeg (line-beginning-position) xend (line-end-position))) + (copy-to-register ?1 xbeg xend) + (message "Copied to register 1: [%s]." (buffer-substring xbeg xend)))) + +(defun xah-append-to-register-1 () + "Append current line or selection to register 1. +When no selection, append current line, with newline char. + +See also: +`xah-copy-to-register-1' +`xah-append-to-register-1' +`xah-paste-from-register-1' +`xah-clear-register-1' + +URL `http://xahlee.info/emacs/emacs/emacs_copy_append.html' +Created: 2015-12-08 +Version: 2023-08-05" + (interactive) + (let (xbeg xend) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (setq xbeg (line-beginning-position) xend (line-end-position))) + (append-to-register ?1 xbeg xend) + (with-temp-buffer (insert "\n") + (append-to-register ?1 (point-min) (point-max))) + (message "Appended to register 1: [%s]." (buffer-substring xbeg xend)))) + +(defun xah-paste-from-register-1 () + "Paste text from register 1. + +See also: +`xah-copy-to-register-1' +`xah-append-to-register-1' +`xah-paste-from-register-1' +`xah-clear-register-1' + +URL `http://xahlee.info/emacs/emacs/elisp_copy-paste_register_1.html' +Created: 2015-12-08 +Version: 2023-04-07" + (interactive) + (when (region-active-p) + (delete-region (region-beginning) (region-end))) + (insert-register ?1 t)) + +(defun xah-clear-register-1 () + "Clear register 1. + +See also: +`xah-copy-to-register-1' +`xah-append-to-register-1' +`xah-paste-from-register-1' +`xah-clear-register-1' + +URL `http://xahlee.info/emacs/emacs/elisp_copy-paste_register_1.html' +Created: 2015-12-08 +Version: 2023-04-07" + (interactive) + (progn + (copy-to-register ?1 (point-min) (point-min)) + (message "Cleared register 1."))) + +;; HHHH------------------------------ +;; insertion commands + +(defun xah-insert-date () + "Insert current date time. +Insert date in this format: yyyy-mm-dd. +If `universal-argument' is called first, prompt for a format to use. +If there is selection, delete it first. + +URL `http://xahlee.info/emacs/emacs/elisp_insert-date-time.html' +Created: 2013-05-10 +Version: 2025-03-07" + (interactive) + (let (xmenu xstyle) + (setq + xmenu + '(("ISO date • 2018-04-12" . (format-time-string "%Y-%m-%d")) + ("all digits datetime • 20180412224611" . (format-time-string "%Y%m%d%H%M%S")) + ("date _ time digits • 2018-04-12_224611" . (format-time-string "%Y-%m-%d_%H%M%S")) + ("ISO datetime full • 2018-04-12T22:46:11-07:00" . + (concat + (format-time-string "%Y-%m-%dT%T") + (funcall (lambda (xx) (format "%s:%s" (substring xx 0 3) (substring xx 3 5))) + (format-time-string "%z")))) + ("ISO datetime w space • 2018-04-12 22:46:11-07:00" . + (concat + (format-time-string "%Y-%m-%d %T") + (funcall + (lambda (xx) (format "%s:%s" (substring xx 0 3) (substring xx 3 5))) + (format-time-string "%z")))) + ("ISO date + weekday • 2018-04-12 Thursday" . (format-time-string "%Y-%m-%d %A")) + ("USA date + weekday • Thursday, April 12, 2018" . (format-time-string "%A, %B %d, %Y")) + ("USA date + weekday abbrev • Thu, Apr 12, 2018" . (format-time-string "%a, %b %d, %Y")) + ("USA date • April 12, 2018" . (format-time-string "%B %d, %Y")) + ("USA date abbrev • Apr 12, 2018" . (format-time-string "%b %d, %Y"))) + + xstyle + (if current-prefix-arg + (let ((completion-ignore-case t)) + (completing-read "Style:" xmenu nil t nil nil (caar xmenu))) + (caar xmenu))) + (when (region-active-p) (delete-region (region-beginning) (region-end))) + (insert (eval (cdr (assoc xstyle xmenu)))))) + +(defun xah-insert-bracket-pair (LBracket RBracket &optional WrapMethod) + "Insert brackets around selection, word, at point, and maybe move cursor in between. + + LBracket and RBracket are strings. WrapMethod must be either `line' or `block'. `block' means between empty lines. + +• If there is a active region, wrap around region. +Else +• If WrapMethod is `line', wrap around line. +• If WrapMethod is `block', wrap around block. +Else +• If cursor is at beginning of line and its not empty line and contain at least 1 space, wrap around the line. +• If cursor is at end of a word or buffer, one of the following will happen: + xyz▮ → xyz(▮) + xyz▮ → (xyz▮) if in one of the lisp modes. +• wrap brackets around word if any. e.g. xy▮z → (xyz▮). Or just (▮) + +URL `http://xahlee.info/emacs/emacs/elisp_insert_brackets_by_pair.html' +Created: 2017-01-17 +Version: 2025-03-25" + (if (region-active-p) + (progn + (let ((xbeg (region-beginning)) (xend (region-end))) + (goto-char xend) (insert RBracket) + (goto-char xbeg) (insert LBracket) + (goto-char (+ xend 2)))) + (let (xbeg xend) + (cond + ((eq WrapMethod 'line) + (setq xbeg (line-beginning-position) xend (line-end-position)) + (goto-char xend) + (insert RBracket) + (goto-char xbeg) + (insert LBracket) + (goto-char (+ xend (length LBracket)))) + ((eq WrapMethod 'block) + (save-excursion + (seq-setq (xbeg xend) (if (region-active-p) (list (region-beginning) (region-end)) (list (save-excursion (if (re-search-backward "\n[ \t]*\n" nil 1) (match-end 0) (point))) (save-excursion (if (re-search-forward "\n[ \t]*\n" nil 1) (match-beginning 0) (point)))))) + (goto-char xend) + (insert RBracket) + (goto-char xbeg) + (insert LBracket) + (goto-char (+ xend (length LBracket))))) + ( ; do line. line must contain space + (and + (eq (point) (line-beginning-position)) + (not (eq (line-beginning-position) (line-end-position)))) + (insert LBracket) + (end-of-line) + (insert RBracket)) + ((and + (or ; cursor is at end of word or buffer. i.e. xyz▮ + (looking-at "[^-_[:alnum:]]") + (eq (point) (point-max))) + (not (or + (eq major-mode 'xah-elisp-mode) + (eq major-mode 'emacs-lisp-mode) + (eq major-mode 'lisp-mode) + (eq major-mode 'lisp-interaction-mode) + (eq major-mode 'common-lisp-mode) + (eq major-mode 'clojure-mode) + (eq major-mode 'xah-clojure-mode) + (eq major-mode 'scheme-mode)))) + (progn + (setq xbeg (point) xend (point)) + (insert LBracket RBracket) + (search-backward RBracket))) + (t (progn + ;; wrap around “word”. basically, want all alphanumeric, plus hyphen and underscore, but don't want space or punctuations. Also want chinese chars + ;; 我有一帘幽梦，不知与谁能共。多少秘密在其中，欲诉无人能懂。 + (skip-chars-backward "-_[:alnum:]") + (setq xbeg (point)) + (skip-chars-forward "-_[:alnum:]") + (setq xend (point)) + (goto-char xend) + (insert RBracket) + (goto-char xbeg) + (insert LBracket) + (goto-char (+ xend (length LBracket))))))))) + +(defun xah-insert-paren () (interactive) (xah-insert-bracket-pair "(" ")")) +(defun xah-insert-square-bracket () (interactive) (xah-insert-bracket-pair "[" "]")) +(defun xah-insert-brace () (interactive) (xah-insert-bracket-pair "{" "}")) + +(defun xah-insert-ascii-double-quote () (interactive) (xah-insert-bracket-pair "\"" "\"")) +(defun xah-insert-ascii-single-quote () (interactive) (xah-insert-bracket-pair "'" "'")) +(defun xah-insert-ascii-angle-bracket () (interactive) (xah-insert-bracket-pair "<" ">")) + +(defun xah-insert-emacs-quote () (interactive) (xah-insert-bracket-pair "`" "'")) +(defun xah-insert-markdown-quote () (interactive) (xah-insert-bracket-pair "`" "`")) +(defun xah-insert-markdown-triple-quote () (interactive) (xah-insert-bracket-pair "```\n" "\n```")) + +(defun xah-insert-double-curly-quote“” () (interactive) (xah-insert-bracket-pair "“" "”")) +(defun xah-insert-curly-single-quote‘’ () (interactive) (xah-insert-bracket-pair "‘" "’")) +(defun xah-insert-single-angle-quote‹› () (interactive) (xah-insert-bracket-pair "‹" "›")) +(defun xah-insert-double-angle-quote«» () (interactive) (xah-insert-bracket-pair "«" "»")) + +(defun xah-insert-corner-bracket「」 () (interactive) (xah-insert-bracket-pair "「" "」")) +(defun xah-insert-white-corner-bracket『』 () (interactive) (xah-insert-bracket-pair "『" "』")) +(defun xah-insert-angle-bracket〈〉 () (interactive) (xah-insert-bracket-pair "〈" "〉")) +(defun xah-insert-double-angle-bracket《》 () (interactive) (xah-insert-bracket-pair "《" "》")) +(defun xah-insert-white-lenticular-bracket〖〗 () (interactive) (xah-insert-bracket-pair "〖" "〗")) +(defun xah-insert-black-lenticular-bracket【】 () (interactive) (xah-insert-bracket-pair "【" "】")) +(defun xah-insert-tortoise-shell-bracket〔〕 () (interactive) (xah-insert-bracket-pair "〔" "〕")) +(defun xah-insert-deco-angle-bracket❮❯ () (interactive) (xah-insert-bracket-pair "❮" "❯")) +(defun xah-insert-deco-angle-fat-bracket❰❱ () (interactive) (xah-insert-bracket-pair "❰" "❱")) + +(defun xah-insert-hyphen () + "Insert a HYPHEN-MINUS character." + (interactive) + (insert "-")) + +(defun xah-insert-low-line () + "Insert a LOW LINE character." + (interactive) + (insert "_")) + +(defun xah-insert-string-assignment () + "Insert =\"\"" + (interactive) + (progn (insert "=\"\"") + (left-char))) + +(defun xah-insert-space-before () + "Insert space before cursor." + (interactive) + (insert " ")) + +(defun xah-insert-space-after () + "Insert space after cursor" + (interactive) + (insert " ") + (left-char)) + +(defun xah-insert-seperator () + "Insert a visual seperator line." + (interactive) + (cond + ((and buffer-file-name (string-equal "html" (file-name-extension buffer-file-name))) (insert "<hr />\n")) + ((not comment-start) + (insert "\nHHHH------------------------------\n")) + (t (insert "\nHHHH------------------------------\n") + (backward-char) + (comment-line 1)))) + +(defvar xah-unicode-list nil + "A alist. +Each item is (prompStr . xString). Used by `xah-insert-unicode'. +prompStr is used for prompt. +xString is is the char to insert. +xString can be multiple chars or any string. +") + +(setq + xah-unicode-list + '( + ;; + ("smile beaming 😊" . "😊") + ("tears of joy" . "😂") + ("hug 🤗" . "🤗") + ("heart eyes 😍" . "😍") + ("heart face 🥰" . "🥰") + ("angry 😠" . "😠") + ("vomit 🤮" . "🤮") + ("thumb up 👍" . "👍") + ("thumb down 👎" . "👎") + ("tv 📺" . "📺") + ("checkmark ✅" . "✅") + ("new 🆕" . "🆕") + ("glowing star 🌟" . "🌟") + ("star ⭐" . "⭐") + ("sparkles ✨" . "✨") + ("rocket 🚀" . "🚀") + ("sun 🌞" . "🌞") + ("heart 🧡" . "🧡") + ("clown 🤡" . "🤡") + ("large circle" . "⭕") + ("cross ❌" . "❌") + ("red triangle 🔺" . "🔺") + ("diamond 💠" . "💠") + ("square ⬛" . "⬛") + ("script 📜" . "📜") + ("package 📦" . "📦") + ("cursor ▮" . "▮") + ("music 🎵" . "🎵") + + ("dagger †" . "†") + ("double dagger ‡" . "‡") + + ("double angle bracket" . "《》") + ("black lenticular bracket" . "【】") + ("corner-bracket" . "「」") + ("tortoise shell bracket" . "〔〕") + ("angle bracket" . "〈〉") + ("double angle quote" . "«»") + + ("bullet •" . "•") + ("diamond ◆" . "◆") + ("...ellipsis …" . "…") + ("nbsp non breaking space" . " ") + ("chinese comma 、" . "、") + ("emdash —" . "—") + ("fullwidth ampersand ＆" . "＆") + ("left arrow ←" . "←") + ("right arrow →" . "→") + ("up arrow ↑" . "↑") + ("down arrow ↓" . "↓") + ("f hook ƒ" . "ƒ") + ("chinese space" . "　") + + ;; + )) + +(defun xah-insert-unicode () + "Insert a unicode from a custom list `xah-unicode-list'. +URL `http://xahlee.info/emacs/emacs/emacs_insert_unicode.html' +Created: 2021-01-05 +Version: 2023-09-19" + (interactive) + (let ((xkey + (let ((completion-ignore-case t)) + (completing-read "Insert:" xah-unicode-list nil t)))) + (insert (cdr (assoc xkey xah-unicode-list))))) + +;; HHHH------------------------------ +;; text selection + +(defun xah-select-block () + "Select the current/next block plus 1 blankline. +If region is active, extend selection downward by block. + +URL `http://xahlee.info/emacs/emacs/emacs_select_text_block.html' +Created: 2019-12-26 +Version: 2023-11-14" + (interactive) + (if (region-active-p) + (re-search-forward "\n[ \t]*\n[ \t]*\n*" nil :move) + (progn + (skip-chars-forward " \n\t") + (when (re-search-backward "\n[ \t]*\n" nil :move) + (goto-char (match-end 0))) + (push-mark (point) t t) + (re-search-forward "\n[ \t]*\n" nil :move)))) + +(defun xah-select-line () + "Select current line. If region is active, extend selection downward by line. +If `visual-line-mode' is on, consider line as visual line. + +URL `http://xahlee.info/emacs/emacs/emacs_select_line.html' +Created: 2017-11-01 +Version: 2023-11-14" + (interactive) + (if (region-active-p) + (if visual-line-mode + (let ((xbeg (point))) + (end-of-visual-line 1) + (when (eq xbeg (point)) + (end-of-visual-line 2))) + (progn + (forward-line 1) + (end-of-line))) + (if visual-line-mode + (progn (beginning-of-visual-line) + (push-mark (point) t t) + (end-of-visual-line)) + (progn + (push-mark (line-beginning-position) t t) + (end-of-line))))) + +(defun xah-extend-selection () + "Select the current word, bracket/quote expression, or expand selection. +Subsequent calls expands the selection. + +when there is no selection, +• If cursor is on any type of bracket (including parenthesis, quotation mark), select whole bracketed thing including bracket +• else, select current word. + +when there is a selection, the selection extension behavior is still experimental. But when cursor is on a any type of bracket (parenthesis, quote), it extends selection to outer bracket. + +URL `http://xahlee.info/emacs/emacs/emacs_extend_selection.html' +Created: 2020-02-04 +Version: 2023-11-14" + (interactive) + + (cond + ((region-active-p) + (let ((xbeg (region-beginning)) (xend (region-end))) + (goto-char xbeg) + (cond + ((looking-at "\\s(") + (if (eq (nth 0 (syntax-ppss)) 0) + (progn + ;; (message "debug: left bracket, depth 0.") + (end-of-line) ; select current line + (push-mark (line-beginning-position) t t)) + (progn + ;; (message "debug: left bracket, depth not 0") + (up-list -1 t t) + (mark-sexp)))) + ((eq xbeg (line-beginning-position)) + (progn + (goto-char xbeg) + (let ((xfirstLineEndPos (line-end-position))) + (cond + ((eq xend xfirstLineEndPos) + (progn + ;; (message "debug: exactly 1 line. extend to next whole line." ) + (forward-line 1) + (end-of-line))) + ((< xend xfirstLineEndPos) + (progn + ;; (message "debug: less than 1 line. complete the line." ) + (end-of-line))) + ((> xend xfirstLineEndPos) + (progn + ;; (message "debug: beginning of line, but end is greater than 1st end of line" ) + (goto-char xend) + (if (eq (point) (line-end-position)) + (progn + ;; (message "debug: exactly multiple lines" ) + (forward-line 1) + (end-of-line)) + (progn + ;; (message "debug: multiple lines but end is not eol. make it so" ) + (goto-char xend) + (end-of-line))))) + (t (error "%s: logic error 42946" real-this-command)))))) + ((and (> (point) (line-beginning-position)) (<= (point) (line-end-position))) + (progn + ;; (message "debug: less than 1 line" ) + (end-of-line) ; select current line + (push-mark (line-beginning-position) t t))) + (t + ;; (message "debug: last resort" ) + nil)))) + + ((looking-at "\\s(") + ;; (message "debug: left bracket") + (mark-sexp)) + + ((looking-at "\\s)") + ;; (message "debug: right bracket") + (backward-up-list) (mark-sexp)) + + ((looking-at "\\s\"") + ;; (message "debug: string quote") + (mark-sexp)) + + ((looking-at "[ \t\n]") + ;; (message "debug: is white space") + (skip-chars-backward " \t\n") + (push-mark) + (skip-chars-forward " \t\n") + (setq mark-active t)) + + ((looking-at "[-_a-zA-Z0-9]") + ;; (message "debug: left is word or symbol") + (skip-chars-backward "-_a-zA-Z0-9") + (push-mark) + (skip-chars-forward "-_a-zA-Z0-9") + (setq mark-active t)) + + ;; ((and (looking-at "[[:blank:]]") + ;; (prog2 (backward-char) (looking-at "[[:blank:]]") (forward-char))) + ;; ;; (message "debug: left and right both space" ) + ;; (skip-chars-backward "[[:blank:]]") (push-mark (point) t t) + ;; (skip-chars-forward "[[:blank:]]")) + + ((and (looking-at "\n") + (eq (char-before) 10)) + ;; (message "debug: left and right both newline") + (skip-chars-forward "\n") + (push-mark (point) t t) + (re-search-forward "\n[ \t]*\n")) + + (t + ;; (message "debug: just mark sexp" ) + (mark-sexp) + (exchange-point-and-mark)))) + +(defun xah-select-text-in-quote () + "Select text between the nearest left and right delimiters. +Delimiters here includes QUOTATION MARK, GRAVE ACCENT, and anything in variable `xah-brackets'. +This command ignores nesting. For example, if text is +「(a(b)c▮)」 +the selected char is 「c」, not 「a(b)c」. + +URL `http://xahlee.info/emacs/emacs/emacs_select_quote_text.html' +Created: 2020-11-24 +Version: 2023-11-14" + (interactive) + (let ((xskipChars (concat "^\"`" (mapconcat #'identity xah-brackets "")))) + (skip-chars-backward xskipChars) + (push-mark (point) t t) + (skip-chars-forward xskipChars))) + +(defun xah-cut-text-in-quote () + "Cut text between the nearest left and right delimiters. +See `xah-select-text-in-quote' + +Created: 2023-07-23 +Version: 2024-10-02" + (interactive) + (let (xbeg xend + (xskipChars (concat "^\"`" (mapconcat #'identity xah-brackets "")))) + (skip-chars-backward xskipChars) + (setq xbeg (point)) + (skip-chars-forward xskipChars) + (setq xend (point)) + (kill-region xbeg xend))) + +;; HHHH------------------------------ +;; misc + +(defvar xah-fly-switch-buffer-map nil "repeat key map for `xah-next-user-buffer' etc.") +(setq xah-fly-switch-buffer-map + (let ((xkmap (make-sparse-keymap))) + (define-key xkmap (kbd "<up>") 'xah-previous-emacs-buffer) + (define-key xkmap (kbd "<down>") 'xah-next-emacs-buffer) + (define-key xkmap (kbd "<left>") 'xah-previous-user-buffer) + (define-key xkmap (kbd "<right>") 'xah-next-user-buffer) + xkmap)) + +(defun xah-user-buffer-p () + "Return t if current buffer is a user buffer, else nil. +A user buffer has buffer name NOT starts with * or space, and is not dired mode, help mode, etc. +This function is used by buffer switching command and close buffer command, so that next buffer shown is a user buffer. +You can override this function to get your idea of “user buffer”. +Created: 2016-06-18 +Version: 2024-09-23" + (interactive) + (cond + ((string-match "^\*" (buffer-name)) nil) + ((eq major-mode 'dired-mode) nil) + ((eq major-mode 'eww-mode) nil) + ((eq major-mode 'help-mode) nil) + (t t))) + +(defun xah-next-user-buffer () + "Switch to the next user buffer. +User Buffer here is determined by `xah-user-buffer-p'. + +Press left or right arrow key to switch to prev next user. +Press up or down arrow to switch to prev next emacs buffer. +Any other key to exit. + +URL `http://xahlee.info/emacs/emacs/elisp_next_prev_user_buffer.html' +Created: 2016-06-19 +Version: 2024-09-23" + (interactive) + (next-buffer) + (let ((i 0)) + (while (< i 30) + (if (not (xah-user-buffer-p)) + (progn (next-buffer) + (setq i (1+ i))) + (progn (setq i 100))))) + (set-transient-map xah-fly-switch-buffer-map)) + +(defun xah-previous-user-buffer () + "Switch to the previous user buffer. +User Buffer here is determined by `xah-user-buffer-p'. + +Press left or right arrow key to switch to prev next user. +Press up or down arrow to switch to prev next emacs buffer. +Any other key to exit. + +URL `http://xahlee.info/emacs/emacs/elisp_next_prev_user_buffer.html' +Created: 2016-06-19 +Version: 2024-05-01" + (interactive) + (previous-buffer) + (let ((i 0)) + (while (< i 29) + (if (not (xah-user-buffer-p)) + (progn (previous-buffer) + (setq i (1+ i))) + (progn (setq i 100))))) + (set-transient-map xah-fly-switch-buffer-map)) + +(defun xah-next-emacs-buffer () + "Switch to the next emacs buffer. +Emacs buffer here means `xah-user-buffer-p' return nil. + +Press left or right arrow key to switch to prev next user. +Press up or down arrow to switch to prev next emacs buffer. +Any other key to exit. + +URL `http://xahlee.info/emacs/emacs/elisp_next_prev_user_buffer.html' +Created: 2013-05-22 +Version: 2024-09-16" + (interactive) + (next-buffer) + (let ((i 0)) + (while (and (xah-user-buffer-p) (< i 20)) + (setq i (1+ i)) (next-buffer))) + (set-transient-map xah-fly-switch-buffer-map)) + +(defun xah-previous-emacs-buffer () + "Switch to the previous emacs buffer. +Emacs buffer here means `xah-user-buffer-p' return nil. + +Press left or right arrow key to switch to prev next user. +Press up or down arrow to switch to prev next emacs buffer. +Any other key to exit. + +URL `http://xahlee.info/emacs/emacs/elisp_next_prev_user_buffer.html' +Created: 2013-05-22 +Version: 2024-09-16" + (interactive) + (previous-buffer) + (let ((i 0)) + (while (and (xah-user-buffer-p) (< i 20)) + (setq i (1+ i)) (previous-buffer))) + (set-transient-map xah-fly-switch-buffer-map)) + +(defun xah-new-empty-buffer () + "Create a new empty buffer. +Returns the buffer object. +New buffer is named untitled, untitled<2>, etc. + +Warning: new buffer is not prompted for save when killed, see `kill-buffer'. +Or manually `save-buffer' + +URL `http://xahlee.info/emacs/emacs/emacs_new_empty_buffer.html' +Created: 2017-11-01 +Version: 2022-04-05" + (interactive) + (let ((xbuf (generate-new-buffer "untitled"))) + (switch-to-buffer xbuf) + (funcall initial-major-mode) + xbuf + )) + +(declare-function minibuffer-keyboard-quit "delsel" ()) +(declare-function org-edit-src-save "org-src" ()) + +(defcustom xah-recently-closed-buffers-max 40 "The maximum length for `xah-recently-closed-buffers'." + :type 'integer) + +(defvar xah-recently-closed-buffers nil "A Alist of recently closed buffers. +Each element is (bufferName . filePath). +The max number to track is controlled by the variable `xah-recently-closed-buffers-max'.") + +(defun xah-add-to-recently-closed (&optional BufferName BufferFileName) + "Add to `xah-recently-closed-buffers'. +Version: 2023-03-02" + (let ((xbn (if BufferName BufferName (buffer-name))) + (xbfn (if BufferFileName BufferFileName buffer-file-name))) + (setq xah-recently-closed-buffers (cons (cons xbn xbfn) xah-recently-closed-buffers))) + (when (> (length xah-recently-closed-buffers) xah-recently-closed-buffers-max) + (setq xah-recently-closed-buffers (butlast xah-recently-closed-buffers 1)))) + +(defvar xah-create-buffer-backup nil "If true, `xah-close-current-buffer' creates a backup file when closing non-file buffer. Version: 2024-11-09") + +(setq xah-create-buffer-backup t) + +(defvar xah-temp-dir-path nil "Path to temp dir used by xah commands. +by default, the value is dir named temp at `user-emacs-directory'. +Version: 2023-03-21") + +(setq xah-temp-dir-path (concat user-emacs-directory "temp/")) + +(defun xah-close-current-buffer () + "Close the current buffer with possible backup. + +• If the buffer is a file and not modified, kill it. If is modified, do nothing. Print a message. +• If the buffer is not a file, and variable `xah-create-buffer-backup' is true, then save a backup to `xah-temp-dir-path' named untitled_‹datetime›_‹randomhex›.txt. + +If `universal-argument' is called first, call `kill-buffer'. (this is useful to force kill.) + +If the buffer is a file, add the path to the list `xah-recently-closed-buffers'. + +URL `http://xahlee.info/emacs/emacs/elisp_close_buffer_open_last_closed.html' +Created: 2016-06-19 +Version: 2024-11-09" + (interactive) + (widen) + (cond + (current-prefix-arg (kill-buffer)) + ;; ((eq major-mode 'minibuffer-inactive-mode) (minibuffer-keyboard-quit)) + ;; ((active-minibuffer-window) (minibuffer-keyboard-quit)) + ((minibufferp (current-buffer)) (minibuffer-keyboard-quit)) + + ((eq major-mode 'dired-mode) + (xah-add-to-recently-closed (buffer-name) default-directory) + (kill-buffer)) + + ((and buffer-file-name (not (buffer-modified-p))) + (xah-add-to-recently-closed (buffer-name) buffer-file-name) + (kill-buffer)) + + ((and buffer-file-name (buffer-modified-p)) + (message "buffer file modified. Save it first.\n%s" buffer-file-name)) + ((and xah-create-buffer-backup (not buffer-file-name) (xah-user-buffer-p) (not (eq (point-max) 1))) + (let ((xnewName (format "%suntitled_%s_%x.txt" + xah-temp-dir-path + (format-time-string "%Y%m%d_%H%M%S") + (random #xfffff)))) + (when (not (file-exists-p xah-temp-dir-path)) (make-directory xah-temp-dir-path)) + (write-region (point-min) (point-max) xnewName) + (xah-add-to-recently-closed (buffer-name) xnewName) + (kill-buffer))) + (t (kill-buffer)))) + +(defun xah-open-last-closed () + "Open the last closed file. +URL `http://xahlee.info/emacs/emacs/elisp_close_buffer_open_last_closed.html' +Created: 2016-06-19 +Version: 2022-03-22" + (interactive) + (if (> (length xah-recently-closed-buffers) 0) + (find-file (cdr (pop xah-recently-closed-buffers))) + (progn (message "No recently close buffer in this session.")))) + +(defun xah-open-recently-closed () + "Open recently closed file. +Prompt for a choice. + +URL `http://xahlee.info/emacs/emacs/elisp_close_buffer_open_last_closed.html' +Created: 2016-06-19 +Version: 2023-09-19" + (interactive) + (find-file + (let ((completion-ignore-case t)) + (completing-read + "Open:" + (mapcar (lambda (f) (cdr f)) xah-recently-closed-buffers) + nil t + )))) + +(defun xah-list-recently-closed () + "List recently closed file. + +URL `http://xahlee.info/emacs/emacs/elisp_close_buffer_open_last_closed.html' +Version: 2016-06-19" + (interactive) + (let ((xbuf (generate-new-buffer "*recently closed*"))) + (switch-to-buffer xbuf) + (mapc (lambda (xf) (insert (cdr xf) "\n")) + xah-recently-closed-buffers))) + +(defvar xah-open-file-at-cursor-pre-hook nil "Hook for `xah-open-file-at-cursor'. +Functions in the hook is called in order, each given the raw input text (path) as arg. +The first return non-nil, its value is given to `xah-open-file-at-cursor' as input. rest functions in hook is ignored. +This is useful for transforming certain url into file path. e.g. change +http://xahlee.info/emacs/index.html +to +C:/Users/xah/web/xahlee_info/emacs/index.html +, so instead of opening in browser, it opens in emacs as file.") + +(defun xah-open-file-at-cursor () + "Open the file path under cursor. + +• If there is selection, use it for path. +• Path can be {relative, full path, URL}. +• If the path starts with 「https*://」, open the URL in browser. +• Path may have a trailing 「:‹n›」 that indicates line number, or 「:‹n›:‹m›」 with line and column number. If so, jump to that line number. + +If path does not have a file extension, automatically try with .el for elisp files. + +See also `xah-open-file-at-cursor-pre-hook'. + +This command is similar to `find-file-at-point' but without prompting for confirmation. + +URL `http://xahlee.info/emacs/emacs/emacs_open_file_path_fast.html' +Created: 2020-10-17 +Version: 2024-09-25" + (interactive) + (let (xinput xinput2 xpath) + (setq xinput (if (region-active-p) + (buffer-substring-no-properties (region-beginning) (region-end)) + (let ((xp0 (point)) xbeg xend + (xpathStops "^  \t\n\"`'‘’“”|()[]{}「」<>〔〕〈〉《》【】〖〗«»‹›❮❯❬❭〘〙·。\\")) + (skip-chars-backward xpathStops) + (setq xbeg (point)) + (goto-char xp0) + (skip-chars-forward xpathStops) + (setq xend (point)) + (goto-char xp0) + (buffer-substring-no-properties xbeg xend)))) + (setq xinput2 (if (> (length xah-open-file-at-cursor-pre-hook) 0) + (let ((xprehook (run-hook-with-args-until-success 'xah-open-file-at-cursor-pre-hook xinput))) + (if xprehook xprehook xinput)) + xinput)) + + (setq xpath + (cond + ((string-match "\\`file:///[A-Za-z]:/" xinput2) (substring xinput2 8)) + ((string-match "\\`file://[A-Za-z]:/" xinput2) (substring xinput2 7)) + (t xinput2))) + + (if (string-match-p "\\`https?://" xpath) + (browse-url xpath) + (let ((xpathNoQ + (let ((xHasQuery (string-match "\?[a-z]+=" xpath))) + (if xHasQuery + (substring xpath 0 xHasQuery) + xpath)))) + (cond + ((string-match "#" xpathNoQ) + (let ((xfpath (substring xpathNoQ 0 (match-beginning 0))) + (xfractPart (substring xpathNoQ (1+ (match-beginning 0))))) + (if (file-exists-p xfpath) + (progn + (find-file xfpath) + (goto-char (point-min)) + (search-forward xfractPart)) + (progn + (message "File does not exist. Created at\n%s" xfpath) + (find-file xfpath))))) + ((string-match "\\`\\(.+?\\):\\([0-9]+\\)\\(:[0-9]+\\)?\\'" xpathNoQ) + (let ((xfpath (match-string-no-properties 1 xpathNoQ)) + (xlineNum (string-to-number (match-string-no-properties 2 xpathNoQ)))) + (if (file-exists-p xfpath) + (progn + (find-file xfpath) + (goto-char (point-min)) + (forward-line (1- xlineNum))) + (progn + (message "File does not exist. Created at\n%s" xfpath) + (find-file xfpath))))) + ((file-exists-p xpathNoQ) + (progn ; open f.ts instead of f.js + (let ((xext (file-name-extension xpathNoQ)) + (xfnamecore (file-name-sans-extension xpathNoQ))) + (if (and (string-equal xext "js") + (file-exists-p (concat xfnamecore ".ts"))) + (progn + (find-file (concat xfnamecore ".ts")) + (warn "Typescript file .ts exist, opening it")) + + (find-file xpathNoQ))))) + ((file-exists-p (concat xpathNoQ ".el")) + (find-file (concat xpathNoQ ".el"))) + (t (progn + (message "File does not exist. Created at\n%s" xpathNoQ) + (find-file xpathNoQ)))))))) + +;; HHHH------------------------------ + +(defvar xah-run-current-file-dispatch nil +"A dispatch table used by `xah-run-current-file' to call dedicated function to run code. +Value is a association list. +Each item is (EXT . FUNCTION). +EXT is filename extension (sans the dot), type string. +FUNCTION is a elisp function name to call, type symbol. +If file extension match, and FUNCTION is defined, call it, pass current buffer's filepath as arg. +Else, `xah-run-current-file-map' is looked up." ) + +(setq xah-run-current-file-dispatch + '(("el" . load) + ("elc" . load) + ("java" . xah-java-compile-and-run))) + +(defvar xah-run-current-file-map + "A association list that maps file extension to a command for running the file, used by `xah-run-current-file'. +Each item is (EXT . PROGRAM). +EXT is filename extension (sans the dot), type string. +PROGRAM is program name or path, with command options to run a file, type string. +A filename is appended after the PROGRAM string as external command to call.") + +(setq xah-run-current-file-map + '( + ;; following are tested as of 2024-12-20 + + ("fs" . "dotnet fsi") + ("fsx" . "dotnet fsi") + ("go" . "go run") + ("js" . "deno run") + ("php" . "php") + ("pl" . "perl") + ("ps1" . "pwsh") + ("py" . "python") + ("py2" . "python2") + ("py3" . "python3") + ("rb" . "ruby") + ("ts" . "deno run") + ("m" . "wolframscript -print all -file") + ("wl" . "wolframscript -print all -file") + ("wls" . "wolframscript -print all -file") + + ;; following may be outdated + + ("clj" . "clj") + ("hs" . "runhaskell") + ("latex" . "pdflatex") + ("ml" . "ocaml") + ("rkt" . "racket") + ("sh" . "bash") + ("tex" . "pdflatex") + ("tsx" . "tsc") + ("vbs" . "cscript") + ("pov" . "povray +R2 +A0.1 +J1.2 +Am2 +Q9 +H480 +W640"))) + +(defun xah-java-compile-and-run (Filename) + "Compile and run java of current buffer. +Buffer is saved first if modified. + +This command is designed for a simple single java class source file. +requires the commands 「javac」 and 「java」. + +If compile fails, the error is displayed in a buffer. + +Created: 2024-12-20 +Version: 2024-12-20" + (interactive (if buffer-file-name (progn (when (buffer-modified-p) (save-buffer)) (list buffer-file-name)) (user-error "Buffer is not file. Save it first."))) + (let ((xoutbuf (get-buffer-create "*xah java output*" t)) + (xjavac-buf (get-buffer-create "*xah java compile output*" t))) + (with-current-buffer xjavac-buf (erase-buffer)) + (call-process "javac" nil xjavac-buf nil Filename) + (if (eq 1 (with-current-buffer xjavac-buf (point-max))) + (progn + (save-current-buffer (set-buffer xoutbuf) (erase-buffer)) + (call-process "java" nil xoutbuf nil (file-name-nondirectory (file-name-sans-extension Filename))) + (display-buffer xoutbuf)) + (display-buffer xjavac-buf)))) + +(defun xah-run-current-file (Filename) + "Execute the current file. +Output is printed to buffer *xah-run output*. + +File suffix is used to determine what external command to run, in the variable `xah-run-current-file-map'. + +If file is modified, it is auto saved before run. + +The variable `xah-run-current-file-dispatch' allows you to customize this command to call other function to run the current file. + +URL `http://xahlee.info/emacs/emacs/elisp_run_current_file.html' +Created: 2020-09-24 +Version: 2024-12-25" + (interactive (if buffer-file-name (progn (when (buffer-modified-p) (save-buffer)) (list buffer-file-name)) (user-error "Buffer is not file. Save it first."))) + (let ((xoutbuf (get-buffer-create "*xah-run output*" t)) + (xext (file-name-extension Filename)) + xdispatch) + (setq xdispatch (assoc xext xah-run-current-file-dispatch)) + (if xdispatch + (if (fboundp (cdr xdispatch)) + (progn + (message "calling %s" (cdr xdispatch)) + (funcall (cdr xdispatch) Filename)) + (warn "`xah-run-current-file' found function %s in xah-run-current-file-dispatch but it is unbound. Normal run continues using `xah-run-current-file-map'." xdispatch)) + (let ((xappCmdStr (cdr (assoc xext xah-run-current-file-map)))) + (when (not xappCmdStr) (error "%s: Unknown file extension: %s. check `xah-run-current-file-map'" real-this-command xext)) + (progn + (save-current-buffer (set-buffer xoutbuf) (erase-buffer)) + (apply 'start-process (append (list "xah-run" xoutbuf) (split-string xappCmdStr " +" t) (list Filename) nil)) + ;; (display-buffer xoutbuf) + (pop-to-buffer xoutbuf) + ;; (with-current-buffer xoutbuf (goto-char (point-min))) + ))))) + +(defun xah-clean-empty-lines () + "Replace repeated blank lines to just 1, in whole buffer or selection. +Respects `narrow-to-region'. + +URL `http://xahlee.info/emacs/emacs/elisp_compact_empty_lines.html' +Created: 2017-09-22 +Version: 2020-09-08" + (interactive) + (let (xbegin xend) + (if (region-active-p) + (setq xbegin (region-beginning) xend (region-end)) + (setq xbegin (point-min) xend (point-max))) + (save-excursion + (save-restriction + (narrow-to-region xbegin xend) + (progn + (goto-char (point-min)) + (while (re-search-forward "\n\n\n+" nil :move) + (replace-match "\n\n"))))))) + +(defun xah-clean-whitespace () + "Delete trailing whitespace, and replace repeated blank lines to just 1. +Only space and tab is considered whitespace here. +Works on whole buffer or selection, respects `narrow-to-region'. + +URL `http://xahlee.info/emacs/emacs/elisp_compact_empty_lines.html' +Created: 2017-09-22 +Version: 2022-08-06" + (interactive) + (let (xbegin xend) + (if (region-active-p) + (setq xbegin (region-beginning) xend (region-end)) + (setq xbegin (point-min) xend (point-max))) + (save-excursion + (save-restriction + (narrow-to-region xbegin xend) + (goto-char (point-min)) + (while (re-search-forward "[ \t]+\n" nil :move) (replace-match "\n")) + (goto-char (point-min)) + (while (re-search-forward "\n\n\n+" nil :move) (replace-match "\n\n")) + (goto-char (point-max)) + (while (eq (char-before) 32) (delete-char -1))))) + (message "%s done" real-this-command)) + +(defun xah-make-backup () + "Make a backup copy of current file or dired marked files. +If in dired, backup current file or marked files. + +The backup file name is the original name with the datetime .yyyymmddhhmmss~ appended. + +Overwrite existing file. + +If the current buffer is not associated with a file, do nothing. + +URL `http://xahlee.info/emacs/emacs/elisp_make-backup.html' +Created: 2018-06-06 +Version: 2024-10-21" + (interactive) + (let ((xfname buffer-file-name) + (xtimestamp (format-time-string "%Y%m%d%H%M%S"))) + (if xfname + (let ((xbackupName + (concat xfname "." xtimestamp "~"))) + (copy-file xfname xbackupName t) + (message (concat "\nBackup saved at: " xbackupName))) + (if (eq major-mode 'dired-mode) + (progn + (mapc (lambda (xx) + (let ((xbackupName + (concat xx "." xtimestamp "~"))) + (copy-file xx xbackupName t))) + (dired-get-marked-files)) + (revert-buffer)) + (user-error "%s: buffer not file nor dired" real-this-command))))) + +(defun xah-make-backup-and-save () + "Backup of current file and save, or backup dired marked files. +For detail, see `xah-make-backup'. +If the current buffer is not associated with a file nor dired, nothing's done. + +URL `http://xahlee.info/emacs/emacs/elisp_make-backup.html' +Version: 2015-10-14" + (interactive) + (if buffer-file-name + (progn + (xah-make-backup) + (when (buffer-modified-p) + (save-buffer))) + (progn + (xah-make-backup)))) + +(defun xah-delete-current-file-make-backup () + "Makes a backup~, delete current file, close the buffer. + +Backup filename is ‹name›.‹dateTimeStamp›~ +Overwrite existing file. + +If buffer is not a file, copy content to `kill-ring', delete buffer. + +If buffer is not a file, the backup file name starts with “xx_”. + +Call `xah-open-last-closed' to open the backup file. + +URL `http://xahlee.info/emacs/emacs/elisp_delete-current-file.html' +Created: 2018-05-15 +Version: 2024-10-21" + (interactive) + (when (eq major-mode 'dired-mode) + (user-error "%s: In dired. Nothing is done." real-this-command)) + (let ((xfname buffer-file-name) + (xbuffname (buffer-name))) + (if xfname + (let ((xbackupPath + (concat + xfname "." + (format-time-string "%Y%m%d%H%M%S") "~"))) + (save-buffer xfname) + (kill-buffer xbuffname) + (rename-file xfname xbackupPath t) + (message "File deleted. +Backup at +%s +Call `xah-open-last-closed' to open." xbackupPath) + (when (boundp 'xah-recently-closed-buffers) + (push (cons nil xbackupPath) xah-recently-closed-buffers))) + (progn + (widen) + (kill-new (buffer-string)) + (kill-buffer xbuffname) + (message "non-file buffer killed. buffer text copied to `kill-ring'.")))) + (when (eq major-mode 'dired-mode) (revert-buffer))) + +;; HHHH------------------------------ + +(defun xah-search-current-word () + "Call `isearch' on current word or selection. +“word” here is A to Z, a to z, and hyphen [-] and lowline [_], independent of syntax table. + +URL `http://xahlee.info/emacs/emacs/modernization_isearch.html' +Created: 2010-05-29 +Version: 2025-02-21" + (interactive) + (let (xbeg xend) + (if (region-active-p) + (setq xbeg (region-beginning) xend (region-end)) + (save-excursion + (skip-chars-backward "-_A-Za-z0-9") + (setq xbeg (point)) + (right-char) + (skip-chars-forward "-_A-Za-z0-9") + (setq xend (point)))) + (deactivate-mark) + (when (< xbeg (point)) (goto-char xbeg)) + (isearch-mode t) + (isearch-yank-string (buffer-substring-no-properties xbeg xend)))) + +(declare-function w32-shell-execute "w32fns.c" (operation document &optional parameters show-flag)) ; (w32-shell-execute "open" default-directory) + +(defun xah-show-in-desktop () + "Show current file in desktop. + (Mac Finder, Microsoft Windows File Explorer, Linux file manager) +This command can be called when in a file buffer or in `dired'. + +URL `http://xahlee.info/emacs/emacs/emacs_show_in_desktop.html' +Created: 2020-11-20 +Version: 2023-09-09" + (interactive) + (let ((xpath (if (eq major-mode 'dired-mode) + (if (eq nil (dired-get-marked-files)) + default-directory + (car (dired-get-marked-files))) + (if buffer-file-name buffer-file-name default-directory)))) + (cond + ((eq system-type 'windows-nt) + (shell-command (format "PowerShell -Command invoke-item '%s'" default-directory )) + ;; (let ((xcmd (format "Explorer /select,%s" + ;; (replace-regexp-in-string "/" "\\" xpath t t) + ;; ;; (shell-quote-argument (replace-regexp-in-string "/" "\\" xpath t t )) + ;; ))) + ;; (shell-command xcmd)) + ) + ((eq system-type 'darwin) + (shell-command + (concat "open -R " (shell-quote-argument xpath)))) + ((eq system-type 'gnu/linux) + (call-process shell-file-name nil 0 nil + shell-command-switch + (format "%s %s" + "xdg-open" + (file-name-directory xpath))) + ;; (shell-command "xdg-open .") ;; 2013-02-10 this sometimes froze emacs till the folder is closed. eg with nautilus + )))) + +(defun xah-open-in-vscode () + "Open current file or dir in vscode. +URL `http://xahlee.info/emacs/emacs/emacs_open_in_vscode.html' + +Created: 2020-02-13 +Version: 2024-12-15" + (interactive) + (let ((xpath (or buffer-file-name default-directory))) + (message "path is %s" xpath) + (cond + ((eq system-type 'darwin) + (shell-command (format "open -a Visual\\ Studio\\ Code.app %s" (shell-quote-argument xpath)))) + ((eq system-type 'windows-nt) + (shell-command (format "code.cmd %s" (shell-quote-argument xpath)))) + ((eq system-type 'gnu/linux) + (shell-command (format "code %s" (shell-quote-argument xpath))))))) + +(defun xah-open-in-external-app (&optional Fname) + "Open the current file or dired marked files in external app. +When called in emacs lisp, if Fname is given, open that. + +URL `http://xahlee.info/emacs/emacs/emacs_dired_open_file_in_ext_apps.html' +Created: 2019-11-04 +Version: 2023-06-26" + (interactive) + (let (xfileList xdoIt) + (setq xfileList + (if Fname + (list Fname) + (if (eq major-mode 'dired-mode) + (dired-get-marked-files) + (list buffer-file-name)))) + (setq xdoIt (if (<= (length xfileList) 10) t (y-or-n-p "Open more than 10 files? "))) + (when xdoIt + (cond + ((eq system-type 'windows-nt) + (let ((xoutBuf (get-buffer-create "*xah open in external app*")) + (xcmdlist (list "PowerShell" "-Command" "Invoke-Item" "-LiteralPath"))) + (mapc + (lambda (x) + (message "%s" x) + (apply 'start-process (append (list "xah open in external app" xoutBuf) xcmdlist (list (format "'%s'" (if (string-match "'" x) (replace-match "`'" t t x) x))) nil))) + xfileList))) + ((eq system-type 'darwin) + (mapc (lambda (xfpath) (shell-command (concat "open " (shell-quote-argument xfpath)))) xfileList)) + ((eq system-type 'gnu/linux) + (mapc (lambda (xfpath) + (call-process shell-file-name nil 0 nil + shell-command-switch + (format "%s %s" + "xdg-open" + (shell-quote-argument xfpath)))) + xfileList)) + ((eq system-type 'berkeley-unix) + (mapc (lambda (xfpath) (let ((process-connection-type nil)) (start-process "" nil "xdg-open" xfpath))) xfileList)))))) + +(defvar xah-fly-mswin-terminal + "wt" + "A string. Value should be one of: wt (for Windows Terminal) or pwsh (for PowerShell Core (cross-platform)) or powershell (for Microsoft PowerShell).") + +(defun xah-open-in-terminal () + "Open the current dir in a new terminal window. +On Microsoft Windows, which terminal it starts depends on `xah-fly-mswin-terminal'. + +URL `http://xahlee.info/emacs/emacs/emacs_open_in_terminal.html' +Created: 2020-11-21 +Version: 2023-06-26" + (interactive) + (cond + ((eq system-type 'windows-nt) + (cond + ((string-equal xah-fly-mswin-terminal "wt") + (shell-command (format "wt -d \"%s\"" default-directory))) + ((string-equal xah-fly-mswin-terminal "pwsh") + (shell-command + (format "pwsh -Command Start-Process pwsh -WorkingDirectory '%s'" (shell-quote-argument default-directory)))) + ((string-equal xah-fly-mswin-terminal "powershell") + (shell-command + (format "powershell -Command Start-Process powershell -WorkingDirectory '%s'" (shell-quote-argument default-directory)))) + (t (error "Error 702919: value of `xah-fly-mswin-terminal' is not expected. Its value is %s" xah-fly-mswin-terminal)))) + ((eq system-type 'darwin) + (shell-command (concat "open -a terminal " (shell-quote-argument default-directory)))) + ((eq system-type 'gnu/linux) + (let ((process-connection-type nil)) (start-process "" nil "x-terminal-emulator" (concat "--working-directory=" default-directory)))) + ((eq system-type 'berkeley-unix) + (let ((process-connection-type nil)) (start-process "" nil "x-terminal-emulator" (concat "--working-directory=" default-directory)))))) + +(defun xah-next-window-or-frame () + "Switch to next window or frame. +If current frame has only one window, switch to next frame. +If `universal-argument' is called first, do switch frame. +Version: 2017-01-27" + (interactive) + (if current-prefix-arg + (other-frame 1) + (if (one-window-p) + (other-frame 1) + (other-window 1)))) + +(defun xah-unsplit-window-or-next-frame () + "Unsplit window. If current frame has only one window, switch to next frame. +Version: 2017-01-29" + (interactive) + (if (one-window-p) + (other-frame 1) + (delete-other-windows))) + +;; HHHH------------------------------ +;; layout lookup tables for key conversion + +(defvar xah-fly-layout-diagrams (make-hash-table :test 'equal) + "A hashtable. +Key is string, of keyboard layout name. +Value is a string, of text-art (aka ASCII-art) form of the layout. +The text-art string, each key (sequence of chars) is separated by whitespace. +The string is split by white space, and each item is considered a key. +The key is usually a single char, can be unicode, but may also be alt ctrl tab shift return and other. +It is used to generate key conversion table of a key from layout to layout. +") + +(progn + + (puthash "adnw" " +~ ! @ # $ % ^ & * ( ) { } +` 1 2 3 4 5 6 7 8 9 0 [ ] + +k u ü . ä v g c l j f = \\ +h i e a o d t r n s ß +x y ö , q b p w m z + +K U Ü > Ä V G C L J F + | +H I E A O D T R N S ẞ +X Y Ö < Q B P W M Z +" xah-fly-layout-diagrams) + + (puthash "azerty" + " +~ ! @ # $ % ^ & * ( ) { } +² & é \" ' ( - è _ ç à ) = + +a z e r t y u i o p ^ $ * +q s d f g h j k l m ù +w x c v b n , ; : ! + +A Z E R T Y U I O P ? + | +Q S D F G H J K L M Ù +W X C V B N ? . / § +" xah-fly-layout-diagrams) + + (puthash "azerty-be" + " +~ ! @ # $ % ^ & * ( ) { } +² & é \" ' ( § è ! ç à ) - + +a z e r t y u i o p ^ $ µ +q s d f g h j k l m ù +w x c v b n , ; : = + +A Z E R T Y U I O P ^ $ Μ +Q S D F G H J K L M Ù +W X C V B N ? . / + +" xah-fly-layout-diagrams) + + (puthash "bepo" " +# 1 2 3 4 5 6 7 8 9 0 ° ` +$ \" « » ( ) @ + - / * = % + +b é p o è ^ v d l j z w \\ +a u i e , c t s r n m +à y x . k ' q g h f + +B É P O È ! V D L J Z W | +A U I E ; C T S R N M +À Y X : K ? Q G H F +" xah-fly-layout-diagrams) + + (puthash "colemak" " +~ ! @ # $ % ^ & * ( ) _ + +` 1 2 3 4 5 6 7 8 9 0 - = + +q w f p g j l u y ; [ ] \\ +a r s t d h n e i o ' +z x c v b k m , . / + +Q W F P G J L U Y : { } | +A R S T D H N E I O \" +Z X C V B K M < > ? +" xah-fly-layout-diagrams) + + (puthash "colemak-dh" " +~ ! @ # $ % ^ & * ( ) _ + +` 1 2 3 4 5 6 7 8 9 0 - = + +q w f p b j l u y ; [ ] \\ +a r s t g m n e i o ' +z x c d v k h , . / + +Q W F P B J L U Y : { } | +A R S T G M N E I O \" +Z X C D V K H < > ? +" xah-fly-layout-diagrams) + + (puthash "dvorak" " +~ ! @ # $ % ^ & * ( ) { } +` 1 2 3 4 5 6 7 8 9 0 [ ] + +' , . p y f g c r l / = \\ +a o e u i d h t n s - +; q j k x b m w v z + +\" < > P Y F G C R L ? + | +A O E U I D H T N S _ +: Q J K X B M W V Z +" xah-fly-layout-diagrams) + + (puthash "engrammer" " +~ ! @ # $ % ^ & * ( ) { } +` 1 2 3 4 5 6 7 8 9 0 [ ] + +b y o u ' ; l d w v z = \\ +c i e a , . h t s n q +g x j k - / r m f p + +B Y O U \" : L D W V Z + | +C I E A < > H T S N Q +G X J K _ ? R M F P +" xah-fly-layout-diagrams) + + (puthash "koy" " +^ ! @ # $ % ^ & * ( ) _ ~ +˘ 1 2 3 4 5 6 7 8 9 0 - ` + +k . o , y v g c l ß / = \\ +h a e i u d t r n s f +x q ä ü ö b p w m j + +K > O < Y V G C L ẞ ? + | +H A E I U D T R N S F +X Q Ä Ü Ö B P W M J +" xah-fly-layout-diagrams) + + (puthash "halmak" " +~ ! @ # $ % ^ & * ( ) _ + +` 1 2 3 4 5 6 7 8 9 0 - = + +w l r b z ; q u d j [ ] \\ +s h n t , . a e o i ' +f m v c / g p x k y + +W L R B Z : Q U D J { } | +S H N T < > A E O I \" +F M V C ? G P X K Y +" xah-fly-layout-diagrams) + + (puthash "minimak" " +~ ! @ # $ % ^ & * ( ) _ + +` 1 2 3 4 5 6 7 8 9 0 - = + +q w d r k y u i o p [ ] \\ +a s t f g h j e l ; ' +z x c v b n m , . / + +Q W D R K Y U I O P { } | +A S T F G H J E L : \" +Z X C V B N M < > ? +" xah-fly-layout-diagrams) + + ;; todo. need fix + (puthash "neo2" " +^ ! @ # $ % ^ & * ( ) { } +` 1 2 3 4 5 6 7 8 9 0 - ] + +x v l c w k h g f q ß = \\ +u i a e o s n r t d y +ü ö ä p z b m , . j + +X V L C W K H G F Q ? + | +U I A E O S N R T D Y +Ü Ö Ä P Z B M , . J +" xah-fly-layout-diagrams) + + (puthash "norman" " +~ ! @ # $ % ^ & * ( ) _ + +` 1 2 3 4 5 6 7 8 9 0 - = + +q w d f k j u r l ; [ ] \\ +a s e t g y n i o h ' +z x c v b p m , . / + +Q W D F K J U R L : { } | +A S E T G Y N I O H \" +Z X C V B P M < > ? +" xah-fly-layout-diagrams) + + (puthash "programer-dvorak" " +~ % 7 5 3 1 9 0 2 4 6 8 ` +$ & [ { } ( = * ) + ] ! # + +; , . p y f g c r l / @ \\ +a o e u i d h t n s - +' q j k x b m w v z + +: < > P Y F G C R L ? ^ | +A O E U I D H T N S _ +\" Q J K X B M W V Z +" xah-fly-layout-diagrams) + + (puthash "pt-nativo" " +* ! \" # $ % & / ( ) = ª > ++ 1 2 3 4 5 6 7 8 9 0 º < + +' , . h x w l t c p ~ - \\ +i e a o u m d s r n ´ +« ç j b k q v g f z + +? ; : H X W L T C P ^ _ | +I E A O U M D S R N ` +Y Ç J B K Q V G F Z +" xah-fly-layout-diagrams) + + (puthash "qfmlwy" " +~ ! @ # $ % ^ & * ( ) _ + +` 1 2 3 4 5 6 7 8 9 0 - = + +q f m l w y u o b j [ ] \\ +d s t n r i a e h ; ' +z v g c x p k , . / + +Q F M L W Y U O B J { } | +D S T N R I A E H : \" +Z V G C X P K < > ? +" xah-fly-layout-diagrams) + +(puthash "qgmlwb" " +~ ! @ # $ % ^ & * ( ) _ + +` 1 2 3 4 5 6 7 8 9 0 - = + +q g m l w b y u v ; [ ] \\ +d s t n r i a e o h ' +z x c f j k p , . / + +Q G M L W B Y U V : { } | +D S T N R I A E O H \" +Z X C F J K P < > ? +" xah-fly-layout-diagrams) + + (puthash "qwerty" " +~ ! @ # $ % ^ & * ( ) _ + +` 1 2 3 4 5 6 7 8 9 0 - = + +q w e r t y u i o p [ ] \\ +a s d f g h j k l ; ' +z x c v b n m , . / + +Q W E R T Y U I O P { } | +A S D F G H J K L : \" +Z X C V B N M < > ? +" xah-fly-layout-diagrams) + + (puthash "qwerty-abnt" " +\" ! @ # $ % ^ & * ( ) _ + + ' 1 2 3 4 5 6 7 8 9 0 - = + +q w e r t y u i o p ´ [ ] +a s d f g h j k l ç ~ +z x c v b n m , . ; + +Q W E R T Y U I O P ` + | +A S D F G H J K L Ç ^ +Z X C V B N M < > : +" xah-fly-layout-diagrams) + + (puthash "qwerty-no" " +§ ! \" # ¤ % & / ( ) = ? ` +| 1 2 3 4 5 6 7 8 9 0 + \\ + +q w e r t y u i o p å ¨ ' +a s d f g h j k l ø æ +z x c v b n m , . - + +Q W E R T Y U I O P Å ^ * +A S D F G H J K L Ø Æ +Z X C V B N M < > _ +" xah-fly-layout-diagrams) + + (puthash "qwerty-se" " +§ ! \" # ¤ % & / ( ) = ? ` +| 1 2 3 4 5 6 7 8 9 0 + \\ + +q w e r t y u i o p å ¨ ' +a s d f g h j k l ö ä +z x c v b n m , . - + +Q W E R T Y U I O P Å ^ * +A S D F G H J K L Ö Ä +Z X C V B N M < > _ +" xah-fly-layout-diagrams) + + (puthash "qwertz" " +~ ! @ # $ % ^ & * ( ) _ + +` 1 2 3 4 5 6 7 8 9 0 - = + +q w e r t z u i o p [ ] \\ +a s d f g h j k l ; ' +y x c v b n m , . / + +Q W E R T Z U I O P { } | +A S D F G H J K L : \" +Y X C V B N M < > ? +" xah-fly-layout-diagrams) + + (puthash "qwpr" " +~ ! @ # $ % ^ & * ( ) _ + +` 1 2 3 4 5 6 7 8 9 0 - = + +q w p r f y u k l ; [ ] \\ +a s d t g h n i o e ' +z x c v b j m , . / + +Q W P R F Y U K L : { } | +A S D T G H N I O E \" +Z X C V B J M < > ? +" xah-fly-layout-diagrams) + + (puthash "russian" " +Ё ! \" № ; % : ? * ( ) _ + +ё 1 2 3 4 5 6 7 8 9 0 - = + +й ц у к е н г ш щ з х ъ \\ +ф ы в а п р о л д ж э +я ч с м и т ь б ю . + +Й Ц У К Е Н Г Ш Щ З Х Ъ | +Ф Ы В А П Р О Л Д Ж Э +Я Ч С М И Т Ь Б Ю , +" xah-fly-layout-diagrams) + + (puthash "workman" " +~ ! @ # $ % ^ & * ( ) _ + +` 1 2 3 4 5 6 7 8 9 0 - = + +q d r w b j f u p ; [ ] \\ +a s h t g y n e o i ' +z x m c v k l , . / + +Q D R W B J F U P : { } | +A S H T G Y N E O I \" +Z X M C V K L < > ? +" xah-fly-layout-diagrams)) + +(defun xah-fly-create-key-conv-table (Layout1 Layout2) + "Takes two text diagrams Layout1 Layout2, return a hashtable. +For remapping key from layout1 to layout2. + +example: + +Layout1 is a string. e.g. + +a b c d +e f shift + +Layout2 is a string. e.g. + +a o e i +m n ctrl + +return a hashtable, e.g. + +b → o +c → e +d → i +e → m +f → n +shift → ctrl + +If the keys in layouts are the same, it's not in the table. + +Created: 2024-04-19 +Version: 2024-04-23" + (let (xkeys1 xkeys2 (xtable (make-hash-table :test 'equal))) + (setq xkeys1 (split-string Layout1 "[ \n]+" t)) + (setq xkeys2 (split-string Layout2 "[ \n]+" t)) + (when (not (eq (length xkeys1) (length xkeys2))) + (error "layout %s and %s lengths not same." (length Layout1) (length Layout2))) + (seq-mapn + (lambda (x y) + (if (string-equal x y) + nil + (puthash x y xtable))) + xkeys1 xkeys2) + xtable + )) + +;; (xah-fly-create-key-conv-table +;; (gethash "qwerty" xah-fly-layout-diagrams) +;; (gethash "dvorak" xah-fly-layout-diagrams)) + +(defvar xah-fly-key-current-layout nil + "The current keyboard layout. +Value is a key in `xah-fly-layout-diagrams'. +Do not set this variable manually. +Use `xah-fly-keys-set-layout' to set it. +Default to qwerty. +Version: 2022-10-22") + +(if xah-fly-key-current-layout nil (setq xah-fly-key-current-layout "qwerty")) + +(defvar xah-fly--key-convert-table nil + "A alist that's the conversion table from dvorak to current layout. +Value is a hashtable. +Created: 2019-02-12 +Version: 2024-04-22" ) + +(setq + xah-fly--key-convert-table + (xah-fly-create-key-conv-table + (gethash "dvorak" xah-fly-layout-diagrams) + (gethash xah-fly-key-current-layout xah-fly-layout-diagrams))) + +(defun xah-fly--convert-key (Keystr) + "Return the corresponding Keystr according to variable `xah-fly--key-convert-table'. +Keystr must be a string that is the valid argument to `kbd'. +Keystr may be a single key, or key sequence separated by whitespaces. +Created: 2022-10-25 +Version: 2024-04-22" + (interactive) + (mapconcat + 'identity + (mapcar + (lambda (x) + (let ((xnew (gethash x xah-fly--key-convert-table))) + (if xnew xnew x))) + (split-string Keystr " +")) + " ")) + +(defun xah-fly--define-keys (KeymapName KeyCmdAlist &optional Direct-p) + "Map `define-key' over a alist KeyCmdAlist, with key layout remap. +The key is remapped from Dvorak to the current keyboard layout by `xah-fly--convert-key'. +If Direct-p is t, do not remap key to current keyboard layout. +Example usage: + (xah-fly--define-keys + (define-prefix-command \\='xyz-map) + \\='( + (\"h\" . highlight-symbol-at-point) + (\".\" . isearch-forward-symbol-at-point) + (\"w\" . isearch-forward-word))) +Created: 2020-04-18 +Version: 2023-08-21" + (mapcar + (lambda (x) + (define-key + KeymapName + (kbd (if Direct-p (car x) (xah-fly--convert-key (car x)))) + (cdr x))) + KeyCmdAlist)) + +;; HHHH------------------------------ +;; keymaps + +(defvar xah-fly-key-map (make-sparse-keymap) + "If `xah-fly-insert-state-p' is true, point to `xah-fly-insert-map', else, points to `xah-fly-command-map'.") + +(defvar xah-fly-command-map (make-sparse-keymap) + "Keymap when in command mode.") + +(defvar xah-fly-insert-map (make-sparse-keymap) + "Keymap when in insert mode.") + +(defvar xah-fly--deactivate-command-mode-func nil) + +;; HHHH------------------------------ +;; setting keys + +(defun xah-fly-define-keys () + "Define the keys for xah-fly-keys. +Created: 2022-10-31 +Version: 2024-04-22" + (interactive) + (let () + + ;; Movement key integrations with built-in Emacs packages + (xah-fly--define-keys + indent-rigidly-map + '(("h" . indent-rigidly-left) + ("n" . indent-rigidly-right))) + + (xah-fly--define-keys + xah-fly-command-map + '(("<escape>" . xah-fly-command-mode-activate) + ("<home>" . xah-fly-command-mode-activate) + ("<f8>" . xah-fly-command-mode-activate)) + :direct) + + (xah-fly--define-keys + xah-fly-insert-map + '(("<escape>" . xah-fly-command-mode-activate) + ("<home>" . xah-fly-command-mode-activate) + ("<f8>" . xah-fly-command-mode-activate)) + :direct) + + (when xah-fly-use-isearch-arrows + (xah-fly--define-keys + isearch-mode-map + '(("<up>" . isearch-ring-retreat) + ("<down>" . isearch-ring-advance) + ("<left>" . isearch-repeat-backward) + ("<right>" . isearch-repeat-forward) + ("C-v" . isearch-yank-kill)) + :direct) + (xah-fly--define-keys + minibuffer-local-isearch-map + '(("<left>" . isearch-reverse-exit-minibuffer) + ("<right>" . isearch-forward-exit-minibuffer)) + :direct)) + + (xah-fly--define-keys + (define-prefix-command 'xah-fly-leader-key-map) + '(("SPC" . xah-fly-insert-mode-activate) + ("RET" . execute-extended-command) + + ("TAB" . nil) + + ("TAB TAB" . indent-for-tab-command) + + ("TAB i" . complete-symbol) + ("TAB g" . indent-rigidly) + ("TAB r" . indent-region) + ("TAB s" . indent-sexp) + + (". ." . highlight-symbol-at-point) + (". g" . unhighlight-regexp) + (". c" . highlight-lines-matching-regexp) + (". h" . highlight-regexp) + (". t" . highlight-phrase) + (". e" . isearch-forward-symbol-at-point) + (". u" . isearch-forward-symbol) + (". p" . isearch-forward-word) + + ("'" . xah-fill-or-unfill) + + (", t" . xref-find-definitions) + (", n" . xref-pop-marker-stack) + + ;; - / ; = [ + ("\\" . toggle-input-method) + ;; ` + + ("3" . delete-window) + ("4" . split-window-right) + ("5" . balance-windows) + ("6" . xah-upcase-sentence) + + ("9" . ispell-word) + + ("a" . mark-whole-buffer) + ("b" . end-of-buffer) + + ("c ," . xah-open-in-external-app) + ("c ." . find-file) + ("c c" . bookmark-bmenu-list) + ("c e" . ibuffer) + ("c f" . xah-open-recently-closed) + ("c g" . xah-open-in-terminal) + ("c h" . recentf-open-files) + ("c j" . xah-copy-file-path) + ("c l" . bookmark-set) + ("c n" . xah-new-empty-buffer) + ("c o" . xah-show-in-desktop) + ("c p" . xah-open-last-closed) + ("c r" . bookmark-jump) + ("c s" . write-file) + ("c u" . xah-open-file-at-cursor) + ("c x" . set-buffer-file-coding-system) + ("c y" . xah-list-recently-closed) + ("c z" . revert-buffer-with-coding-system) + + ;; set-buffer-process-coding-system + ;; set-file-name-coding-system + ;; set-keyboard-coding-system + ;; set-language-environment + ;; set-next-selection-coding-system + ;; set-selection-coding-system + ;; set-terminal-coding-system + ;; universal-coding-system-argument + + ("d" . beginning-of-buffer) + + ("e 6" . xah-insert-white-corner-bracket『』) + + ("e a" . xah-insert-double-angle-bracket《》) + ("e b" . xah-insert-black-lenticular-bracket【】) + + ("e c r" . expand-region-abbrevs) + ("e c t" . edit-abbrevs) + ("e c u" . expand-abbrev) + + ("e c g" . add-mode-abbrev) + ("e c c" . add-global-abbrev) + ("e c m" . inverse-add-mode-abbrev) + ("e c w" . inverse-add-global-abbrev) + + ("e c f" . unexpand-abbrev) + + ("e c h" . expand-jump-to-previous-slot) + ("e c n" . expand-jump-to-next-slot) + ("e c y" . abbrev-prefix-mark) + + ("e d" . xah-insert-double-curly-quote“”) + ("e e" . xah-insert-unicode) + ("e f" . xah-insert-emacs-quote) + ("e g" . xah-insert-ascii-double-quote) + + ("e h" . xah-insert-brace) + ("e i" . xah-insert-curly-single-quote‘’) + ("e j" . insert-char) + ("e k" . xah-insert-markdown-quote) + ("e l" . xah-insert-seperator) + ("e m" . xah-insert-corner-bracket「」) + ("e n" . xah-insert-square-bracket) + ("e o" . xah-insert-ascii-single-quote) + ("e p" . xah-insert-single-angle-quote‹›) + ("e q" . xah-insert-deco-angle-fat-bracket❰❱) + ("e r" . xah-insert-tortoise-shell-bracket〔〕) + ("e s" . xah-insert-ascii-angle-bracket) + ("e t" . xah-insert-paren) + ("e u" . xah-insert-date) + ("e v" . xah-insert-markdown-triple-quote) + ("e w" . xah-insert-angle-bracket〈〉) + ("e x" . xah-insert-white-lenticular-bracket〖〗) + ("e y" . xah-insert-double-angle-quote«») + ("e z" . xah-insert-deco-angle-bracket❮❯) + + ("f" . xah-search-current-word) + ("g" . xah-close-current-buffer) + + ("h a" . apropos-command) + ("h b" . describe-bindings) + ("h c" . describe-char) + ("h d" . apropos-documentation) + ("h e" . view-echo-area-messages) + ("h f" . describe-face) + ("h g" . info-lookup-symbol) + ;; ("h h" . describe-function) + ("h i" . info) + ("h j" . man) + ("h k" . describe-key) + ("h l" . view-lossage) + ("h m" . describe-mode) + ("h n" . describe-variable) + ("h o" . describe-language-environment) + ;; p q + ("h r" . apropos-variable) + ("h s" . describe-syntax) + ("h t" . describe-function) + ("h u" . elisp-index-search) + ("h v" . apropos-value) + ("h x" . describe-command) ; emacs 28 + ;; y + ("h z" . describe-coding-system) + + ("i" . kill-line) + ("j" . xah-copy-all-or-region) + ("k" . xah-show-kill-ring) + + ("l" . recenter-top-bottom) + + ("m" . dired-jump) + + ;; ("m e" . delete-other-windows) + ;; ("m u" . split-window-below) + ;; ("m w" . universal-argument) + + ;; commands here are “harmless”, they don't modify text etc. they turn on modes, change display, prompt, start shell, etc. + ("n SPC" . whitespace-mode) + ("n ," . abbrev-mode) + ("n ." . toggle-frame-maximized) + ("n 1" . set-input-method) + ("n 2" . global-hl-line-mode) + ("n 4" . global-display-line-numbers-mode) + ("n 6" . calendar) + ("n 7" . calc) + ("n 9" . shell-command) + ("n 0" . shell-command-on-region) + + ("n <up>" . xah-page-up) + ("n <down>" . xah-page-down) + + ("n a" . text-scale-adjust) + ("n b" . toggle-debug-on-error) + ("n c" . toggle-case-fold-search) + ("n d" . display-line-numbers-mode) + ("n e" . eshell) + ("n f" . nil) + ("n g" . xah-toggle-read-novel-mode) + ("n h" . widen) + ("n i" . make-frame-command) + ("n j" . flyspell-buffer) + ("n k" . menu-bar-open) + ("n l" . toggle-word-wrap) + ("n m" . jump-to-register) + ("n n" . xah-narrow-to-region) + ("n o" . variable-pitch-mode) + ("n p" . read-only-mode) + ("n q" . enlarge-window) + ("n r" . count-words) + ("n s" . count-matches) + ("n t" . narrow-to-defun) + ("n u" . shell) + ("n v" . visual-line-mode) + ("n w" . eww) + ("n x" . save-some-buffers) + ("n y" . toggle-truncate-lines) + ("n z" . abort-recursive-edit) + + ("o" . exchange-point-and-mark) + ("p" . query-replace) + ("q" . xah-cut-all-or-region) + + ;; roughly text replacement related + + ("r ," . apply-macro-to-region-lines) + ("r ." . kmacro-start-macro) + ("r /" . xah-slash-to-double-backslash) + ("r 3" . number-to-register) + ("r 4" . increment-register) + ("r RET" . nil) + ("r SPC" . nil) + ("r \\" . xah-slash-to-backslash) + + ("r a" . nil) + ("r b" . nil) + ("r c" . string-rectangle) + ("r d" . delete-rectangle) + ("r e" . call-last-kbd-macro) + ("r f" . nil) + ("r g" . nil) + ("r h" . xah-change-bracket-pairs) + ("r i" . xah-space-to-newline) + ("r j" . copy-rectangle-to-register) + ("r k" . yank-rectangle) + ("r l" . clear-rectangle) + + ("r m" . nil) + ("r n" . rectangle-number-lines) + ("r o" . open-rectangle) + ("r p" . kmacro-end-macro) + ("r q" . kill-rectangle) + + ("r r" . rectangle-mark-mode) + ("r s" . nil) + ;; kmacro-end-and-call-macro + ("r t RET" . #'kmacro-edit-macro) + ("r t SPC" . #'kmacro-step-edit-macro) + ("r t TAB" . #'kmacro-insert-counter) + ("r t a" . #'kmacro-add-counter) + ("r t b" . #'kmacro-bind-to-key) + ("r t c" . #'kmacro-set-counter) + ("r t d" . #'kmacro-redisplay) + ("r t e" . #'edit-kbd-macro) + ("r t f" . #'kmacro-set-format) + ("r t g" . #'kmacro-delete-ring-head) + ("r t h" . #'kmacro-edit-macro-repeat) + ("r t i" . #'kmacro-call-ring-2nd-repeat) + ("r t j" . #'kmacro-cycle-ring-next) + ("r t k" . #'kmacro-end-or-call-macro-repeat) + ("r t l" . #'kmacro-edit-lossage) + + ("r t n" . #'kmacro-name-last-macro) + ("r t p" . #'kmacro-cycle-ring-previous) + ("r t q" . #'kbd-macro-query) + ("r t t" . #'kmacro-swap-ring) + ("r t v" . #'kmacro-view-macro-repeat) + ("r t x" . #'kmacro-to-register) + ("r u" . xah-quote-lines) + ("r v" . nil) + ("r w" . nil) + ("r x" . xah-double-backslash-to-slash) + ("r y" . delete-whitespace-rectangle) + ("r z" . nil) + + ("s" . save-buffer) + + ;; most frequently used + ("t <up>" . xah-move-block-up) + ("t <down>" . xah-move-block-down) + + ("t ," . sort-numeric-fields) + ("t ." . xah-sort-lines) + ("t 1" . xah-append-to-register-1) + ("t 2" . xah-clear-register-1) + ("t 3" . xah-copy-to-register-1) + ("t 4" . xah-paste-from-register-1) + ("t 7" . xah-append-to-register-1) + ("t 8" . xah-clear-register-1) + ("t a" . nil) + ("t b" . xah-backward-punct) + ("t c" . copy-matching-lines) + ("t d" . mark-defun) + ("t e" . list-matching-lines) + ("t f" . move-to-column) + ("t g" . goto-line) + ("t h" . repeat-complex-command) + ("t i" . delete-non-matching-lines) + ("t j" . copy-to-register) + ("t k" . insert-register) + ("t l" . nil) + ("t m" . xah-make-backup-and-save) + ("t n" . goto-char) + ("t o" . xah-clean-whitespace) + ("t p" . query-replace-regexp) + ("t q" . xah-cut-text-in-quote) + ("t r" . xah-escape-quotes) + ("t s" . xah-reformat-to-sentence-lines) + ("t t" . repeat) + ("t u" . kill-matching-lines) + ("t v" . nil) + ("t w" . xah-next-window-or-frame) + ("t x" . xah-title-case-region-or-line) + ("t y" . delete-duplicate-lines) + ("t z" . nil) + ("u" . switch-to-buffer) + ("v" . universal-argument) + + ;; dangerous map. run program, delete file, etc + ("w DEL" . xah-delete-current-file-make-backup) + ("w ." . eval-buffer) + ("w e" . eval-defun) + ("w m" . eval-last-sexp) + ("w p" . eval-expression) + ("w u" . eval-region) + ("w q" . save-buffers-kill-terminal) + ("w w" . delete-frame) + ("w j" . xah-run-current-file) + + ("x" . xah-toggle-previous-letter-case) + ;; y + + ;; vc command keys subject to change. need a frequency stat of the commands. + + ("z b" . vc-root-diff) ; D + ("z c" . vc-update) ; git pull, + + ("z d" . vc-annotate) ; g + ("z f" . vc-revert) ; u + ("z g" . vc-push) ; git push, P + ("z h" . vc-diff) ; git diff, = + ("z l" . vc-print-root-log) ; L + ("z m" . vc-dir) ; git status, C-x v d + ("z n" . vc-print-log) ; git log, l + ("z r" . vc-merge) ; m + ("z t" . vc-register) ; git add, i + ("z z" . vc-next-action) ; v + + ("z 1" . vc-create-tag) ; s + ("z 2" . vc-insert-headers) ; h + ("z 4" . vc-retrieve-tag) ; r + ("z 5" . vc-revision-other-window) ; ~ + ("z 6" . vc-switch-backend) ; b + ("z 7" . vc-update-change-log) ; a + + ;; + )) + + (xah-fly--define-keys + xah-fly-command-map + '(("SPC" . xah-fly-leader-key-map) + ("'" . xah-reformat-lines) + ("," . xah-shrink-whitespaces) + ("-" . delete-other-windows) + ("." . backward-kill-word) + ("/" . hippie-expand) + (";" . xah-comment-dwim) + ("[" . split-window-below) + ("\\" . xah-cycle-hyphen-lowline-space) + ("]" . split-window-right) + ("`" . other-frame) + + ;; ("1" . nil) + ;; ("2" . nil) + ("3" . delete-other-windows) + ("4" . split-window-below) + ("5" . delete-char) + ("6" . xah-select-block) + ("7" . xah-select-line) + ("8" . xah-extend-selection) + ("9" . xah-select-text-in-quote) + ("0" . xah-pop-local-mark-ring) + + ("a" . execute-extended-command) + ("b" . isearch-forward) + ("c" . previous-line) + ("d" . xah-beginning-of-line-or-block) + ("e" . xah-smart-delete) + ("f" . undo) + ("g" . backward-word) + ("h" . backward-char) + ("i" . xah-delete-current-text-block) + ("j" . xah-copy-line-or-region) + ("k" . xah-paste-or-paste-previous) + ;; ("l" . xah-fly-insert-mode-activate-space-before) + ("l" . xah-insert-space-before) + ("m" . xah-backward-left-bracket) + ("n" . forward-char) + ("o" . open-line) + ("p" . kill-word) + ("q" . xah-cut-line-or-region) + ("r" . forward-word) + ("s" . xah-end-of-line-or-block) + ("t" . next-line) + ("u" . xah-fly-insert-mode-activate) + ("v" . xah-forward-right-bracket) + ("w" . xah-next-window-or-frame) + ("x" . xah-toggle-letter-case) + ("y" . set-mark-command) + ("z" . xah-goto-matching-bracket))) + + ;; + )) + +(xah-fly-define-keys) + +;; HHHH------------------------------ +;; set control meta, etc keys + +(defcustom xah-fly-unset-useless-key t + "If true, unbind many obsolete or useless or redundant + keybinding. e.g. <help>, <f1>." + :type 'boolean) + +(when xah-fly-unset-useless-key + (global-set-key (kbd "<help>") nil) + (global-set-key (kbd "<f1>") nil)) + +(when xah-fly-use-meta-key + + (global-set-key (kbd "M-<home>") nil) ; beginning-of-buffer-other-window + (global-set-key (kbd "M-<end>") nil) ; end-of-buffer-other-window + + (global-set-key (kbd "M-SPC") #'xah-fly-command-mode-activate) + (global-set-key (kbd "M-\\") nil) ; delete-horizontal-space + (global-set-key (kbd "M-!") nil) ; shell-command + (global-set-key (kbd "M-$") nil) ; ispell-word + (global-set-key (kbd "M-%") nil) ; query-replace + (global-set-key (kbd "M-&") nil) ; async-shell-command + (global-set-key (kbd "M-'") nil) ; abbrev-prefix-mark + (global-set-key (kbd "M-(") nil) ; insert-parentheses + (global-set-key (kbd "M-)") nil) ; move-past-close-and-reindent + ;; (global-set-key (kbd "M-,") nil) ; xref-pop-marker-stack + ;; (global-set-key (kbd "M-.") nil) ; xref-find-definitions + (global-set-key (kbd "M-/") nil) ; dabbrev-expand + (global-set-key (kbd "M-:") nil) ; eval-expression + ;; (global-set-key (kbd "M-;") nil) ; comment-dwim + (global-set-key (kbd "M-<") nil) ; beginning-of-buffer + (global-set-key (kbd "M-=") nil) ; count-words-region + (global-set-key (kbd "M->") nil) ; end-of-buffer + ;; (global-set-key (kbd "M-?") nil) ; xref-find-references + (global-set-key (kbd "M-@") nil) ; mark-word + (global-set-key (kbd "M-^") nil) ; delete-indentation + (global-set-key (kbd "M-`") nil) ; tmm-menubar + (global-set-key (kbd "M-a") nil) ; backward-sentence + (global-set-key (kbd "M-b") nil) ; backward-word + (global-set-key (kbd "M-c") nil) ; capitalize-word + (global-set-key (kbd "M-d") nil) ; kill-word + (global-set-key (kbd "M-e") nil) ; forward-sentence + (global-set-key (kbd "M-f") nil) ; forward-word + (global-set-key (kbd "M-g") nil) ; Prefix Command + (global-set-key (kbd "M-h") nil) ; mark-paragraph + (global-set-key (kbd "M-i") nil) ; tab-to-tab-stop + (global-set-key (kbd "M-j") nil) ; default-indent-new-line + (global-set-key (kbd "M-k") nil) ; kill-sentence + (global-set-key (kbd "M-l") nil) ; downcase-word + (global-set-key (kbd "M-m") nil) ; back-to-indentation + (global-set-key (kbd "M-o") nil) ; facemenu-keymap + (global-set-key (kbd "M-q") nil) ; fill-paragraph + (global-set-key (kbd "M-r") nil) ; move-to-window-line-top-bottom + (global-set-key (kbd "M-s") nil) ; Prefix Command + (global-set-key (kbd "M-t") nil) ; transpose-words + (global-set-key (kbd "M-u") nil) ; upcase-word + (global-set-key (kbd "M-v") nil) ; scroll-down-command + (global-set-key (kbd "M-w") nil) ; kill-ring-save + ;; (global-set-key (kbd "M-x") nil) ; execute-extended-command + ;; (global-set-key (kbd "M-y") nil) ; yank-pop + (global-set-key (kbd "M-z") nil) ; zap-to-char + (global-set-key (kbd "M-{") nil) ; backward-paragraph + (global-set-key (kbd "M-|") nil) ; shell-command-on-region + (global-set-key (kbd "M-}") nil) ; forward-paragraph + (global-set-key (kbd "M-~") nil) ; not-modified + (global-set-key (kbd "M-DEL") nil) ; backward-kill-word + ) + +(when xah-fly-use-control-key + + (global-set-key (kbd "C-<tab>") #'xah-next-user-buffer) + (global-set-key (kbd "C-S-<tab>") #'xah-previous-user-buffer) + + (global-set-key (kbd "C-S-<prior>") #'xah-previous-emacs-buffer) + (global-set-key (kbd "C-S-<next>") #'xah-next-emacs-buffer) + + (global-set-key (kbd "C-<prior>") #'xah-previous-user-buffer) + (global-set-key (kbd "C-<next>") #'xah-next-user-buffer) + + ;; (global-set-key (kbd "C-1") nil) + (global-set-key (kbd "C-2") #'pop-global-mark) + (global-set-key (kbd "C-3") #'previous-error) + (global-set-key (kbd "C-4") #'next-error) + (global-set-key (kbd "C-5") #'xah-previous-emacs-buffer) + (global-set-key (kbd "C-6") #'xah-next-emacs-buffer) + (global-set-key (kbd "C-7") #'xah-previous-user-buffer) + (global-set-key (kbd "C-8") #'xah-next-user-buffer) + (global-set-key (kbd "C-9") #'xah-page-up) + (global-set-key (kbd "C-0") #'xah-page-down) + + (global-set-key (kbd "C--") #'text-scale-decrease) + (global-set-key (kbd "C-=") #'text-scale-increase) + + (global-set-key (kbd "C-SPC") #'xah-fly-command-mode-activate) + + (global-set-key (kbd "C-S-n") #'make-frame-command) + (global-set-key (kbd "C-S-s") #'write-file) + (global-set-key (kbd "C-S-t") #'xah-open-last-closed) + + ;; (global-set-key (kbd "C-@") nil) + + (global-set-key (kbd "C-a") #'mark-whole-buffer) + (global-set-key (kbd "C-b") nil) + ;; (global-set-key (kbd "C-c") nil) + (global-set-key (kbd "C-d") nil) + (global-set-key (kbd "C-e") nil) + (global-set-key (kbd "C-f") nil) + ;; (global-set-key (kbd "C-g") nil) ; cancel + ;; (global-set-key (kbd "C-h") nil) ; help + ;; (global-set-key (kbd "C-i") nil) ; tab + ;; (global-set-key (kbd "C-j") nil) ; newline + (global-set-key (kbd "C-k") nil) + (global-set-key (kbd "C-l") nil) + ;; (global-set-key (kbd "C-m") nil) ; newline + (global-set-key (kbd "C-n") #'xah-new-empty-buffer) + (global-set-key (kbd "C-o") #'find-file) + (global-set-key (kbd "C-p") nil) + ;; (global-set-key (kbd "C-q") nil) ; quoted-insert + ;; (global-set-key (kbd "C-r") nil) + (global-set-key (kbd "C-s") #'save-buffer) + (global-set-key (kbd "C-t") #'hippie-expand) + ;; (global-set-key (kbd "C-u") nil) ; universal-argument + (global-set-key (kbd "C-v") #'yank) + (global-set-key (kbd "C-w") #'xah-close-current-buffer) + (global-set-key (kbd "C-x") nil) ; c-x map + (global-set-key (kbd "C-y") #'undo-redo) ; emacs 28 + (global-set-key (kbd "C-z") #'undo) + ;; + ) + + (global-set-key (kbd "<f7>") 'xah-fly-leader-key-map) + +;; HHHH------------------------------ + +(when (< emacs-major-version 28) + (defalias 'execute-extended-command-for-buffer #'execute-extended-command)) + +;; HHHH------------------------------ +;;;; misc + +;; the following have keys in gnu emacs, but i decided not to give them a key, because either they are rarely used (say, 95% of emacs users use them less than once a month ), or there is a more efficient command/workflow with key in xah-fly-keys + +;; C-x $ → set-selective-display +;; C-x * → calc-dispatch +;; C-x - → shrink-window-if-larger-than-buffer +;; C-x . → set-fill-prefix +;; C-x 4 . → find-tag-other-window +;; C-x 4 0 → kill-buffer-and-window +;; C-x 4 C-o → display-buffer +;; C-x 4 a → add-change-log-entry-other-window +;; C-x 4 b → switch-to-buffer-other-window +;; C-x 4 c → clone-indirect-buffer-other-window +;; C-x 4 d → dired-other-window +;; C-x 4 f → find-file-other-window +;; C-x 4 m → compose-mail-other-window +;; C-x 4 r → find-file-read-only-other-window +;; C-x 5 . xref-find-definitions-other-frame +;; C-x 5 1 delete-other-frames +;; C-x 5 5 other-frame-prefix +;; C-x 5 C-o display-buffer-other-frame +;; C-x 5 b switch-to-buffer-other-frame +;; C-x 5 c clone-frame +;; C-x 5 d dired-other-frame +;; C-x 5 f find-file-other-frame +;; C-x 5 m compose-mail-other-frame +;; C-x 5 p project-other-frame-command +;; C-x 5 r find-file-read-only-other-frame +;; C-x 5 u undelete-frame +;; C-x 6 2 → 2C-two-columns +;; C-x 6 b → 2C-associate-buffer +;; C-x 6 s → 2C-split +;; C-x ; → comment-set-column +;; C-x < → scroll-left +;; C-x = → what-cursor-position, use describe-char instead +;; C-x > → scroll-right +;; C-x C-d → list-directory +;; C-x C-l → downcase-region +;; C-x C-n → set-goal-column +;; C-x C-o → delete-blank-lines +;; C-x C-p → mark-page +;; C-x C-r → find-file-read-only +;; C-x C-t → transpose-lines +;; C-x C-u → upcase-region +;; C-x C-v → find-alternate-file +;; C-x C-z → suspend-frame +;; C-x DEL → backward-kill-sentence +;; C-x ESC → Prefix Command +;; C-x [ → backward-page +;; C-x ] → forward-page +;; C-x f → set-fill-column +;; C-x i → insert-file +;; C-x k → kill-buffer +;; C-x l → count-lines-page +;; C-x m → compose-mail +;; C-x n g goto-line-relative +;; C-x n p narrow-to-page +;; C-x r M bookmark-set-no-overwrite +;; C-x r M-w copy-rectangle-as-kill +;; C-x r SPC point-to-register +;; C-x r f frameset-to-register +;; C-x r j jump-to-register +;; C-x r w window-configuration-to-register +;; C-x { → shrink-window-horizontally +;; C-x } → enlarge-window-horizontally + +;; HHHH------------------------------ + +(defvar xah-fly-insert-state-p t "non-nil means insertion mode is on.") + +(defun xah-fly--update-key-map () + (setq xah-fly-key-map (if xah-fly-insert-state-p + xah-fly-insert-map + xah-fly-command-map))) + +(defun xah-fly-keys-set-layout (Layout) + "Set a keyboard layout. +Argument must be one of the key name in `xah-fly-layout-diagrams' +Created: 2021-05-19 +Version: 2024-05-23" + (interactive + (list + (completing-read + "Choose a layout: " + (seq-sort 'string< (hash-table-keys xah-fly-layout-diagrams)) + nil t))) + (let ((xold xah-fly-key-current-layout) + (xkeydiagram (gethash Layout xah-fly-layout-diagrams))) + (when (not xkeydiagram) + (user-error + "xah-fly-keys-set-layout error: layout must be one of string:\n%s" + (mapconcat 'identity (hash-table-keys xah-fly-layout-diagrams) "\n"))) + (setq xah-fly-key-current-layout Layout) + (setq + xah-fly--key-convert-table + (xah-fly-create-key-conv-table + (gethash "dvorak" xah-fly-layout-diagrams) + xkeydiagram)) + (when (not (equal xold Layout)) (xah-fly-define-keys)))) + +(defun xah-fly-space-key () + "Switch to command mode if the char before cursor is a space. +experimental +Version: 2018-05-07" + (interactive) + (if (eq (char-before ) 32) + (xah-fly-command-mode-activate) + (insert " "))) + +(defun xah-fly-command-mode-init () + "Set command mode keys. +Version: 2022-07-06" + (interactive) + (setq xah-fly-insert-state-p nil) + (xah-fly--update-key-map) + (when xah-fly--deactivate-command-mode-func + (funcall xah-fly--deactivate-command-mode-func)) + (setq xah-fly--deactivate-command-mode-func + (set-transient-map xah-fly-command-map (lambda () t))) + (modify-all-frames-parameters (list (cons 'cursor-type 'box))) + ;; (set-face-background 'cursor "red") + (setq mode-line-front-space xah-fly-command-mode-indicator) + (force-mode-line-update)) + +(defun xah-fly-insert-mode-init (&optional no-indication) + "Enter insertion mode." + (interactive) + (setq xah-fly-insert-state-p t) + (xah-fly--update-key-map) + (funcall xah-fly--deactivate-command-mode-func) + (unless no-indication + (modify-all-frames-parameters '((cursor-type . bar))) + ;; (set-face-background 'cursor "black") + (setq mode-line-front-space xah-fly-insert-mode-indicator)) + (force-mode-line-update)) + +(defun xah-fly-mode-toggle () + "Switch between {insertion, command} modes." + (interactive) + (if xah-fly-insert-state-p + (xah-fly-command-mode-activate) + (xah-fly-insert-mode-activate))) + +(defun xah-fly-save-buffer-if-file () + "Save current buffer if it is a file." + (interactive) + (when buffer-file-name + (save-buffer))) + +(defun xah-fly-command-mode-activate () + "Activate command mode and run `xah-fly-command-mode-activate-hook' +Version: 2017-07-07" + (interactive) + (xah-fly-command-mode-init) + (run-hooks 'xah-fly-command-mode-activate-hook)) + +(defun xah-fly-command-mode-activate-no-hook () + "Activate command mode. Does not run `xah-fly-command-mode-activate-hook' +Version: 2017-07-07" + (interactive) + (xah-fly-command-mode-init)) + +(defun xah-fly-insert-mode-activate () + "Activate insertion mode. +Version: 2017-07-07" + (interactive) + (xah-fly-insert-mode-init) + (run-hooks 'xah-fly-insert-mode-activate-hook)) + +(defun xah-fly-insert-mode-activate-newline () + "Activate insertion mode, insert newline below." + (interactive) + (xah-fly-insert-mode-activate) + (open-line 1)) + +(defun xah-fly-insert-mode-activate-space-before () + "Insert a space, then activate insertion mode." + (interactive) + (insert " ") + (xah-fly-insert-mode-activate)) + +(defun xah-fly-insert-mode-activate-space-after () + "Insert a space, then activate insertion mode." + (interactive) + (insert " ") + (xah-fly-insert-mode-activate) + (left-char)) + +;; HHHH------------------------------ + +;;;###autoload +(define-minor-mode xah-fly-keys + "A modal keybinding set, like vim, but based on ergonomic + principles, like Dvorak layout. + +URL `http://xahlee.info/emacs/misc/xah-fly-keys.html'" + :global t + :lighter " xflykeys" + :keymap xah-fly-insert-map + (delete-selection-mode 1) + (setq shift-select-mode nil) + + (if xah-fly-keys + ;; Construction: + (progn + (add-hook 'minibuffer-setup-hook 'xah-fly-insert-mode-activate) + (add-hook 'minibuffer-exit-hook 'xah-fly-command-mode-activate) + (add-hook 'isearch-mode-end-hook 'xah-fly-command-mode-activate) + (xah-fly-command-mode-activate)) + (progn + ;; Teardown: + (remove-hook 'minibuffer-setup-hook 'xah-fly-insert-mode-activate) + (remove-hook 'minibuffer-exit-hook 'xah-fly-command-mode-activate) + (remove-hook 'isearch-mode-end-hook 'xah-fly-command-mode-activate) + (xah-fly-insert-mode-init :no-indication) + (setq mode-line-front-space '(:eval (if (display-graphic-p) " " "-"))) + + ;; + ))) + +(provide 'xah-fly-keys) + +;;; xah-fly-keys.el ends here diff --git a/.emacs.d/lisp/xah-fly-keys.el:Zone.Identifier b/.emacs.d/lisp/xah-fly-keys.el:Zone.Identifier new file mode 100644 index 0000000..e69de29