[elpa] externals/svg-tag-mode 95b5404997 35/63: Merge pull request #13 from tarsiiformes/cleanup

[ELPA Syncer]

branch: externals/svg-tag-mode
commit 95b5404997d7194b4946df0a475fd93203a36cb9
Merge: a34a2e1128 78a343f0f3
Author: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Commit: GitHub <nore...@github.com>

    Merge pull request #13 from tarsiiformes/cleanup
    
    Cleanup whitespace and enforce use of spaces for indentation
---
 svg-tag-mode.el | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/svg-tag-mode.el b/svg-tag-mode.el
index ee839d944e..314421df2d 100644
--- a/svg-tag-mode.el
+++ b/svg-tag-mode.el
@@ -45,7 +45,9 @@
 ;;    (setq svg-tag-tags '(("([0-9])" svg-tag-round)))
 ;;    (svg-tag-mode)
 ;;
+
 ;;; Code:
+
 (require 'svg)
 (eval-when-compile (require 'subr-x))
 
@@ -137,9 +139,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)))
+                                 svg-tag--font-weights)))
          (size       (/ (face-attribute face :height) 10))
 
          (tag-char-width  (window-font-width nil face))
@@ -159,15 +161,18 @@ INNER-PADDING, OUTER-PADDING and RADIUS controls the 
visual aspect of the box."
          (tag-x (/ (- svg-width tag-width) 2))
          (text-x (+ tag-x (/ (- tag-width (* (length text) tag-char-width)) 
2)))
          (text-y (- tag-char-height (- txt-char-height tag-char-height)))
-         
+
          (radius  (or radius svg-tag-default-radius))
          (svg (svg-create svg-width svg-height)))
-         
+
     (svg-rectangle svg tag-x 0 tag-width tag-height
                    :fill        stroke
                    :rx          radius)
-    (svg-rectangle svg (+ tag-x (/ line-width 2.0)) (/ line-width 2.0)
-                       (- tag-width line-width) (- tag-height line-width)
+    (svg-rectangle svg
+                   (+ tag-x (/ line-width 2.0))
+                   (/ line-width 2.0)
+                   (- tag-width line-width)
+                   (- tag-height line-width)
                    :fill        background
                    :rx          (- radius (/ line-width 2.0)))
     (svg-text      svg text
@@ -220,5 +225,7 @@ INNER-PADDING, OUTER-PADDING and RADIUS controls the visual 
aspect of the box."
    global-svg-tag-mode svg-tag-mode svg-tag-mode-on)
 
 (provide 'svg-tag-mode)
-
+;; Local Variables:
+;; indent-tabs-mode: nil
+;; End:
 ;;; svg-tag-mode.el ends here