Restore (tacc-tag-render) with fixes

tacc.el

@@ -529,6 +529,12 @@ float"
                  'face 'tacc-graph-void)
      "  \n")))
 
+(defun tacc-tag-render (tag)
+  (concat "    Tag: "
+          (propertize (if (string= tag "") "<None>" .tag)
+                      'face 'tacc-tag)
+          "\n"))
+
 (defun tacc-timer-buffer-update (state start-ts est-ts countdown now)
  "Update the timer buffer rendering"
   (tacc-render-with-buffer
@@ -540,9 +546,7 @@ float"
     .graph-start .graph-end
     (let-alist tacc-info
       (concat
-       "    Tag: " (propertize (if (string= .tag "") "<None>" .tag)
-                               'face 'tacc-tag)
-       "\n"
+       (tacc-tag-render .tag)
        (let* ((end (if (> now est-ts) now est-ts))
               (total (- end .work-ts))
               (work-prop (/ (- (if .break-ts .break-ts now) .work-ts) total))
@@ -555,7 +559,7 @@ float"
    (save-restriction
      (narrow-to-region .graph-start .graph-start)
      (goto-char (point-min))
-     (insert (tacc-current-tag-render)
+     (insert (tacc-tag-render .tag)
              (tacc-graph-bar-render width 0 0 1)
              "\n")
      (set-marker .graph-start (point-min))