From cf8a3f15ee1c80b874be10cbdd34496b84560f59 Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Tue, 14 Jan 2025 22:48:35 +0100 Subject: Sort guides up a bit --- guides/emacs/elisp-demos.org | 28 ---------------------------- 1 file changed, 28 deletions(-) delete mode 100644 guides/emacs/elisp-demos.org (limited to 'guides/emacs/elisp-demos.org') diff --git a/guides/emacs/elisp-demos.org b/guides/emacs/elisp-demos.org deleted file mode 100644 index 029f5be..0000000 --- a/guides/emacs/elisp-demos.org +++ /dev/null @@ -1,28 +0,0 @@ -Some terse "context-free" Emacs Lisp snippets that hopefully speak for -themselves. - -* The prefix argument -#+begin_src elisp -(defun my/prefix-arg-demo (arg) - (interactive (list current-prefix-arg)) - (insert - (let ((num (prefix-numeric-value arg))) - (format "%s %d %s\n" - arg - num - (cond ((null arg) "N/A") - ((numberp arg) (format "M-%d or C-u %d" arg arg)) - ((equal arg '-) (format "M-- or C-u -")) - ((listp arg) - (if (< num 0) - (format "(M-- or C-u -) C-u × %d" (log (- num) 4)) - (format "C-u × %d" (log num 4))))))))) -#+end_src -#+begin_example -nil 1 N/A -2 2 M-2 or C-u 2 -- -1 M-- or C-u - -(-16) -16 (M-- or C-u -) C-u × 2 -(64) 64 C-u × 3 -#+end_example - -- cgit v1.2.3