Skip to content

Instantly share code, notes, and snippets.

@sanryuu
sanryuu / display-couple-parenthesis.el
Last active January 13, 2018 03:04
display-couple-parenthesis Elispの対応するカッコを情報をミニバッファに表示する。
(defvar display-couple-parenthesis-type "token")
(defvar display-couple-parenthesis-process nil)
(defvar display-couple-parenthesis-interval 0.5)
;; 表示を行表示に切り替える
(defun switch-display-couple-parenthesis-line ()
"switch display couple parenthesis type to line"
(interactive)
(setq display-couple-parenthesis-type "line"))
@sanryuu
sanryuu / polygon-shock.el
Created December 1, 2013 14:47
Emacs上でポリゴンショックします。
(defvar polygon-flag nil)
(defun polygon-shock ()
(interactive)
(cond
(polygon-flag
(custom-set-faces
'(default ((t (:background "red" :foreground "white")))))
(setq polygon-flag nil))
(t
@sanryuu
sanryuu / ebb.el
Created December 3, 2013 18:07
Emacsのミニバッファで新幹線の電光掲示板っぽく表示します。
(defvar ebb:display-taget ""
"ebbで表示する文字を設定")
(defcustom ebb:display-limit 7
"表示する文字数を設定"
:type 'integer
:group 'ebb)
(defcustom ebb:display-interval 0.5
@sanryuu
sanryuu / reference-user-comment.el
Created December 5, 2013 17:33
reference-user-comment.el ユーザ定義した関数の上のコメントをポップアップで表示します(PHPのみ対応)
;; reference-user-comment.el
;(global-set-key "\C-c\C-r" 'ruc-reference-document)
(require 'popup)
(require 'gtags)
(defun ruc-reference-document ()
"This function display document comment
from user defined function
@return (popup) document"
@sanryuu
sanryuu / fill-in-template.el
Last active January 13, 2018 03:02
Emacsでテンプレートから文書を生成する。
;;
;; ---- how to use --------
;;
;; M-x fit:generate
;;
;; ---- setting templete and varibale --------
;;
;; (setq template-dir "~/template")
;;
;; (fit:register-template "経営会議" "management-meeting" fit:week-tuesday)
@sanryuu
sanryuu / re-load-log.el
Created December 11, 2013 16:35
ログの最新版のみバッファに取得するメソッド
(setq file-size (make-hash-table :test #'equal))
(defun re-load-log (file-name)
(interactive)
(let (point-last-read regenesis)
(setq point-last-read (gethash file-name file-size))
(with-temp-buffer
(insert-file-contents file-name)
(when (> point-last-read (point-max))
(setq point-last-read (point-min)))
(when (not point-last-read)
@sanryuu
sanryuu / file0.txt
Last active October 6, 2017 06:04
CapybaraとSeleniumを使ってGoogle検索するサンプルコード ref: http://qiita.com/sanryuu/items/5b1b4794f5fd3b26679c
#! /usr/bin/env ruby
require "capybara"
require "selenium-webdriver"
Capybara.current_driver = :selenium
module Crowler
class Google
include Capybara::DSL
p [[1,2],[3,4],[5,6]].flatten
# => [1, 2, 3, 4, 5, 6]
import sys
sys.path.append('/usr/local/lib/python2.7/site-packages')
import cv2
import os
argv = sys.argv
#HAAR分類器の顔検出用の特徴量
#cascade_path = "/usr/local/Cellar/opencv/2.4.9/share/OpenCV/haarcascades/haarcascade_frontalface_default.xml"
@sanryuu
sanryuu / min.rb
Created February 25, 2015 01:53
CapybaraとSeleniumを使って少ないコードで実行を試す。
#! /usr/bin/env ruby
require "capybara"
require "selenium-webdriver"
session = Capybara::Session.new(:selenium)
session.visit 'http://example.com'
session.save_screenshot('screenshot.png')