syohex

--- orig-bundle.el	2011-12-02 23:39:27.852200611 +0900
+++ bundle.el	2011-12-02 23:33:37.088195348 +0900
@@ -18,23 +18,29 @@
 (defvar bundle-install-last-url nil
   "The last url used in `bundle-install-from-url'.")
 
-(defun bundle-install-git (&optional url)
+(defun bundle-install-git (url)
   "Install elisp files from a given url using git."
-  (interactive)

syohex

#!perl
use strict;
use warnings;

use utf8;
use Term::ANSIColor qw(:constants);
use Term::ExtendedColor qw(:all);
use Text::UnicodeTable::Simple;

binmode STDOUT, ":utf8";

syohex

#!/usr/bin/env perl
use strict;
use warnings;
use File::Spec;
use Plack::Runner;
use Plack::Middleware::Static;
use Text::MultiMarkdown qw/markdown/;
use File::Spec;
use Data::Section::Simple qw/get_data_section/;

syohex

;; create daily org memo file
(defun open-daily-file ()
  (interactive)
  (let* ((memodir (expand-file-name "~/memo/daily"))
         (daily-path (concat memodir "/" (format-time-string "%Y/%m"))))
    (unless (file-directory-p daily-path)
      (make-directory daily-path t))
    (let ((daily-file (concat daily-path "/" (format-time-string "%d.org"))))
      (unless (file-exists-p daily-file)
        (with-temp-file daily-file

syohex

#!perl
use strict;
use warnings;
use utf8;
binmode STDOUT, ":utf8";

my @chars = qw/あ い う え お/;
for my $i (1..10) {
    print $chars[ int(rand(scalar @chars) ) ] . "っぱい\n";
}

syohex

(defun my/emacs-serverstart ()
  (let ((pid (emacs-pid))
        (wid-file (expand-file-name
                   (concat user-emacs-directory "server_wid"))))
    (let ((wid (if window-system
                   (my/emacs-window-id pid))))
      (with-temp-file wid-file
        (insert wid))
      wid)))

syohex

#!/usr/bin/env perl

package App::Cal;
use strict;
use warnings;

use Carp ();
use Calendar::Simple ();
use Calendar::Japanese::Holiday ();
use Getopt::Long ();

syohex

                                                                                                                          
                                                                                 . .  .   .                               
                                                                                 . ..,_..:                                
                                                                                .<uasv;a`- ..                             
                                    ..=._                                . .._s,=SnXov1=%==,=. .                          
                                . .:c{us%,,                          . . :_<>vZX,3psmdY={|)<=`.                           
                                 .;i%vXdns=,                         .   <mdmXX#GS{SSZSs3o>:===..                         
                                 =a2dZwSY3>(                           :imm$#1qd}<.=IXzX<Xc :===.                         
                          . . __avVo<2Yc

syohex

(defun git-diff ()
  (interactive)
  (let ((filename (buffer-file-name (current-buffer)))
        (git-buf "*my/git*"))
    (if (get-buffer git-buf)
        (kill-buffer git-buf))
    (with-current-buffer (get-buffer-create git-buf)
      (setq buffer-read-only nil)
      (erase-buffer)
      (call-process "git" nil t nil "diff" filename)

syohex

;; -*- mode:emacs-lisp -*-

;; require quickrun.el
(require 'anything)
(require 'quickrun)

(quickrun-add-command "c++/c11"
                      '((:command . "g++")
                        (:exec    . ("%c -std=c++0x %o -o %n %s"
                                     "%n %a"))