diff options
| -rw-r--r-- | w3m-session-backup.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/w3m-session-backup.el b/w3m-session-backup.el index ca7192f..47710d5 100644 --- a/w3m-session-backup.el +++ b/w3m-session-backup.el @@ -27,6 +27,15 @@ ;; Format some YAML text to write to the file ;; Configurable dynamic filename based on date-time +(defun yml-escape (str) + "YAML escape single quotes by doubling them." + (replace-regexp-in-string + (regexp-quote "'") + "''" + str + 'fixedcase + 'literal)) + (defun save-backup () "TODO" (with-temp-file "~/tmp-w3m-session.yml" @@ -34,9 +43,9 @@ (string-join (mapcar (lambda (page) - (format "- page_title: %s - url: %s" - (first (last page)) + (format "- page_title: '%s' + url: '%s'" + (yml-escape (first (last page))) (first page))) (my-w3m-session-backup)) "\n")))) |