@@ -46,5 +46,11 @@
 
 (define (ext-link url-str . elems)
   (keyword-apply hyperlink '(#:style) (list (style #f (list (attributes '((target . "_blank")))))) 
          url-str
          elems))
+
+(define (responsive-retina-image img-path)
+  (image img-path 
+         #:scale 0.5
+         #:style (style #f (list (attributes '((style . "max-width:100%;height:auto;")))))))
+