1 (require 'load-relative)
3 (defun realgud:strip (str)
4 "Remove leading and tailing whitespace from STR."
5 (while (string-match "\\`\n+\\|^\\s-+\\|\\s-+$\\|\n+\\'"
7 (setq str (replace-match "" t t str)))
10 ;; From http://rosettacode.org/wiki/Flatten_a_list#Emacs_Lisp
11 (defun realgud:flatten (mylist)
14 ((atom mylist) (list mylist))
16 (append (realgud:flatten (car mylist)) (realgud:flatten (cdr mylist))))))
18 (provide-me "realgud-")