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

remove duplicated code

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2014-10-23 13:14:38 +02:00
parent ace429d19c
commit b20aeaa382
1 changed files with 1 additions and 52 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
boon-main.el
View file

@ -319,63 +319,12 @@ line."
(unless (funcall progress)
(end-of-line)))))
(defun blank-string-p (string)
"Is the argument composed only of spaces and other blank characters?"
(equal "" (replace-regexp-in-string "[[:space:]]" "" string)))
(defun boon-line-prefix ()
"return the text between beginning of line and position"
(buffer-substring-no-properties
(line-beginning-position)
(line-beginning-position)
(point)))
(defun boon-beginning-of-line ()
"Move point to the first non-whitespace character on this line.
If point was already at that position, move point to beginning of
line."
(interactive)
(let ((oldpos (point)))
(beginning-of-line)
(when (= oldpos (point))
(back-to-indentation))))
(defun boon-looking-at-comment (how-many)
"Is the current point looking at 'how many' comments? (negative for backwards)"
(save-excursion
(forward-comment how-many)))
(defun boon-in-string-p ()
"Determine if the point is inside a string"
(nth 3 (syntax-ppss)))
(defun looking-at-line-comment-start-p ()
"Are we looking at a comment-start? (and not in a string)"
(interactive)
(and (boundp 'comment-start)
comment-start
(looking-at comment-start)
(not (boon-in-string-p))))
(defun boon-end-of-line ()
"Toggle between jumping to 1. the last character of code on the
line 2. the last non-blank char on the line 3. the true end of
line."
(interactive)
(let* ((orig (point))
(orig-eol (eolp))
(progress (lambda () (and (not (bolp)) (or orig-eol (> (point) orig))))))
(beginning-of-line)
(while (not (or (looking-at-line-comment-start-p) (eolp)))
(forward-char))
;; we're now at the last non-comment character of the line
(skip-chars-backward "\n\t " (line-beginning-position))
;; we're now at the last non-blank, non-comment character of the line
(unless (funcall progress)
(end-of-line)
(skip-chars-backward "\n\t " (line-beginning-position))
;; we're now at the last non-blank character of the line
(unless (funcall progress)
(end-of-line)))))
(defun blank-string-p (string)
"Is the argument composed only of spaces and other blank characters?"
(equal "" (replace-regexp-in-string "[[:space:]]" "" string)))