root/lang/elisp/hamazou-mode/hamazou-mode.el @ 1984

;;; -*- coding: utf-8; mode: emacs-lisp; indent-tabs-mode: nil -*-
;;; hamazou-mode.el --- Emacs minor mode for hamazou script

;; Copyright (C) 2007 IWAI, Masaharu
;; Author: IWAI, Masaharu <iwaim.sub@gmail.com>
;; Keywords: blog, hatena, はてな

;; This file 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 2, or (at your
;; option) any later version.

;; This file is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;; hamazou script
;;   <http://d.hatena.ne.jp/syou6162/20071118/1195353605>

(defconst hamazou-mode-version "0.0.1"
  "Version number of hamazou-mode")

(defvar hamazou-mode nil)

;;; mode-line
(if (not (assq 'hamazou-mode minor-mode-alist))
    (setq minor-mode-alist
          (cons '(hamazou-mode " hamazou")
                minor-mode-alist)))

(defun hamazou-mode (&optional arg)
  "hamazou minor-mode"
  (interactive)
  ;; mode variable settings
  (cond
   ((< (prefix-numeric-value arg) 0)
    (setq hamazou-mode nil))
   (arg
    (setq hamazou-mode t))
   (t
    (setq hamazou-mode (not hamazou-mode))))

  (if hamazou-mode
      (progn
        (setq hamazou-mode-map (make-keymap)))
    nil))

;; variable
(defvar hamazou-bin "hamazou"
  "*set hamazou script path")

(defvar hamazou-process-buffer-name "*Hamazou*"
  "*hamazou script process buffer name")

;; function
(defun hamazou ()
  (interactive)
  (let
      ((search-word (read-string "hamazou search: ")))
    (hamazou-execute search-word)))

;; internal function
(defun hamazou-execute (search-word)
  (let*
      ((buffer (get-buffer-create hamazou-process-buffer-name))
       (proc (get-buffer-process buffer)))
    (if (and
         proc
         (eq (process-status proc) 'run))
        (if (yes-or-no-p (format "A %s process is running; kill it?"
                                 (process-name proc)))
            (progn
              (interrupt-process proc)
              (sit-for 1)
              (delete-process proc))
          (error nil)))
    (with-current-buffer buffer
      (progn
        (erase-buffer)
        (buffer-disable-undo (current-buffer)))
      (make-comint-in-buffer
       "hamazou search" buffer shell-file-name nil
       shell-command-switch (hamazou-build-command search-word)))
    (hamazou-split-window)))

(defun hamazou-build-command (search-word)
  (format "%s %s" hamazou-bin search-word))

(defun hamazou-split-window ()
  (if
      (get-buffer-window hamazou-process-buffer-name)
      nil
    (and (split-window-vertically)
         (set-window-buffer (next-window) hamazou-process-buffer-name))))

(provide 'hamazou-mode)