kobapan’s gists

kobapan / highlight.el

Created March 23, 2015 09:28

elisp 現在行をハイライト

	; in the current buffer,
	(hl-line-mode) ; enable or disable highlight cursor line
	(hl-line-mode t) ; enable highlight cursor line
	(hl-line-mode nil) ; disable highlight cursor line

	; globally,
	(global-hl-line-mode) ; enables or disables highlight cursor line
	(global-hl-line-mode t) ; enable highlight cursor line
	(global-hl-line-mode nil) ; disable highlight cursor line

kobapan / kill-other-buffers.el

Last active October 11, 2017 08:30

elisp カレントバッファ以外の全てのバッファを閉じる

	(defun kill-other-buffers ()
	"Kill all other buffers."
	(interactive)
	(let ((exclude '("scratch" "Messages")))
	(mapc (lambda (b)
	(let ((buf (buffer-name b)))
	(unless (member buf exclude)
	(kill-buffer buf))))
	(delq (current-buffer) (buffer-list)))))

kobapan / buffer-list-real.el

Created March 23, 2015 03:58

elisp buffer-listからファイルとディレクトリの一覧をフルパスで取得

	(delq nil (mapcar
	(lambda (x)
	(set-buffer x)
	(unless (string= (file-name-nondirectory "README") (buffer-name)) ;exclude README
	(or (buffer-file-name) list-buffers-directory)))
	(buffer-list)))

kobapan / scratch.el

Last active January 16, 2023 08:41

elisp *scratch* の永続化

	(setq initial-scratch-message "") ; とりあえず initial message を消す
	(add-hook 'kill-emacs-hook 'scratch-save) ; Emacs終了時に scratch を保存
	(add-hook 'window-setup-hook 'scratch-resume); 起動時に.scratchを読み込み
	;; window-setup-hook が最後に呼ばれるっぽい
	;; @see info 38.1.1 Summary: Sequence of Actions at Startup
	(add-hook 'kill-buffer-hook; scratch バッファで kill-buffer したら内容を保存
	(lambda () (if (equal (buffer-name) "scratch") (scratch-save))))
	(add-hook 'after-save-hook ; scratchをファイル保存したら、scratch復帰
	(lambda () (unless (get-buffer "scratch") (scratch-resume))))
	(defvar scratch-file "~/.emacs.d/.scratch")

kobapan / ftp_class.php

Last active January 3, 2021 22:54

Modified Version of "PHP FTP Client Class By TOMO" - converted ereg* to preg*

	<?php
	/*********************************************************************
	* Modified Version of "PHP FTP Client Class By TOMO"
	*
	* convert ereg* to preg*
	*
	* Author kobapan kobapan at gmail.com
	********************************************************************/

	/*********************************************************************

kobapan / def-add-hooks.el

Last active October 11, 2017 08:32

elisp 同じFUNCTIONを、複数モードのadd-hookに、一括で登録するマクロ

	(defmacro def-add-hooks (lst body)
	`(mapc #'(lambda (name)
	(add-hook name #'(lambda () ,body)))
	,lst))

	; 使い方
	; (def-add-hooks `(text-mode-hook markdown-mode-hook)
	; (setq truncate-lines nil))

kobapan / cut.scm

Last active October 11, 2017 08:32

cut の使い方

(map (cut * <> 2) `(1 2 3 4 5))

kobapan kobapan