Skip to content

Instantly share code, notes, and snippets.

mechairoi mechairoi

Block or report user

Report or block mechairoi

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View tmux-ghq
#!/usr/bin/env bash
# Put followings your .tmux.conf
# bind ^T run-shell tmux-ghq
set -e
fzfcmd="fzf-tmux -d${FZF_TMUX_HEIGHT:-40%} -e +s"
View git-browse-remote.el
(require 'vc-git)
(defun git-browse-remote-at-point (rev)
(interactive "P")
(let* ((root (vc-git-root buffer-file-name))
(default-directory root)
(line (if (use-region-p)
(format "%d,%d"
(line-number-at-pos (region-beginning))
(line-number-at-pos (region-end)))
View gist:dc69d8a7d92a87c7721f
mechairoi / .ctags
Created Feb 18, 2014
.ctags for angualr js
View .ctags
--regex-javascript=/\.controller[ \t]*\([ \t]*['"]([A-Za-z0-9_.]+)['"][ \t]*,/\1/C,controller/i
--regex-javascript=/\.filter[ \t]*\([ \t]*['"]([A-Za-z0-9_.]+)['"][ \t]*,/\1/F,filter/i
--regex-javascript=/\.module[ \t]*\([ \t]*['"]([A-Za-z0-9_.]+)['"][ \t]*,/\1/M,module/i
--regex-javascript=/\.directive[ \t]*\([ \t]*['"]([A-Za-z0-9_.]+)['"][ \t]*,/\1/D,directive/i
--regex-javascript=/\.factory[ \t]*\([ \t]*['"]([A-Za-z0-9_.]+)['"][ \t]*,/\1/F,factory/i
--regex-javascript=/\.value[ \t]*\([ \t]*['"]([A-Za-z0-9_.]+)['"][ \t]*,/\1/V,value/i
--regex-javascript=/\.provider[ \t]*\([ \t]*['"]([A-Za-z0-9_.]+)['"][ \t]*,/\1/P,provider/i
--regex-javascript=/\.constant[ \t]*\([ \t]*['"]([A-Za-z0-9_.]+)['"][ \t]*,/\1/C,constant/i
--regex-javascript=/\.config[ \t]*\([ \t]*['"]([A-Za-z0-9_.]+)['"][ \t]*,/\1/C,config/i
View auto-update-gtags.el
(require 'vc-git)
(provide 'auto-update-gtags)
(defvar auto-update-gtags/interval (* 60 60) "interval seconds")
(defvar auto-update-gtags/command "gtags")
(defun auto-update-gtags/file-need-update-p (file interval)
(and (file-writable-p file)
(or (not (file-exists-p file))
(> (- (float-time) (float-time (nth 5 (file-attributes file))))
View google-eldoc.el
(provide 'google-eldoc)
(require 'eldoc)
(require 'crxel)
(defun google-eldoc-turn-on-eldoc-mode ()
"Enable google-eldoc-mode"
(set (make-local-variable 'eldoc-documentation-function)
View anything-chrome-tabs.el
;;; Commentary
;; Select and activate google chrome tabs by anything interface
;;; Requirements
;;; Usage
;; (require 'anything-chrome-tabs)
;; (crxel/start 9649)
;; (define-key global-map "C-t" 'anything-chrome-tabs)
(provide 'anything-chrome-tabs)
View anything-git-ls-files.el
(require 'vc-git)
(require 'anything)
(provide 'anything-git-ls-files)
(defun anything-git-ls-files-find-git-root ()
(vc-git-root (or (buffer-file-name) default-directory)))
(defun anything-c-source-git-ls-files-for (name command)
`((name . ,name)
mechairoi / gist:3848591
Created Oct 7, 2012
Xslate segmentation fault
View gist:3848591
use Text::Xslate;
my $tx = Text::Xslate->new({
syntax => 'TTerse',
print $tx->render('');
print $tx->render('');
View perldb-ui-ex.el
;;; perldb-ui-ex.el --- Extended User Interface for perl debugger
;; Copyright (C) 2011 Free Software Foundation, Inc.
;; Author: Tsujikawa Takaya <>
;; Maintainer: Tsujikawa Takaya <>
;; Created: 25 Nov 2011
;; Version: 0.01
;; Keywords:
You can’t perform that action at this time.