;;; -*- lexical-binding: t -*-

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'll)

(-> 'svg)

(cl-defmethod ll-box-svg ((x integer) (y integer) (w integer) (h integer))
  (let* ((aw  (* w (frame-char-width)))
         (ah  (* h (frame-char-height)))
         (svg (svg-create aw ah))
         (lne (- (pos-eol) (pos-bol)))
         (beg (+ (point-min) x   (* y       lne)))
         (end (+ (point-min) x w (* (+ y h) lne)))
         (ov  (make-overlay beg end)))
    (svg-gradient svg "grad" 'radial (list ' (50% . blue)))
    (svg-rectangle svg 0 0 aw ah
                   :fill         "magenta"
                   :gradient     "grad"
                   :stroke-color "cyan"
                   :stroke-width 4)
    (overlay-put ov 'display (svg-image svg))
    (overlay-put ov 'priority 1000)))

;; (ll-box-svg 0 (line-number-at-pos (pos-bol 8)) 32 16)

;; ███████████████████████████████████████████████████████████████████████████████████████
;; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
;; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
;; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
;; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
;; ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒

(<- 'll-box-svg)
;;; ll-box-svg.el ends here