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

more robust get-unique-strings

parent eddcb9fd
......@@ -16,9 +16,9 @@
(defun get-unique-strings (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")))
" "
(xmls:xmlrep-string-child (xmls:xmlrep-find-child-tag :t str)))))
for x = (xmls:xmlrep-find-child-tag :t str)
collect (cond ((equal (second x) '(("space" "preserve"))) " ")
((xmls:xmlrep-children x) (xmls:xmlrep-string-child x)))))
(defun get-number-formats (zip)
(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