You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
1.1 KiB
36 lines
1.1 KiB
(require 'yasnippet)
|
|
|
|
;; whitespace removing functions from Magnar Sveen ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
(defun yas-s-trim-left (s)
|
|
"Remove whitespace at the beginning of S."
|
|
(if (string-match "\\`[ \t\n\r]+" s)
|
|
(replace-match "" t t s)
|
|
s))
|
|
|
|
(defun yas-s-trim-right (s)
|
|
"Remove whitespace at the end of S."
|
|
(if (string-match "[ \t\n\r]+\\'" s)
|
|
(replace-match "" t t s)
|
|
s))
|
|
|
|
(defun yas-s-trim (s)
|
|
"Remove whitespace at the beginning and end of S."
|
|
(yas-s-trim-left (yas-s-trim-right s)))
|
|
|
|
|
|
(defun yas-string-reverse (str)
|
|
"Reverse a string STR manually to be compatible with emacs versions < 25."
|
|
(apply #'string
|
|
(reverse
|
|
(string-to-list str))))
|
|
|
|
(defun yas-trimmed-comment-start ()
|
|
"This function returns `comment-start' trimmed by whitespaces."
|
|
(yas-s-trim comment-start))
|
|
|
|
(defun yas-trimmed-comment-end ()
|
|
"This function returns `comment-end' trimmed by whitespaces if `comment-end' is not empty.
|
|
Otherwise the reversed output of function `yas-trimmed-comment-start' is returned."
|
|
(if (eq (length comment-end) 0)
|
|
(yas-string-reverse (yas-trimmed-comment-start))
|
|
(yas-s-trim comment-end)))
|