Skip to content

Instantly share code, notes, and snippets.

View tek-nishi's full-sized avatar

Nobuyuki Nishiyama tek-nishi

182 followers · 202 following
View GitHub Profile
@tek-nishi
tek-nishi / my-align-rule.el
Created August 23, 2017 07:38
How to add original align rules.
;; alignのルールを追加(init.elに追加する)
;; SOURCE: http://handlename.hatenablog.jp/entry/2011/12/11/214923
(eval-after-load "align"
'(add-to-list 'align-rules-list
'(my-comma-assignment
(regexp . ",\\(\\s-*\\)")
(repeat . t)
(modes . align-c++-modes))))
@tek-nishi
tek-nishi / my-align.el
Created August 22, 2017 13:13
If mark-active, align. else align-current.
(defun my-align (&optional beg end)
"リージョンが有効ならその範囲を整列\nそうでないならポイント位置の段落を整列"
(interactive "r")
(if mark-active
(align beg end)
(align-current)))
@tek-nishi
tek-nishi / my-indent.el
Created August 22, 2017 12:32
If mark-active, then indent-region. else mark-defun and indent-region.
(defun my-indent (&optional beg end)
"リージョンが有効ならその範囲をインデント\nそうでないなら関数内をインデント"
(interactive "r")
(if mark-active
(indent-region beg end)
(save-excursion
(mark-defun)
(indent-region (region-beginning) (region-end)))))
@tek-nishi
tek-nishi / my-indent.el
Created August 22, 2017 12:32
If mark-active, then indent-region. else mark-defun and indent-region.
(defun my-indent (&optional beg end)
"リージョンが有効ならその範囲をインデント\nそうでないなら関数内をインデント"
(interactive "r")
(if mark-active
(indent-region beg end)
(save-excursion
(mark-defun)
(indent-region (region-beginning) (region-end)))))
@tek-nishi
tek-nishi / my-indent.el
Created August 22, 2017 12:32
If mark-active, then indent-region. else mark-defun and indent-region.
(defun my-indent (&optional beg end)
"リージョンが有効ならその範囲をインデント\nそうでないなら関数内をインデント"
(interactive "r")
(if mark-active
(indent-region beg end)
(save-excursion
(mark-defun)
(indent-region (region-beginning) (region-end)))))
@tek-nishi
tek-nishi / my-indent.el
Created August 22, 2017 12:32
If mark-active, then indent-region. else mark-defun and indent-region.
(defun my-indent (&optional beg end)
"リージョンが有効ならその範囲をインデント\nそうでないなら関数内をインデント"
(interactive "r")
(if mark-active
(indent-region beg end)
(save-excursion
(mark-defun)
(indent-region (region-beginning) (region-end)))))
@tek-nishi
tek-nishi / dired-execute-font-lock.el
Last active August 21, 2017 05:42
Add dired font lock of executable file
(font-lock-add-keywords 'dired-mode
'((" +-[rw-]+x"
(".+" (dired-move-to-filename)
nil
(0 'font-lock-string-face)))))
@tek-nishi
tek-nishi / insert-keyword.el
Created August 11, 2017 03:02
お手軽キーワード挿入マクロ生成
;; キーワード挿入
(setq my-keywords
'(
;; ここにキーワードとショートカットキーを列挙する
("TODO" "C-x c 1")
("FIXME" "C-x c 2")
("TIPS" "C-x c 3")
("SOURCE" "C-x c 4")
("NOTICE" "C-x c 5")
))
@tek-nishi
tek-nishi / my-dumb-jump.el
Last active November 15, 2018 08:45
work around dumb-jump with git grep
;; FIXME:git grepが日本語を含むパスを検索できないのためのwork around
;; 外部コマンド実行時にcdで検索パスを決めるようにした
(defun dumb-jump-generate-git-grep-command (look-for cur-file proj regexes lang exclude-paths)
"Generate the git grep response based on the needle LOOK-FOR in the directory PROJ."
(let* ((filled-regexes (dumb-jump-populate-regexes look-for regexes 'git-grep))
(ggtypes (when (f-ext cur-file) (dumb-jump-get-git-grep-type-by-language lang)))
(cmd (concat "cd "
proj
";"
dumb-jump-git-grep-cmd
@tek-nishi
tek-nishi / my-scratch-buffer-hook.el
Last active August 10, 2017 08:52
構文の間違いlispを警告するfont-lockをscratch bufferでだけ無効にする
;; 構文の間違いlispを警告するfont-lockを無効にする
(defadvice lisp--match-hidden-arg (around lisp--match-hidden-arg-wrapper)
(if (not (and (boundp 'use-my-lisp--match-hidden-arg) 'use-my-lisp--match-hidden-arg))
ad-do-it))
(ad-activate 'lisp--match-hidden-arg)
;; scratch buffer の hook
(defun lisp-interaction-mode-hooks()
(set (make-local-variable 'use-my-lisp--match-hidden-arg) t))
(add-hook 'lisp-interaction-mode-hook 'lisp-interaction-mode-hooks)