43 lines
1.7 KiB
EmacsLisp
43 lines
1.7 KiB
EmacsLisp
(defun org-space-key (&optional arg)
|
|
"Insert two spaces after a period."
|
|
(interactive "p")
|
|
|
|
(when (looking-back "[.!?…]")
|
|
(call-interactively 'self-insert-command arg))
|
|
(call-interactively 'self-insert-command arg))
|
|
|
|
;; From http://pages.sachachua.com/.emacs.d/Sacha.html
|
|
(defun sachachua/fill-or-unfill-paragraph (&optional unfill region)
|
|
"Fill paragraph (or REGION).
|
|
With the prefix argument UNFILL, unfill it instead."
|
|
(interactive (progn
|
|
(barf-if-buffer-read-only)
|
|
(list (if current-prefix-arg 'unfill) t)))
|
|
(let ((fill-column (if unfill (point-max) fill-column)))
|
|
(fill-paragraph nil region)))
|
|
|
|
;; Copied from http://emacs.stackexchange.com/a/27170/507
|
|
(defun so/query-swap-strings (from-string
|
|
to-string
|
|
&optional delimited start end)
|
|
"Swap occurrences of FROM-STRING and TO-STRING."
|
|
(interactive
|
|
(let ((common
|
|
(query-replace-read-args
|
|
(concat "Query swap"
|
|
(if current-prefix-arg
|
|
(if (eq current-prefix-arg '-) " backward" " word")
|
|
"")
|
|
(if (use-region-p) " in region" ""))
|
|
nil)))
|
|
(list (nth 0 common) (nth 1 common) (nth 2 common)
|
|
(if (use-region-p) (region-beginning))
|
|
(if (use-region-p) (region-end)))))
|
|
(perform-replace
|
|
(concat "\\(" (regexp-quote from-string) "\\)\\|" (regexp-quote to-string))
|
|
`(replace-eval-replacement replace-quote
|
|
(if (match-string 1)
|
|
,to-string
|
|
,from-string))
|
|
t t delimited nil nil start end))
|