Emacs - Revision history

RobertBushman: /* Whole Dot Emacs */

2024-12-27T17:16:04Z

Whole Dot Emacs

← Older revision		Revision as of 17:16, 27 December 2024
Line 345:		Line 345:
	("\\u201c" . "\"")		("\\u201c" . "\"")
	("\\u201d" . "\"")		("\\u201d" . "\"")
			("\\u2026" . "...")
	("\u2014" . " - ")		("\u2014" . " - ")
	("\u2018" . "'")		("\u2018" . "'")
	("\u2019" . "'")		("\u2019" . "'")
	("\u201c" . "\"")		("\u201c" . "\"")
	("\u201d" . "\""))))		("\u201d" . "\"")
			("\u2026" . "..."))))
	(dolist (pair replacements)		(dolist (pair replacements)
	(goto-char (point-min)) ; Start from the beginning of the buffer.		(goto-char (point-min)) ; Start from the beginning of the buffer.
	(replace-string (car pair) (cdr pair))))))		(replace-string (car pair) (cdr pair))))))
	</syntaxhighlight>		</syntaxhighlight>

2024-12-27T17:11:28Z

Whole Dot Emacs

← Older revision		Revision as of 17:11, 27 December 2024
Line 336:		Line 336:

	(defun fix-stupid-quotes ()		(defun fix-stupid-quotes ()
			"Replace smart quotes and em-dashes with plain text equivalents."
	(interactive)		(interactive)
	(~~replace~~-~~string~~ "\\u2014" " - ")		(save-excursion
	(~~replace-string~~ "\\u2018" "'")		;; List of replacements as pairs (search . replacement).
	(~~replace-string~~ "\\u2019" "'")		(let ((replacements '(("\\u2014" . " - ")
	(~~replace-string~~ "\\u201c" "\"")		("\\u2018" . "'")
	(~~replace-string~~ "\\u201d" "\"")		("\\u2019" . "'")
	(~~replace-string~~ "—" " - ")		("\\u201c" . "\"")
	(~~replace-string~~ "‘" "'")		("\\u201d" . "\"")
	(~~replace-string~~ "’" "'")		("\u2014" . " - ")
	(~~replace-string~~ "“" "\"")		("\u2018" . "'")
	(~~replace-string~~ "”" "\"")		("\u2019" . "'")
	)		("\u201c" . "\"")
			("\u201d" . "\""))))
			(dolist (pair replacements)
			(goto-char (point-min)) ; Start from the beginning of the buffer.
			(replace-string (car pair) (cdr pair))))))
	</syntaxhighlight>		</syntaxhighlight>

2024-12-27T16:52:02Z

Whole Dot Emacs

← Older revision		Revision as of 16:52, 27 December 2024
Line 334:		Line 334:
	(set-fontset-font		(set-fontset-font
	t 'symbol (font-spec :family "Noto Color Emoji") nil 'prepend))		t 'symbol (font-spec :family "Noto Color Emoji") nil 'prepend))

	~~(defun fix-stupid-quotes ()~~
	~~(interactive)~~
	~~(replace-string "\\u2014" " - ")~~
	~~(replace-string "\\u2018" "'")~~
	~~(replace-string "\\u2019" "'")~~
	~~(replace-string "\\u201c" "\"")~~
	~~(replace-string "\\u201d" "\"")~~
	)

	(defun fix-stupid-quotes ()		(defun fix-stupid-quotes ()

2024-12-27T16:51:36Z

Whole Dot Emacs

@@ Line 342: / Line 342: @@
    (replace-string "\\u201c" "\"")
    (replace-string "\\u201d" "\"")
+   )
 </syntaxhighlight>

2024-12-27T16:03:15Z

Whole Dot Emacs

@@ Line 334: / Line 334: @@
    (set-fontset-font
      t 'symbol (font-spec :family "Noto Color Emoji") nil 'prepend))
 </syntaxhighlight>

2023-10-25T05:36:38Z

Whole Dot Emacs

← Older revision		Revision as of 05:36, 25 October 2023
Line 330:		Line 330:
	(global-set-key (kbd "M-r") 'rectangle-mark-mode)		(global-set-key (kbd "M-r") 'rectangle-mark-mode)

			;; sudo apt install fonts-noto-color-emoji
	(when (member "Noto Color Emoji" (font-family-list))		(when (member "Noto Color Emoji" (font-family-list))
	(set-fontset-font		(set-fontset-font
	t 'symbol (font-spec :family "Noto Color Emoji") nil 'prepend))		t 'symbol (font-spec :family "Noto Color Emoji") nil 'prepend))
	</syntaxhighlight>		</syntaxhighlight>

2023-10-25T05:35:00Z

Whole Dot Emacs

← Older revision		Revision as of 05:35, 25 October 2023
Line 11:		Line 11:
	</syntaxhighlight>		</syntaxhighlight>
	= Whole Dot Emacs =		= Whole Dot Emacs =
	<syntaxhighlight lang="lisp" ~~lines~~>		<syntaxhighlight lang="lisp" line>
	;; iso-latin-1		;; iso-latin-1
	;;(defun recenter-10 ()		;;(defun recenter-10 ()

2023-10-25T05:34:52Z

Whole Dot Emacs

← Older revision		Revision as of 05:34, 25 October 2023
Line 11:		Line 11:
	</syntaxhighlight>		</syntaxhighlight>
	= Whole Dot Emacs =		= Whole Dot Emacs =
	<syntaxhighlight lang="lisp">		<syntaxhighlight lang="lisp" lines>
	;; iso-latin-1		;; iso-latin-1
	;;(defun recenter-10 ()		;;(defun recenter-10 ()

2023-10-25T05:34:35Z

Whole Dot Emacs

← Older revision		Revision as of 05:34, 25 October 2023
Line 11:		Line 11:
	</syntaxhighlight>		</syntaxhighlight>
	= Whole Dot Emacs =		= Whole Dot Emacs =
	<~~pre~~>		<syntaxhighlight lang="lisp">
	;; iso-latin-1		;; iso-latin-1
	;;(defun recenter-10 ()		;;(defun recenter-10 ()
Line 333:		Line 333:
	(set-fontset-font		(set-fontset-font
	t 'symbol (font-spec :family "Noto Color Emoji") nil 'prepend))		t 'symbol (font-spec :family "Noto Color Emoji") nil 'prepend))
	</~~pre~~>		</syntaxhighlight>

2023-10-25T05:33:22Z

Yank from Primary Selection