add spray-set-margins
authorzk_phi <zerokay_phi@yahoo.co.jp>
Thu, 19 Jun 2014 03:12:46 +0000 (12:12 +0900)
committerzk_phi <zerokay_phi@yahoo.co.jp>
Thu, 19 Jun 2014 03:12:46 +0000 (12:12 +0900)
spray.el

index 361e0490cb0d0af45f85e9cdf4088d175b564d0f..77bff8e95214da58b6005d085e749abe666d93db 100644 (file)
--- a/spray.el
+++ b/spray.el
@@ -18,7 +18,7 @@
 
 ;; Author: zk_phi
 ;; URL: http://hins11.yu-yake.com/
-;; Version: 0.0.0
+;; Version: 0.0.1
 
 ;;; Commentary:
 
@@ -36,6 +36,7 @@
 
 ;;; Change Log:
 ;; 0.0.0 test release
+;; 0.0.1 add spray-set-margins
 
 ;;; Code:
 
@@ -71,6 +72,7 @@
 
 ;; * internal vars
 
+(defvar spray--margin-string "")
 (defvar spray--base-overlay nil)
 (defvar spray--orp-overlay nil)
 (defvar spray--running nil)
 (defvar spray--saved-buffer-face nil)
 (defvar spray--saved-restriction nil)
 
+;; * 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))))))
+
 ;; * the mode
 
 ;;;###autoload
                             (t 0))))
     (move-overlay spray--orp-overlay (1- orp) orp)
     (move-overlay spray--base-overlay beg end)
-    (overlay-put spray--base-overlay
-                 'before-string (make-string (- 5 (- orp beg)) ?\s))
+    (overlay-put spray--base-overlay 'before-string
+                 (concat spray--margin-string
+                         (make-string (- 5 (- orp beg)) ?\s)))
     (narrow-to-region beg end)))
 
 (defun spray--update ()