;;---------------------------------------------------------------------------
;; orgmemo.el Ver. 0.1.4
;;---------------------------------------------------------------------------
;

(provide 'orgmemo)
(require 'orgmemo)


(defvar orgmemo-file "~/org/inbox.org")	   ;編集ファイル名
(defvar orgmemo-date-format "* %Y-%m-%d" ) ;日付の表示


;; メモを追加
(defun orgmemo()
  (interactive)
    (find-file orgmemo-file)
    (goto-line 1)
    (beginning-of-line)
    (if (looking-at (format-time-string  orgmemo-date-format))
	(orgmemo-add-item)
	(orgmemo-new-item))
    )


(defun orgmemo-new-item()
  (interactive)
  (org-overview)

  (goto-line 1)
  (org-cycle)
  (beginning-of-line)
  (insert "\n")

  (goto-line 1)
  (beginning-of-line)
  (insert (format-time-string  orgmemo-date-format))
  (insert "\n** ")
  (goto-line 2)
  (end-of-line))

(defun orgmemo-add-item()
  (interactive)
  (org-overview)
  (goto-line 1)

  (org-cycle)
  (end-of-line)
  (insert "\n** ")
  (goto-line 2)
  (end-of-line))




;;; orgmemo.el ends here