Emacs drop shadows

drop-shadows.el

(require 'xml)
(require 'svg)

(let* ((text "Hello world!")
       (font       (query-font (font-at (point-min))))
       (font-size  (elt font 2))
       (family     (face-attribute 'default :family))
       (descent    (elt font 4))
       (ascent     (elt font 5))
       (svg-height (+ ascent descent))
       (char-width (elt font 7))
       (svg-width  (+ (* char-width (+ (length text) 2))))
       (svg        (svg-create svg-width svg-height)))

  (dom-append-child svg
      (dom-node 'defs nil 
         (dom-node 'filter '((id . "shadow"))
             (dom-node 'feGaussianBlur '((stdDeviation . "1.5"))))))
  (svg-text svg text
            :fill "#666666"
            :stroke-width 0
            :font-family family
            :font-weight "300"
            :font-size font-size
            :filter "url(#shadow)"
            :x char-width
            :y descent)
  (svg-text svg text
            :fill "black"
            :stroke-width 0
            :font-family family
            :font-weight "300"
            :font-size font-size
            :x char-width
            :y descent)
  ;;(message (svg-print svg))
  (insert-image (svg-image svg :ascent 'center)))