michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(emacs/lean-util): remove unused functions

Browse source 
- take-first-n/last-n => use -take, -drop (from dash.el)
 - string-join => use one in flycheck
 - remove other unused functions
This commit is contained in:
Soonho Kong 2014-08-25 11:35:09 -07:00
parent 812934f31f
commit 10fb60e4dd
1 changed files with 1 additions and 65 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

66
src/emacs/lean-util.el
View file

@ -11,78 +11,14 @@
(cl-reduce (lambda (p1 p2) (concat (file-name-as-directory p1) p2)) (cl-reduce (lambda (p1 p2) (concat (file-name-as-directory p1) p2))
seq)) seq))
(defun lean-string-contains-line-p (str line)
"return true if str contains line"
(or (string-prefix-p line str)
(search (concat "\n" line) str)))
(defun lean-string-join (strings &optional separator)
"Join all STRINGS using SEPARATOR."
(mapconcat 'identity strings separator))
(defun lean-grab-line (n) (defun lean-grab-line (n)
"Return the contents of line n" "Return the contents of n-th line at the current buffer"
(let* ((cur-line-number (line-number-at-pos)) (let* ((cur-line-number (line-number-at-pos))
(rel-line-number (1+ (- n cur-line-number))) (rel-line-number (1+ (- n cur-line-number)))
(p1 (line-beginning-position rel-line-number)) (p1 (line-beginning-position rel-line-number))
(p2 (line-end-position rel-line-number))) (p2 (line-end-position rel-line-number)))
(buffer-substring-no-properties p1 p2))) (buffer-substring-no-properties p1 p2)))
(defun lean-split-seq-if (seq delim-pred &optional while-pred)
(let ((result ())
(cell ()))
(cl-loop for item in seq
while (if while-pred (funcall while-pred item) t)
do (cond ((funcall delim-pred item)
(when cell
(setq result (cons (nreverse cell) result))
(setq cell nil)))
(t (setq cell (cons item cell))))
finally
(return (cond (cell (nreverse (cons (nreverse cell) result)))
(t (nreverse result)))))))
(defun lean-split-seq (seq delim)
(lean-split-seq-if seq (lambda (x) (equal delim x))))
(defun lean-take-first-n (seq n)
"Take first n elements from seq"
(cond ((< (length seq) n) seq)
(t (cl-subseq seq 0 n))))
;; -- Test
(cl-assert (equal (lean-take-first-n '(1 2 3 4 5 6 7 8 9 10) 3)
'(1 2 3)))
(cl-assert (equal (lean-take-first-n '(1 2 3 4 5 6 7 8 9 10) 10)
'(1 2 3 4 5 6 7 8 9 10)))
(cl-assert (equal (lean-take-first-n '(1 2 3 4 5 6 7 8 9 10) 11)
'(1 2 3 4 5 6 7 8 9 10)))
(cl-assert (equal (lean-take-first-n '(1 2 3 4 5 6 7 8 9 10) 0)
nil))
(cl-assert (equal (lean-take-first-n '() 0)
nil))
(cl-assert (equal (lean-take-first-n '() 2)
nil))
(defun lean-take-last-n (seq n)
"Take first n elements from seq"
(let ((l (length seq)))
(cond ((< l n) seq)
(t (cl-subseq seq (- l n) l)))))
;; -- Test
(cl-assert (equal (lean-take-last-n '(1 2 3 4 5 6 7 8 9 10) 3)
'(8 9 10)))
(cl-assert (equal (lean-take-last-n '(1 2 3 4 5 6 7 8 9 10) 10)
'(1 2 3 4 5 6 7 8 9 10)))
(cl-assert (equal (lean-take-last-n '(1 2 3 4 5 6 7 8 9 10) 11)
'(1 2 3 4 5 6 7 8 9 10)))
(cl-assert (equal (lean-take-last-n '(1 2 3 4 5 6 7 8 9 10) 0)
nil))
(cl-assert (equal (lean-take-last-n '() 0)
nil))
(cl-assert (equal (lean-take-last-n '() 2)
nil))
(defun lean-get-rootdir () (defun lean-get-rootdir ()
(or (or
lean-rootdir lean-rootdir