Skip to content

Instantly share code, notes, and snippets.

@mechairoi
mechairoi / my-git.el
Created January 3, 2011 07:52
my-git.el
(require 'vc-git)
(provide 'my-git)
(defun my-git-toplevel ()
(vc-git-root (file-truename (if (buffer-file-name)
(file-name-directory (buffer-file-name))
default-directory))))
;; return git toplevel of root project
(defun my-git-root ()
@mechairoi
mechairoi / nice-isearch-highlight.el
Created January 3, 2011 07:05
nice-isearch-highlight.el
;; override isearch.el
(lexical-let
((original-function (symbol-function 'isearch-lazy-highlight-update)))
(defun isearch-lazy-highlight-update ()
(mapc (lambda (window)
(save-selected-window
(select-window window)
(let ((isearch-lazy-highlight-window (selected-window))
(isearch-lazy-highlight-window-start (window-start))
(isearch-lazy-highlight-window-end (window-end))
@mechairoi
mechairoi / .ctags
Created December 21, 2010 12:26
.ctags
--langdef=templatetoolkit
--langmap=templatetoolkit:.tt.html.htm
--regex-templatetoolkit=/[^a-zA-Z0-9_]BLOCK[ \t]+([a-zA-Z0-9_]+)/\1/b,Block/
--regex-templatetoolkit=/[^a-zA-Z0-9_]MACRO[ \t]+([a-zA-Z0-9_]+)/\1/m,Macro/
@mechairoi
mechairoi / anything-gtags-extras.el
Created December 6, 2010 16:08
anything-c-source-gtags-select with GTAGSROOT
(require 'anything-gtags)
(defmacro my-let-env (environments &rest body)
`(let ((process-environment process-environment))
,@(mapcar (lambda (env) `(setenv ,@env)) environments)
(progn ,@body)))
(defun anything-c-source-gtags-select-with-root (name gtagsroot)
(lexical-let ((gtagsroot (expand-file-name gtagsroot)))
`((name . ,name)
@mechairoi
mechairoi / anything-git-grep.el
Created November 20, 2010 09:30
anything-git-grep.el
(require 'my-git)
(require 'anything-config)
(provide 'anything-git-grep)
(defun anything-git-grep-process ()
(anything-aif (anything-attr 'default-directory)
(let ((default-directory it))
(apply 'start-process "git-grep-process" nil
"git" "--no-pager" "grep" "--full-name" "-n" "--no-color"
(nbutlast
#include <string>
#include <vector>
#include <set>
#include <map>
#include <utility>
#include <cstdlib>
#include <cstdio>
#include <cmath>
#include <iostream>
#include <queue>