syohex

(eval-when-compile
  (require 'cl))

(require 'hi-lock)
(require 'thingatpt)

(defgroup easy-highlight nil
  "Easy to use `hi-lock'"
  :group 'faces
  :prefix "easy-highlight:")

syohex

(eval-when-compile
  (require 'cl))

(require 'url)
(require 'url-http)
(require 'json)

(defvar github-markdown:url "https://api.github.com/markdown")
(defvar github-markdown:url-raw "https://api.github.com/markdown/raw")

syohex

#!perl
use strict;
use warnings;

use POSIX ();

sysopen my $in, "/proc/net/dev", POSIX::O_RDONLY or die "Can't open file: $!";
open my $out, '>', 'output.log' or die "Can't open file: $!";

#$out->autoflush(1); # <== バッファリングしない(autoflush $out, 1; も可)

syohex

;; flymake setting
(require 'flymake)

;; Show error message under current line
(require 'popup)
(defun flymake-display-err-menu-for-current-line ()
  (interactive)
  (let* ((line (flymake-current-line-no))
         (line-err-info (flymake-find-err-info flymake-err-info line))
         (error-infos (nth 0 line-err-info))

syohex

;; Please see http://d.hatena.ne.jp/kitokitoki/20111217/p1

(defvar helm-c-source-ghc-mod
  '((name . "GHC Browse Documennt")
    (init . helm-c-source-ghc-mod)
    (candidates-in-buffer)
    (candidate-number-limit . 9999)
    (action . helm-c-source-ghc-mod-action)))

(defun helm-c-source-ghc-mod ()

syohex

(deftheme molokai
  "Color theme based on the Molokai color scheme for vim.")

(custom-theme-set-faces
 'molokai
 '(cursor ((t (:foreground "#F8F8F0"))))
 '(default ((t (:foreground "#F8F8F2" :background "#1B1D1E"))))
 '(bold ((t (:weight bold))))
 '(bold-italic ((t (:weight bold :slant italic))))

syohex

(defun haskell-block-commend-region (start end)
  (interactive "r")
  (save-excursion
    (let (end-marker)
      (goto-char end)
      (setq end-marker (point-marker))
      (goto-char start)
      (insert "{-\n")
      (goto-char (marker-position end-marker))
      (insert "-}"))))

syohex

;; help utilities
(defun my/python-help ()
  (interactive)
  (let ((module (read-string "Pydoc module: " ))
        (buf (get-buffer-create "*Python Help*")))
    (with-current-buffer (get-buffer-create buf)
      (erase-buffer)
      (call-process-shell-command (format "pydoc %s" module) nil t t)
      (goto-char (point-min)))
    (pop-to-buffer buf)))

syohex

;;; helm-silver-searcher.el ---

;; Copyright (C) 2012 by Syohei YOSHIDA

;; Author: Syohei YOSHIDA <[email protected]>
;; URL:
;; Version: 0.01

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

syohex

#!/usr/bin/python

from pkgutil import iter_modules

a = iter_modules()

while True:
    try:
        x = a.next()
    except: