hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-06 01:51:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

small tweaks

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2016-09-04 21:42:15 +02:00
parent 15f25cbaee
commit b1e9c14716
2 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
boon-arguments.el
View file

@ -32,6 +32,8 @@
(?m . ("`" "'")) (?m . ("`" "'"))
(?p . ("(" ")")) (?p . ("(" ")"))
(?q . ("'" "'")) (?q . ("'" "'"))
(?q . ("'" "'"))
(?Q . ("`" "'"))
(?r . ("{" "}")) (?r . ("{" "}"))
(?o . ("⟦" "⟧")) ;; oxford brackets (?o . ("⟦" "⟧")) ;; oxford brackets
(?t . ("~" "~")) ;; tilda (?t . ("~" "~")) ;; tilda

7
boon-main.el
View file

@ -99,7 +99,8 @@ When repeated, fix the spacing if necessary."
"Fix the text to have the right amout of spacing at the point. "Fix the text to have the right amout of spacing at the point.
Return nil if no changes are made, t otherwise." Return nil if no changes are made, t otherwise."
(interactive) (interactive)
(cond ((looking-at " ") (cond ((bolp) nil) ;; inserted at least one full line.
((looking-at " ")
(when (or (bolp) (looking-back "\\s-\\|\\s(")) (when (or (bolp) (looking-back "\\s-\\|\\s("))
(delete-char 1) (delete-char 1)
t)) t))
@ -281,8 +282,8 @@ If there is more than one, use mc/create-fake-cursor-at-point."
(boon-set-insert-state))) (boon-set-insert-state)))
(defun boon-replace-by-character (replacement) (defun boon-replace-by-character (replacement)
"Replace the character at point, or the region if it is active, "Replace the character at point by the REPLACEMENT character.
by the REPLACEMENT character." Replace the region if it is active."
(interactive (list (read-char))) (interactive (list (read-char)))
(if (use-region-p) (if (use-region-p)
(delete-region (region-beginning) (region-end)) (delete-region (region-beginning) (region-end))