Commit 51f6a212 authored by Carlos Ungil's avatar Carlos Ungil

more robust get-unique-strings

parent eddcb9fd
...@@ -16,9 +16,9 @@ ...@@ -16,9 +16,9 @@
(defun get-unique-strings (zip) (defun get-unique-strings (zip)
(loop for str in (xmls:xmlrep-find-child-tags :si (get-entry "xl/sharedStrings.xml" zip)) (loop for str in (xmls:xmlrep-find-child-tags :si (get-entry "xl/sharedStrings.xml" zip))
collect (if (equal (second (xmls:xmlrep-find-child-tag :t str)) '(("space" "preserve"))) for x = (xmls:xmlrep-find-child-tag :t str)
" " collect (cond ((equal (second x) '(("space" "preserve"))) " ")
(xmls:xmlrep-string-child (xmls:xmlrep-find-child-tag :t str))))) ((xmls:xmlrep-children x) (xmls:xmlrep-string-child x)))))
(defun get-number-formats (zip) (defun get-number-formats (zip)
(let ((format-codes (loop for fmt in (xmls:xmlrep-find-child-tags (let ((format-codes (loop for fmt in (xmls:xmlrep-find-child-tags
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment