mechairoi

#include <string>
#include <vector>
#include <set>
#include <map>
#include <utility>
#include <cstdlib>
#include <cstdio>
#include <cmath>
#include <iostream>
#include <queue>

mechairoi

(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

mechairoi

(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

--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

;; 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

(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

;; centering source code window
(defadvice gud-display-line (after gud-dsplay-line-recenter activate)
  (let* ((buffer
          (with-current-buffer gud-comint-buffer
            (gud-find-file (ad-get-arg 0))))
         (window (and buffer
                      (or (get-buffer-window buffer)
                          (if (memq gud-minor-mode '(gdbmi gdba))
                              (or (if (get-buffer-window buffer 'visible)
                                      (display-buffer buffer nil 'visible))

mechairoi

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
	<key>Ansi 0 Color</key>
	<dict>
		<key>Blue Component</key>
		<real>0.50196081399917603</real>
		<key>Green Component</key>
		<real>0.56470590829849243</real>

mechairoi

(anything-c-arrange-type-attribute 'buffer
  '((candidate-transformer REST
                           anything-c-highlight-buffers)
    (display-to-real anything-my-get-buffer REST)))

(defun anything-my-get-buffer (buffer-or-filename)
  (if (bufferp buffer-or-filename)
      buffer-or-filename
    (get-file-buffer buffer-or-filename)))

mechairoi

# SEE ALSO Devel::TraceLoad::Hook
# %INCにちゃんともとのパスが入ってるのはなんでだろう？

package Hook::EndOfRequire;
use warnings;
use strict;
use Carp qw( croak );
use Exporter::Lite;
use Module::Locate qw( get_source );
use B::Hooks::EndOfScope;