sanryuu sanryuu

sanryuu / reference-user-comment.el

Created December 5, 2013 17:33

reference-user-comment.el ユーザ定義した関数の上のコメントをポップアップで表示します(PHPのみ対応)

	;; reference-user-comment.el
	;(global-set-key "\C-c\C-r" 'ruc-reference-document)

	(require 'popup)
	(require 'gtags)

	(defun ruc-reference-document ()
	"This function display document comment
	from user defined function
	@return (popup) document"

sanryuu / ebb.el

Created December 3, 2013 18:07

Emacsのミニバッファで新幹線の電光掲示板っぽく表示します。


	(defvar ebb:display-taget ""
	"ebbで表示する文字を設定")

	(defcustom ebb:display-limit 7
	"表示する文字数を設定"
	:type 'integer
	:group 'ebb)

	(defcustom ebb:display-interval 0.5

sanryuu / polygon-shock.el

Created December 1, 2013 14:47

Emacs上でポリゴンショックします。

	(defvar polygon-flag nil)

	(defun polygon-shock ()
	(interactive)
	(cond
	(polygon-flag
	(custom-set-faces
	'(default ((t (:background "red" :foreground "white")))))
	(setq polygon-flag nil))
	(t

sanryuu / display-couple-parenthesis.el

Last active January 13, 2018 03:04

display-couple-parenthesis Elispの対応するカッコを情報をミニバッファに表示する。

	(defvar display-couple-parenthesis-type "token")
	(defvar display-couple-parenthesis-process nil)
	(defvar display-couple-parenthesis-interval 0.5)

	;; 表示を行表示に切り替える
	(defun switch-display-couple-parenthesis-line ()
	"switch display couple parenthesis type to line"
	(interactive)
	(setq display-couple-parenthesis-type "line"))