code.delx.au - gnu-emacs-elpa/blob - packages/realgud/realgud/common/utils.el

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