branch: externals/svg-lib
commit 5cb58656d1a6d2664c1acb9df1c8e16b086e8db2
Author: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Commit: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Bug fix
---
svg-lib-demo.el | 4 ++--
svg-lib.el | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/svg-lib-demo.el b/svg-lib-demo.el
index 1791b0c..23dc64b 100644
--- a/svg-lib-demo.el
+++ b/svg-lib-demo.el
@@ -2,8 +2,8 @@
(dotimes (i 5)
(insert-image (svg-lib-tag "TODO" nil
- :font-family "Roboto Mono" :font-weight (* (+ i 2)
100))))
-
+ :font-weight (* (+ i 2) 100))))
+
(dotimes (i 10)
(insert-image (svg-lib-tag "TODO" nil :padding 1 :stroke (/ i 4.0))))
diff --git a/svg-lib.el b/svg-lib.el
index 3bce73d..b3df0f5 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -28,7 +28,7 @@
;; Usage example:
;;
;; (insert-image (svg-lib-tag "TODO"))
-;; (insert-image (svg-lib-progress 0.33))
+;; (insert-image (svg-lib-progress-bar 0.33))
;; (insert-image (svg-lib-icon "star"))
;;
;; Icons ares created by parsing remote collections whose license are
@@ -390,7 +390,7 @@ Cached version is returned if it exists unless FORCE-RELOAD
is t."
(let ((url (format (cdr (assoc collection svg-lib-icon-collections)) name)))
;; create the svg-lib-icons-dir if not exists
(unless (file-exists-p svg-lib-icons-dir)
- (make-directory svg-lib-icons-dir))
+ (make-directory svg-lib-icons-dir t))
(let* ((filename (expand-file-name (format "%s_%s.svg" collection name)
svg-lib-icons-dir))
(buffer (if (or force-reload (not (file-exists-p filename)))
(with-current-buffer (url-retrieve-synchronously url)
