+;; * utility functions
+
+(defun spray-set-margins (left above)
+ "add margins before/above the spray text. each arguments can be
+an integer or a float value."
+ (setq spray--margin-string
+ (propertize " " 'display `((space-width ,left) (height ,(1+ above))))))
+