ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

adding string manipulation functions to org-babel.el

This commit is contained in:
Eric Schulte 2009-06-11 14:31:37 -07:00
parent 2081b95410
commit 9040ad657b
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-babel.el
View File

@ -359,6 +359,9 @@ This is taken almost directly from `org-read-prop'."
"Return t if STRING represents a number" "Return t if STRING represents a number"
(string-match "^[[:digit:]]*\\.?[[:digit:]]*$" string)) (string-match "^[[:digit:]]*\\.?[[:digit:]]*$" string))
(defun org-babel-reverse-string (string)
(apply 'string (reverse (string-to-list string))))
(defun org-babel-chomp (string &optional regexp) (defun org-babel-chomp (string &optional regexp)
"Remove any trailing space or carriage returns characters from "Remove any trailing space or carriage returns characters from
STRING. Default regexp used is \"[ \f\t\n\r\v]\" but can be STRING. Default regexp used is \"[ \f\t\n\r\v]\" but can be
@ -367,5 +370,10 @@ overwritten by specifying a regexp as a second argument."
(setq string (substring string 0 -1))) (setq string (substring string 0 -1)))
string) string)
(defun org-babel-trim (string &optional regexp)
"Like `org-babel-chomp' only it runs on both the front and back of the string"
(org-babel-chomp (org-babel-reverse-string
(org-babel-chomp (org-babel-reverse-string string) regexp)) regexp))
(provide 'org-babel) (provide 'org-babel)
;;; org-babel.el ends here ;;; org-babel.el ends here