49 lines
762 B
EmacsLisp
49 lines
762 B
EmacsLisp
|
;; ------ ;;
|
||
|
;; String ;;
|
||
|
;; ------ ;;
|
||
|
|
||
|
(defun remove-prefix-from-string (prefix string)
|
||
|
(let ((rg (concat "^" prefix)))
|
||
|
(replace-regexp-in-string rg "" path)))
|
||
|
|
||
|
|
||
|
;; ----- ;;
|
||
|
;; Emacs ;;
|
||
|
;; ----- ;;
|
||
|
|
||
|
(defun buffer-empty-p ()
|
||
|
(equal (point-min) (point-max)))
|
||
|
|
||
|
(defun current-file-name ()
|
||
|
(buffer-file-name (current-buffer)))
|
||
|
|
||
|
(defun cwd ()
|
||
|
(replace-regexp-in-string "Directory " "" (pwd)))
|
||
|
|
||
|
(defun rbegin ()
|
||
|
(min (point) (mark)))
|
||
|
|
||
|
(defun rend ()
|
||
|
(max (point) (mark)))
|
||
|
|
||
|
|
||
|
;; ---- ;;
|
||
|
;; Lisp ;;
|
||
|
;; ---- ;;
|
||
|
|
||
|
(defun filter (condp l)
|
||
|
(if l
|
||
|
(let ((head (car l))
|
||
|
(tail (filter condp (cdr l))))
|
||
|
(if (funcall condp head)
|
||
|
(cons head tail)
|
||
|
tail))
|
||
|
()))
|
||
|
|
||
|
|
||
|
;; ------- ;;
|
||
|
;; Provide ;;
|
||
|
;; ------- ;;
|
||
|
|
||
|
(provide 'my-elisp)
|