utilities.lisp 1.46 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
;;
;; Copyright 2002, 2009, 2012 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;; 
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; Affero General Public License for more details.
;; 
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file.  If not, see
;; <http://www.gnu.org/licenses/>.
;;


(in-package :com.genworks.dom-latex)

(defun remove-keys (keys plist)
  (let ((list (copy-list plist)))
    (dolist (key keys list) (remf list key))))



31
#+nil
32 33 34 35 36 37 38 39 40 41 42 43 44 45
(defun replace-substring (string old new)
  (let ((position (search old string)))
    (if position
	(string-append 
	 (subseq string 0 position) new
	 (replace-substring (subseq string (+ position (length old))) old new))
      string)))

(defun escape-string (string)
  (replace-substring
   (replace-substring
    (replace-substring
     (replace-substring 
      (replace-substring
46
       (replace-substring string "#" "\\#") "$" "\\$") "_" "\\_") "^" "hat-") "&" "\\&") "%" "\\%"))
47