kiwanami

(defun cfw:howm-schedule-parse-line (line)
  "[internal] Parse the given string and return a result list, (date num type summary)."
  (when (string-match "^\\[\\([^@!]+\\)\\]\\([@!]\\)\\([0-9]*\\) \\(.*\\)$" line)
    (list 
     (match-string 1 line)
     (or (and (match-string 3 line)
              (string-to-number (match-string 3 line))) 0)
     (match-string 2 line) (match-string 4 line))))

kiwanami

;;; direx plugin

(require 'direx)
(require 'direx-project)
(setq direx:leaf-icon "  "
      direx:open-icon "▾ "
      direx:closed-icon "▸ ")

(defun e2wm:def-plugin-direx (frame wm winfo) 
  (let* ((buf (e2wm:history-get-main-buffer))

kiwanami

;; Emacs DBI setting for ActivePerl
(require 'edbi)
(setq edbi:driver-info (list "\\Perl\\bin\\perl" 
                               (expand-file-name 
                                "edbi-bridge.pl" 
                                edbi:driver-libpath)))

kiwanami

(require 'edbi)

;;; edbi / DB perspective
;;;--------------------------------------------------

(defvar e2wm:c-edbi-recipe
  '(| (:left-max-size 40) database
      (- (:upper-size-ratio 0.3)
         editor result)))

kiwanami

;;; decompjp.el --- decompose Japanese text.

;; Copyright (C) 2011  SAKURAI Masashi

;; Author: SAKURAI Masashi <m.sakurai at kiwanami.net>
;; Keywords: languages, tools

;; 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
;; the Free Software Foundation, either version 3 of the License, or

kiwanami

#!/usr/bin/ruby
# -*- coding: utf-8 -*-

# cvs diff -u -D20111001 -D20111101 -N . 2>/dev/null|egrep 'Index|version|date'

BASE_URL = 'http://www.gentoo.org/doc/ja/'


class Document

kiwanami

;;; anything-orgcard.el --- browse the orgcard by anything

;; Copyright (C) 2011  

;; Author:  <m.sakurai at kiwanami.net>
;; Keywords: anything, org

;; 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
;; the Free Software Foundation, either version 3 of the License, or

kiwanami

(defvar cfw:koyomi-source
 (make-cfw:source
  :name "六曜"
  :data
  (lambda (b e)
    (mapcar
     (lambda (date) 
       (cons date (nth 3 (暦-旧暦 (calendar-absolute-from-gregorian date)))))
     (cfw:enumerate-days b e)))))

kiwanami

(defun e2wm:dp-two-popup (buf)
  (e2wm:message "#DP TWO popup : %s" buf)
  (let ((buf-name (buffer-name buf))
        (is-right? 
         (eql (selected-window) 
              (wlf:get-window (e2wm:pst-get-wm) 'right))))
    (cond
     ((memq this-command '(org-open-at-point org-open-at-mouse))
      (cond
       (current-prefix-arg 

kiwanami

(defun e2wm:format-byte-unit (size)
  (cond ((null size) "NA")
        ((> size (* 1048576 4))
         (format "%s Mb" (e2wm:num (round (/ size 1048576)))))
        ((> size (* 1024 4))
         (format "%s Kb" (e2wm:num (round (/ size 1024)))))
        (t
         (format "%s bytes" (e2wm:num size)))))