mhc 1.0.0

data/emacs/mhc-e21.el

@@ -0,0 +1,167 @@
+;;; mhc-e21.el -- Emacs 21 stuff for MHC.
+
+;; Author:  Yuuichi Teranishi <teranisi@gohome.org>
+;;
+;; Created: 2000/11/21
+;; Revised: $Date: 2008/03/06 09:40:12 $
+
+(defcustom mhc-e21-icon-alist
+  '(("Conflict"   . "Conflict.xpm")
+    ("Recurrence" . "Recurrence.xpm")
+    ("Private"    . "Private.xpm")
+    ("Holiday"    . "Holiday.xpm")
+    ("Todo"       . "CheckBox.xpm")
+    ("Done"       . "CheckedBox.xpm")
+    ("Link"       . "Link.xpm"))
+  "*Alist to define icons.
+Each element should have the form
+ (NAME . ICON-FILE)
+It defines icon named NAME created from ICON-FILE.
+Example:
+  '((\"Holiday\"     . \"Holiday.xpm\")
+    (\"Work\"        . \"Business.xpm\")
+    (\"Private\"     . \"Private.xpm\")
+    (\"Anniversary\" . \"Anniversary.xpm\")
+    (\"Birthday\"    . \"Birthday.xpm\")
+    (\"Other\"       . \"Other.xpm\")
+    (\"Todo\"        . \"CheckBox.xpm\")
+    (\"Done\"        . \"CheckedBox.xpm\")
+    (\"Conflict\"    . \"Conflict.xpm\"))"
+  :group 'mhc
+  :type '(repeat
+          :inline t
+          (cons (string :tag "Icon Name")
+                (string :tag "XPM File Name"))))
+
+(defcustom mhc-icon-function-alist
+  '(("Link" . mhc-browse-x-url))
+  "*Alist to define callback function for icons.
+Each element should have the form
+ (NAME . FUNCTION)
+If the icon named NAME is clicked, then FUNCTION is invoked at
+icon line."
+  :group 'mhc
+  :type '(repeat
+          :inline t
+          (cons (string :tag "Icon Name")
+                (function :tag "Function"))))
+
+(defvar mhc-e21-icon-keymap nil)
+(if (null mhc-e21-icon-keymap)
+    (setq mhc-e21-icon-keymap (make-sparse-keymap)))
+(define-key mhc-e21-icon-keymap [mouse-1] 'mhc-e21-icon-call-function)
+(define-key mhc-e21-icon-keymap [mouse-2] 'mhc-e21-icon-call-function)
+
+(defun mhc-e21-icon-call-function (event)
+  (interactive "e")
+  (save-excursion
+    (mouse-set-point event)
+    (when (get-text-property (point) 'mhc-e21-icon-function)
+      (call-interactively
+       (get-text-property (point) 'mhc-e21-icon-function))
+      t)))
+
+;; internal variable.
+(defvar mhc-e21/icon-glyph-alist nil)
+(defvar mhc-e21/icon-function-alist nil)
+
+(defsubst mhc-e21/setup-icons ()
+  (let ((alist mhc-e21-icon-alist)
+        name image
+        (load-path (cons mhc-icon-path load-path)))
+    (setq mhc-e21/icon-glyph-alist nil)
+    (while alist
+      (setq image (find-image (list (list
+                                     :type 'xpm
+                                     :file (cdr (car alist))
+                                     :ascent 'center))))
+      (when image
+        (setq mhc-e21/icon-glyph-alist
+              (cons
+               (cons (downcase (car (car alist))) image)
+               mhc-e21/icon-glyph-alist)))
+      (setq alist (cdr alist)))
+    (setq mhc-e21/icon-function-alist
+          (mapcar (lambda (pair)
+                    (cons (downcase (car pair)) (cdr pair)))
+                  mhc-icon-function-alist))))
+
+;; Icon interface
+(defun mhc-icon-setup ()
+  "Initialize MHC icons."
+  (interactive)
+  (if (called-interactively-p 'interactive)
+      (setq mhc-e21/icon-glyph-alist nil))
+  (or mhc-e21/icon-glyph-alist
+      (progn
+        (message "Initializing MHC icons...")
+        (mhc-e21/setup-icons)
+        (run-hooks 'mhc-icon-setup-hook)
+        (message "Initializing MHC icons...done"))))
+
+(defun mhc-use-icon-p ()
+  "Returns t if MHC displays icon."
+  (and (display-graphic-p)
+       (image-type-available-p 'xpm)
+       mhc-use-icon))
+
+(defun mhc-icon-exists-p (name)
+  "Returns non-nil if icon with NAME exists."
+  (cdr (assoc (downcase name) mhc-e21/icon-glyph-alist)))
+
+(defun mhc-put-icon (icons)
+  "Put ICONS on current buffer.
+Icon is decided by `mhc-e21-icon-alist'."
+  (let (icon pos func props)
+    (while icons
+      (when (setq icon (cdr (assoc (downcase (car icons))
+                                   mhc-e21/icon-glyph-alist)))
+        (setq pos (point))
+        (insert (make-string (floor (car (image-size icon))) ?  ))
+        (setq props (list 'display icon
+                          'invisible nil
+                          'intangible icon))
+        (when (setq func (cdr (assoc (downcase (car icons))
+                                     mhc-e21/icon-function-alist)))
+          (setq props (nconc props
+                             (list
+                              'mouse-face 'highlight
+                              'mhc-e21-icon-function func
+                              'local-map mhc-e21-icon-keymap))))
+        (add-text-properties pos (point) props))
+      (setq icons (cdr icons)))))
+
+(provide 'mhc-e21)
+
+;;; Copyright Notice:
+
+;; Copyright (C) 1999, 2000 Yoshinari Nomura. All rights reserved.
+;; Copyright (C) 2000 MHC developing team. All rights reserved.
+
+;; Redistribution and use in source and binary forms, with or without
+;; modification, are permitted provided that the following conditions
+;; are met:
+;;
+;; 1. Redistributions of source code must retain the above copyright
+;;    notice, this list of conditions and the following disclaimer.
+;; 2. Redistributions in binary form must reproduce the above copyright
+;;    notice, this list of conditions and the following disclaimer in the
+;;    documentation and/or other materials provided with the distribution.
+;; 3. Neither the name of the team nor the names of its contributors
+;;    may be used to endorse or promote products derived from this software
+;;    without specific prior written permission.
+;;
+;; THIS SOFTWARE IS PROVIDED BY THE TEAM AND CONTRIBUTORS ``AS IS''
+;; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
+;; FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
+;; THE TEAM OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+;; INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+;; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+;; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+;; STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
+;; OF THE POSSIBILITY OF SUCH DAMAGE.
+
+;;; mhc-e21.el ends here

data/emacs/mhc-face.el

@@ -0,0 +1,236 @@
+;;; mhc-face.el
+
+;; Author:  Yoshinari Nomura <nom@quickhack.net>
+;;
+;; Created: 2000/02/08
+;; Revised: $Date: 2004/05/04 13:48:31 $
+
+;;;
+;;; Commentay:
+;;;
+
+;;;
+;;; Code:
+;;;
+
+(defvar mhc-symbol-face-alist nil
+  "*Alist which is used in setup time to define required faces.
+Each element should have the form
+  (FACE-SYMBOL . (PARENT FG BG UNDERLINED FONT STIPPLE))
+If this variable does't have necessary face definitions for mhc,
+mhc will lookup them from mhc-symbol-face-alist-internal instead.
+So, this variable doesn't have to cover all the face definitions.")
+
+(defvar mhc-category-face-alist nil
+  "*Alist to rule the catgegory-to-face conversion.
+Each element should have the form
+  (CATEGORY-STRING . (PARENT FG BG UNDERLINED FONT STIPPLE))
+mhc will define mhc-summary-category-face-(downcase CATEGORY-STRING)
+in setup time.")
+
+(defvar mhc-calendar-hnf-face-alist nil
+  "*Alist of HNS faces. Each element should have the form
+  (FACE-SYMBOL . (PARENT FG BG UNDERLINED FONT STIPPLE)).
+refer to mhc-calendar-hnf-face-alist-internal.")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; for necessary faces.
+
+(defconst mhc-symbol-face-alist-internal
+  '((mhc-calendar-face-default  . (nil nil           nil))
+    (mhc-calendar-face-saturday . (nil "blue"        nil))
+    (mhc-calendar-face-sunday   . (nil "red"         nil))
+    (mhc-calendar-face-duration . (nil nil           "gray"))
+    (mhc-calendar-face-cw       . (nil "slate gray"  nil))
+    ;;
+    (mhc-summary-face-default   . (nil nil           nil))
+    (mhc-summary-face-saturday  . (nil "blue"        nil))
+    (mhc-summary-face-sunday    . (nil "red"         nil))
+    (mhc-summary-face-today     . (nil "black"       "chocolate"))
+    (mhc-summary-face-cw        . (nil "slate gray"  nil))
+    ;;
+    (mhc-summary-face-separator . (nil "gray"        nil))
+    (mhc-summary-face-month-separator . (nil "DarkKhaki" nil))
+    (mhc-summary-face-time      . (nil "yellowgreen" nil))
+    (mhc-summary-face-location  . (nil "black"       "paleturquoise"))
+    (mhc-summary-face-conflict  . (nil "white"       "purple"))
+    (mhc-summary-face-recurrence . (nil "black"      "green"))
+    (mhc-summary-face-secret    . (nil "gray"        nil))
+    ;;
+    (mhc-minibuf-face-candidate . (nil nil           "yellow"))
+    ;;
+    (mhc-category-face-holiday  . (nil "red"         nil))))
+
+(defconst mhc-calendar-hnf-face-alist-internal
+  '((mhc-calendar-hnf-face-mark . (nil    "MediumSeaGreen" nil))
+    (mhc-calendar-hnf-face-newtag  . (italic "red" "paleturquoise"))
+    (mhc-calendar-hnf-face-subtag  . (italic "blue" nil))
+    (mhc-calendar-hnf-face-cat  . (nil    "DarkGreen" nil))
+    (mhc-calendar-hnf-face-new  . (bold   "DarkGreen" nil))
+    (mhc-calendar-hnf-face-sub  . (nil   "DarkGreen" nil))
+    (mhc-calendar-hnf-face-uri  . (italic "blue" nil))))
+
+(defmacro mhc-face-put (symbol face)
+  `(put-text-property 0 (length ,symbol) 'face ,face ,symbol))
+
+(eval-when-compile
+  (cond
+   ((featurep 'xemacs)
+    ;; XEmacs 21.2 (make-face-bold FACE &optional LOCALE TAGS)
+    ;; XEmacs 21.1 (make-face-bold FACE &optional LOCALE)
+    (defmacro mhc-face/make-face-bold (face)
+      `(make-face-bold ,face))
+    (defmacro mhc-face/make-face-italic (face)
+      `(make-face-italic ,face))
+    (defmacro mhc-face/make-face-bold-italic (face)
+      `(make-face-bold-italic ,face)))
+   (t
+    ;; (make-face-bold FACE &optional FRAME NOERROR)
+    (defmacro mhc-face/make-face-bold (face)
+      `(make-face-bold ,face nil t))
+    (defmacro mhc-face/make-face-italic (face)
+      `(make-face-italic ,face nil t))
+    (defmacro mhc-face/make-face-bold-italic (face)
+      `(make-face-bold-italic ,face nil t)))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; make faces from string/symbol
+
+(defun mhc-face-category-to-face (category)
+  (if category
+      (or (intern-soft (format "mhc-category-face-%s" (downcase category)))
+          'default)
+    'default))
+
+(defun mhc-face-make-face-from-string (string prop &optional overwrite prefix)
+  (let ((symbol-name (concat prefix (if prefix "-") string)))
+    (mhc-face-make-face-from-symbol (intern symbol-name) prop overwrite)))
+
+(defun mhc-face-make-face-from-symbol (symbol prop &optional overwrite)
+  (let ((parent  (nth 0 prop))
+        (fg      (nth 1 prop))
+        (bg      (nth 2 prop))
+        (uline   (nth 3 prop))
+        (font    (nth 4 prop))
+        (stipple (nth 5 prop))
+        (face    nil))
+    (if (and (facep symbol) (not overwrite))
+        symbol
+      (setq face (if parent (copy-face parent symbol) (make-face symbol)))
+      (if fg      (set-face-foreground  face fg))
+      (if bg      (set-face-background  face bg))
+      (set-face-underline face uline)
+      (if font    (set-face-font        face font))
+      (if stipple (set-face-stipple     face stipple))
+      face)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; make faces arrange.
+
+(defvar mhc-face-effect-alist
+  ;;             fg      bg        bold  talic  ul
+  '((today    . (nil     "gray"    nil   nil    nil))
+    (busy     . (nil      nil      t     nil    nil))
+    (saturday . ("Blue"   nil      nil   nil    nil))
+    (sunday   . ("Red"    nil      nil   nil    nil))))
+
+;; get decolated face from face and effect
+;; ex. mhc-summary-face + today -> mhc-summary-face-today
+(defun mhc-face-get-effect (face effect)
+  (let ((new-face (intern (concat
+                           (symbol-name face) "-"
+                           (symbol-name effect))))
+        effect-list)
+    (if (facep new-face)
+        ()
+      (copy-face face new-face)
+      (if (setq effect-list (cdr (assq effect mhc-face-effect-alist)))
+          (let ((fg (nth 0 effect-list))
+                (bg (nth 1 effect-list))
+                (bl (nth 2 effect-list))
+                (it (nth 3 effect-list))
+                (ul (nth 4 effect-list)))
+            (if fg (set-face-foreground  new-face fg))
+            (if bg (set-face-background  new-face bg))
+            (if ul (set-face-underline new-face t))
+            ;;
+            (if bl (or (mhc-face/make-face-bold new-face)
+                       (and (fboundp 'set-face-bold-p)
+                            (set-face-bold-p new-face t))))
+            ;;
+            (if it (or (mhc-face/make-face-italic new-face)
+                       (and (fboundp 'set-face-italic-p)
+                            (set-face-italic-p new-face t)))))))
+    new-face))
+;;
+;; (make-face-italic  new-face nil t))))
+
+(defsubst mhc-face-get-today-face (face)
+  (mhc-face-get-effect face 'today))
+
+(defsubst mhc-face-get-busy-face (face)
+  (mhc-face-get-effect face 'busy))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; setup faces.
+
+(defun mhc-face-setup ()
+  (interactive)
+  (let ((ow (called-interactively-p 'interactive)))
+    ;;
+    (mhc-face-setup-internal mhc-symbol-face-alist          ow)
+    (mhc-face-setup-internal mhc-category-face-alist        ow)
+    ;;
+    (mhc-face-setup-internal mhc-symbol-face-alist-internal nil)
+    ))
+
+(defun mhc-face-setup-internal (alist &optional overwrite)
+  (let (lst)
+    (while (setq lst (car alist))
+      (cond
+       ((stringp (car lst))
+        (mhc-face-make-face-from-string
+         (format "mhc-category-face-%s" (downcase (car lst)))
+         (cdr lst)
+         overwrite))
+       ((symbolp (car lst))
+        (mhc-face-make-face-from-symbol
+         (car lst)
+         (cdr lst)
+         overwrite)))
+      (setq alist (cdr alist)))))
+
+(provide 'mhc-face)
+
+;;; Copyright Notice:
+
+;; Copyright (C) 1999, 2000 Yoshinari Nomura. All rights reserved.
+;; Copyright (C) 2000 MHC developing team. All rights reserved.
+
+;; Redistribution and use in source and binary forms, with or without
+;; modification, are permitted provided that the following conditions
+;; are met:
+;;
+;; 1. Redistributions of source code must retain the above copyright
+;;    notice, this list of conditions and the following disclaimer.
+;; 2. Redistributions in binary form must reproduce the above copyright
+;;    notice, this list of conditions and the following disclaimer in the
+;;    documentation and/or other materials provided with the distribution.
+;; 3. Neither the name of the team nor the names of its contributors
+;;    may be used to endorse or promote products derived from this software
+;;    without specific prior written permission.
+;;
+;; THIS SOFTWARE IS PROVIDED BY THE TEAM AND CONTRIBUTORS ``AS IS''
+;; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
+;; FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
+;; THE TEAM OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+;; INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+;; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+;; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+;; STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
+;; OF THE POSSIBILITY OF SUCH DAMAGE.
+
+;;; mhc-face.el ends here

data/emacs/mhc-file.el

@@ -0,0 +1,224 @@
+;;; -*- mode: Emacs-Lisp; coding: utf-8 -*-
+
+;; Author:  Yoshinari Nomura <nom@quickhack.net>,
+;;          TSUCHIYA Masatoshi <tsuchiya@namazu.org>
+;; Created: 2000/05/01
+;; Revised: $Date$
+
+
+;;; Comments:
+
+;; This file is a part of MHC, and includes functions to manipulate
+;; files of schedules.
+
+
+;;; About Backend:
+
+;; このライブラリは、実際にファイルを操作するバックエンドを呼び出すこ
+;; とによって動作する。バックエンドは、以下のようなメソッドを提供する
+;; ことが期待されている。
+;;
+;;     (mhc-foo/init)
+;;          ネットワークの状態に依存しない初期化処理を行う関数
+;;
+;;     (mhc-foo/exit)
+;;          ネットワークの状態に依存しない終了処理を行う関数
+;;
+;;     (mhc-foo/open &optional OFFLINE)
+;;          ネットワークの状態に依存する初期化処理を行う関数
+;;
+;;     (mhc-foo/close &optional OFFLINE)
+;;          ネットワークの状態に依存する終了処理を行う関数
+;;
+;;     (mhc-foo/sync)
+;;          スケジュールファイルの同期を取る関数
+;;
+;;     (mhc-foo/add FILENAME &optional OFFLINE)
+;;          ファイルを追加を通知する関数
+;;          (ファイルの実体は追加された後に呼び出される)
+;;
+;;     (mhc-foo/modify FILENAME &optional  OFFLINE)
+;;          ファイルの変更を通知する関数
+;;          (ファイルの実体が変更された後に呼び出される)
+;;
+;;     (mhc-foo/remove FILENAME &optional OFFLINE)
+;;          ファイルを削除する関数
+;;          (ファイルの実体は *削除されずに* 呼び出される)
+;;
+;; これらのメソッドを適切に定義し、更に以下のような宣言を付け加える。
+;;
+;;     (provide 'mhc-foo)
+;;     (put 'mhc-foo 'init   'mhc-foo/init)
+;;     (put 'mhc-foo 'exit   'mhc-foo/exit)
+;;     (put 'mhc-foo 'open   'mhc-foo/open)
+;;     (put 'mhc-foo 'close  'mhc-foo/close)
+;;     (put 'mhc-foo 'sync   'mhc-foo/sync)
+;;     (put 'mhc-foo 'add    'mhc-foo/add)
+;;     (put 'mhc-foo 'modify 'mhc-foo/modify)
+;;     (put 'mhc-foo 'remove 'mhc-foo/remove)
+;;
+;; メソッドの関数名は任意に選ぶことができる。
+;;
+;; また、メソッドの定義は省略することができる。省略されたメソッドは、
+;; 関数 mhc-file/true によって置換され、その処理は常に成功したものと見
+;; なされる。
+
+
+;;; Definition
+(require 'mhc-compat)
+(require 'mhc-vars)
+
+;;; Code:
+
+;;; Global Variables
+(defcustom mhc-file-method 'mhc-sync
+  "*Variable to specify the method to control schdule files."
+  :group 'mhc
+  :type '(radio (const :tag "Backup and remove" mhc-sync)
+                (symbol :tag "Other")))
+
+(defcustom mhc-file-sync-enable-offline nil
+  "*If non-nil, enable mhc-file-sync when status is offline."
+  :group 'mhc
+  :type '(radio (const :tag "Disable when offline" nil)
+                (const :tag "Enable when offline" t)))
+
+;;; Internal Variables
+(defvar mhc-file/offline (not mhc-default-network-status)
+  "Keep current line status.")
+
+
+;;; Codes
+(defun mhc-file/true (&rest arguments)
+  "Dummy function for undefind backend functions."
+  t)
+
+(defconst mhc-file/backend-method-list
+  '(init exit open close sync add modify remove))
+
+;; To suprress byte compile warnings.
+(eval-when-compile
+  (mapcar (lambda (s)
+            (let ((f (intern (concat "mhc-file/" (symbol-name s)))))
+              (or (fboundp f) (fset f 'mhc-file/true))))
+          mhc-file/backend-method-list))
+
+(defun mhc-file-setup (&optional method)
+  "Initialize backend to manipulate files."
+  (require (or method mhc-file-method))
+  (mapc (lambda (s)
+          (fset (intern (concat "mhc-file/" (symbol-name s)))
+                (or (get mhc-file-method s) 'mhc-file/true)))
+        mhc-file/backend-method-list)
+  (and (mhc-file/init)
+       (mhc-file/open mhc-file/offline)))
+
+(defun mhc-file-exit ()
+  "Exit backend to manipulate files."
+  (and (mhc-file/close mhc-file/offline)
+       (mhc-file/exit)))
+
+(defmacro mhc-file-add (file)
+  `(mhc-file/add ,file mhc-file/offline))
+(defmacro mhc-file-modify (file)
+  `(mhc-file/modify ,file mhc-file/offline))
+(defmacro mhc-file-remove (file)
+  `(mhc-file/remove ,file mhc-file/offline))
+
+(defcustom mhc-file-line-status-strings
+  '(" mhc[offline]" . " mhc[ONLINE]")
+  "Strings to describe MHC network status."
+  :group 'mhc
+  :type '(choice
+          (const :tag "Long format" (" mhc[offline]" . " mhc[ONLINE]"))
+          (const :tag "Short format" (" Mhc" . " MHC"))
+          (cons :tag "User definition"
+                (string :tag "String for offline")
+                (string :tag "String for online")))
+  :set (lambda (symbol value)
+         (set-default symbol value)
+         (if (assq 'mhc-mode minor-mode-alist)
+             (setcdr (assq 'mhc-mode minor-mode-alist) (list (mhc-file-line-status))))
+         (force-mode-line-update)))
+
+(defun mhc-file-line-status ()
+  "Return status string for mode line."
+  (if mhc-show-network-status
+      (if mhc-file/offline
+          (car mhc-file-line-status-strings)
+        (cdr mhc-file-line-status-strings))))
+
+(defun mhc-file-toggle-offline (&optional full set-to no-sync)
+  "*Toggle line status of file manipulation backend."
+  (interactive (list current-prefix-arg (not mhc-file/offline)))
+  (let ((previous mhc-file/offline))
+    (setq mhc-file/offline set-to)
+    (if (assq 'mhc-mode minor-mode-alist)
+        (setcdr (assq 'mhc-mode minor-mode-alist)
+                (list (mhc-file-line-status))))
+    (if mhc-file/offline
+        (message "mhc-file is offline.")
+      (if (and (not no-sync)
+               previous
+               (y-or-n-p "Sync schedule files right now ? "))
+          (mhc-file-sync full))
+      (message "mhc-file is online."))))
+
+
+(defun mhc-file-sync (&optional full)
+  "*Sync schedule files."
+  (interactive "P")
+  (if (and mhc-file/offline (not mhc-file-sync-enable-offline))
+      (message "\"M-x mhc-file-toggle-offline\" first.")
+    (message "mhc file sync...")
+    (when (mhc-file/sync full)
+      (message "mhc file sync...done"))))
+
+
+;; almost same as (make-directory dirname t)
+(defun mhc-file-make-directory (dirname)
+  (if (file-directory-p dirname)
+      t
+    (if (mhc-file-make-directory
+         (directory-file-name (file-name-directory (directory-file-name dirname))))
+        (progn
+          (make-directory (directory-file-name dirname))
+          (mhc-file-add (file-name-as-directory dirname))
+          t))))
+
+
+
+(provide 'mhc-file)
+
+;;; Copyright Notice:
+
+;; Copyright (C) 1999, 2000 Yoshinari Nomura. All rights reserved.
+;; Copyright (C) 2000 MHC developing team. All rights reserved.
+
+;; Redistribution and use in source and binary forms, with or without
+;; modification, are permitted provided that the following conditions
+;; are met:
+;;
+;; 1. Redistributions of source code must retain the above copyright
+;;    notice, this list of conditions and the following disclaimer.
+;; 2. Redistributions in binary form must reproduce the above copyright
+;;    notice, this list of conditions and the following disclaimer in the
+;;    documentation and/or other materials provided with the distribution.
+;; 3. Neither the name of the team nor the names of its contributors
+;;    may be used to endorse or promote products derived from this software
+;;    without specific prior written permission.
+;;
+;; THIS SOFTWARE IS PROVIDED BY THE TEAM AND CONTRIBUTORS ``AS IS''
+;; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
+;; FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
+;; THE TEAM OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT,
+;; INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+;; (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+;; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
+;; STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+;; ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
+;; OF THE POSSIBILITY OF SUCH DAMAGE.
+
+;;; mhc-file.el ends here