[elpa] externals/svg-tag-mode 4fdc7ffbb3 23/63: Fixed font weights

[ELPA Syncer]

branch: externals/svg-tag-mode
commit 4fdc7ffbb30175fc483dc4078664b95a5299e150
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Fixed font weights
---
 example-2.el    | 18 +++++++-----------
 svg-tag-mode.el | 14 +++++++++++++-
 2 files changed, 20 insertions(+), 12 deletions(-)

diff --git a/example-2.el b/example-2.el
index 0e98fd8acc..a5f54c978e 100644
--- a/example-2.el
+++ b/example-2.el
@@ -17,17 +17,17 @@
 
 (defface svg-tag-todo-face
   '((t :foreground "#ffffff" :background "#FFAB91" :box "#FFAB91"
-       :family "Roboto Mono" :weight light :height 120))
+       :family "Roboto Mono" :weight regular :height 120))
   "Face for TODO  svg tag" :group nil)
 
 (defface svg-tag-next-face
   '((t :foreground "white" :background "#673AB7" :box "#673AB7"
-       :family "Roboto Mono" :weight light :height 120))
+       :family "Roboto Mono" :weight regular :height 120))
   "Face for NEXT svg tag" :group nil)
 
 (defface svg-tag-done-face
   '((t :foreground "white" :background "#B0BEC5" :box "#B0BEC5"
-       :family "Roboto Mono" :weight light :height 120))
+       :family "Roboto Mono" :weight regular :height 120))
   "Face for DONE  svg tag" :group nil)
 
 (defface svg-tag-date-face
@@ -37,7 +37,7 @@
 
 (defface svg-tag-org-face
   '((t :foreground "black" :background "white" :box "black"
-       :family "Roboto Mono" :weight light :height 120))
+       :family "Roboto Mono" :weight regular :height 120))
   "Default face for svg tag" :group nil)
 
 (setq radius 2)
@@ -75,10 +75,6 @@
 ;; Priorities: [#A] [#B] [#C]
 ;; Date:       <2020-11-07 Sat>
 
-;;  DONE Make a pull request on melpa                             <2020-11-07 
Sat>
-;;  NEXT Wait for review
-;;  TODO Post on Reddit
-
-
-
-
+;; DONE Make a pull request on melpa                             <2020-11-07 
Sat>
+;; NEXT Wait for review
+;; TODO Post on Reddit
diff --git a/svg-tag-mode.el b/svg-tag-mode.el
index a15a1aeefd..9c664e0402 100644
--- a/svg-tag-mode.el
+++ b/svg-tag-mode.el
@@ -112,6 +112,16 @@ allows to create dynamic tags."
   :type '(repeat (cons (string :tag "Keyword")
                        (sexp   :tag "Tag"))))
 
+;; SVG font weights translation
+(setq svg-tag--font-weights '((thin       . 100)
+                              (ultralight . 200)
+                              (light      . 300)
+                              (regular    . 400)
+                              (medium     . 500)
+                              (semibold   . 600)
+                              (bold       . 700)
+                              (extrabold  . 800)
+                              (black      . 900)))
 
 (defun svg-tag-make (text &optional face inner-padding outer-padding radius)
   "Create a SVG image displaying TEXT in a rounded box using FACE style.
@@ -126,7 +136,9 @@ INNER-PADDING, OUTER-PADDING and RADIUS controls the visual 
aspect of the box."
          (line-width (or (plist-get (face-attribute face :box) :line-width)
                          svg-tag-default-line-width))
          (family     (face-attribute face :family))
-         (weight     (face-attribute face :weight))
+;;         (weight     (face-attribute face :weight))
+         (weight     (cdr (assoc (face-attribute face :weight)
+                                           svg-tag--font-weights)))
          (size       (/ (face-attribute face :height) 10))
 
          (tag-char-width  (window-font-width nil face))