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

use string-blank-p

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2015-06-21 22:43:25 +02:00
parent 32ff9a6052
commit 467eacf965
1 changed files with 3 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
boon-main.el
View file

@ -127,7 +127,7 @@
"Return non-nil if the point is at the current line indentation; or to the right."
(or (eolp)
(and (not (boon-at-indent-p))
(boon-blank-string-p (boon-line-prefix)))))
(string-blank-p (boon-line-prefix)))))
(defun boon-at-indent-p ()
"Return non-nil if the point is at the current line indentation."
@ -308,10 +308,6 @@ line."
(unless (funcall progress)
(end-of-line)))))
(defun boon-blank-string-p (string)
"Is the STRING composed only of spaces and other blank characters?"
(equal "" (replace-regexp-in-string "[[:space:]]" "" string)))
(defun boon-open-line-and-insert ()
"Open a new line, indented as much as the current one, and switch to insert mode."
(interactive)
@ -333,7 +329,7 @@ line."
(let ((line-prefix (boon-line-prefix)))
;; (message "next-line-prefix is %S" next-line-prefix)
(open-line 1)
(when (boon-blank-string-p line-prefix)
(when (string-blank-p line-prefix)
(progn
(forward-char 1)
(insert line-prefix))))))
@ -373,7 +369,7 @@ line."
(defun boon-newline-dwim ()
"Insert a new line do-what-i-mean style."
(interactive)
(if (and (not (eolp)) (boon-blank-string-p (boon-line-prefix)))
(if (and (not (eolp)) (string-blank-p (boon-line-prefix)))
(call-interactively 'boon-open-line)
(boon-split-line)))
(defun boon-mark-region (regs)