iankelling.org
/
git
/
spray
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f942660
)
add spray-set-margins
author
zk_phi
<zerokay_phi@yahoo.co.jp>
Thu, 19 Jun 2014 03:12:46 +0000
(12:12 +0900)
committer
zk_phi
<zerokay_phi@yahoo.co.jp>
Thu, 19 Jun 2014 03:12:46 +0000
(12:12 +0900)
spray.el
patch
|
blob
|
history
diff --git
a/spray.el
b/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/
;; Author: zk_phi
;; URL: http://hins11.yu-yake.com/
-;; Version: 0.0.
0
+;; Version: 0.0.
1
;;; Commentary:
;;; Commentary:
@@
-36,6
+36,7
@@
;;; Change Log:
;; 0.0.0 test release
;;; Change Log:
;; 0.0.0 test release
+;; 0.0.1 add spray-set-margins
;;; Code:
;;; Code:
@@
-71,6
+72,7
@@
;; * internal vars
;; * internal vars
+(defvar spray--margin-string "")
(defvar spray--base-overlay nil)
(defvar spray--orp-overlay nil)
(defvar spray--running nil)
(defvar spray--base-overlay nil)
(defvar spray--orp-overlay nil)
(defvar spray--running nil)
@@
-79,6
+81,14
@@
(defvar spray--saved-buffer-face nil)
(defvar spray--saved-restriction 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
;; * the mode
;;;###autoload
@@
-143,8
+153,9
@@
(t 0))))
(move-overlay spray--orp-overlay (1- orp) orp)
(move-overlay spray--base-overlay beg end)
(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 ()
(narrow-to-region beg end)))
(defun spray--update ()