(defun ndiary-insert-mytag-insert-code ()
  (interactive)
  (let ((tabw 0) (c 0))
    (insert "Code: ")
    (if (y-or-n-p "Change < to <?")
        (progn
          (insert "-q")
          (setq c 1)))

    (setq tabw (string-to-number (read-from-minibuffer "Tab width:")))
    (if (= tabw 0)
        ()
      (if (= c 0)
          (insert (concat "-t" tabw))
        (insert (concat "t" tabw))))))

(defun ndiary-insert-mytag-insert-quote ()
  (interactive)
  (let ((tabw 0) (c 0))
    (insert "Quote: ")
    (if (y-or-n-p "Change < to <?")
        (progn
          (insert "-q")
          (setq c 1)))

    (setq tabw (string-to-number (read-from-minibuffer "Tab width:")))
    (if (= tabw 0)
        ()
      (if (= c 0)
          (insert (concat "-t" tabw))
        (insert (concat "t" tabw))))

    (if (y-or-n-p "Change return to ?")
        (if (= c 0)
            (insert "-l")
          (insert "l"))
      (if (= c 0)
          (insert "-l-")
        (insert "l-")))
    ))

(defun ndiary-insert-mytag-insert-footnote ()
  (interactive)
  (let ((tabw 0) (c 0))
    (insert "(*)")
    (forward-char -1)))

(defun ndiary-insert-mytag-insert-emphasis ()
  (interactive)
  (message "a)**AAA** s)***AAA*** d)--AAA-- f) Rubi")
  (let ((c (char-to-string (read-char))) (co))
    (cond
     ((string-match "a" c)
      (progn (insert "****") (forward-char -2)))
     ((string-match "s" c)
      (progn (insert "******") (forward-char -3)))
     ((string-match "d" c)
      (progn (insert "----") (forward-char -2)))
     ((string-match "f" c)
      (progn
        (setq co (read-from-minibuffer "Input Word: "))
        (insert (concat "　" co))
        (setq co (read-from-minibuffer "Input Yomi: "))
        (insert (concat "《" co "》"))))
     )))

(defun ndiary-insert-mytag-insert-link ()
  (interactive)
  (message "L) ocal U) rl D) iary I) mage...")
  (let ((c (char-to-string (read-char))) (co))
    (cond
     ((string-match "l" c)
      (progn
        (setq co (read-from-minibuffer "Input Text: "))
        (insert (concat "　" co))
        (setq co (read-file-name "Input Filename: " (file-name-directory ndiary-latest-filename)))
        (setq co (expand-file-name co))
        ;; ホームページのパス部分をカット (指定した文字で分けているだけ)
        (setq co (concat "./";; ローカルの場合は ./ で始めないといけない
                         (car (split-string co
                                            (expand-file-name
                                             (file-name-directory ndiary-latest-filename))))))
        (insert (concat "(" co ")"))
        ))

     ((string-match "i" c)
      (progn
        (setq co (read-file-name "Input Filename: " (file-name-directory ndiary-latest-filename)))
        (setq co (expand-file-name co))
        ;; ホームページのパス部分をカット (指定した文字で分けているだけ)
        (setq co (concat "./";; ローカルの場合は ./ で始めないといけない
                         (car (split-string co
                                            (expand-file-name
                                             (file-name-directory ndiary-latest-filename))))))
        (insert (concat "<img src=\"" co "\">"))
        ))

     ((string-match "u" c)
      (progn
        (setq co (read-from-minibuffer "Input Text: "))
        (insert (concat "　" co))
        (setq co (read-from-minibuffer "Input URL: "))
        (insert (concat "(" co ")"))))

     ((string-match "d" c)
      (progn
        (setq co (read-from-minibuffer "Input Text: "))
        (insert (concat "　" co))
        (setq co (read-from-minibuffer "Input YYYY/MM/DD: "))
        (insert (concat "(diary:" co ","))
        (setq co (read-from-minibuffer "Input Topic No: "))
        (insert co)
        (setq co "")
        (setq co (read-from-minibuffer "Input Sub Topic No: "))
        (if (not (string-equal co ""))
            (insert (concat "," co)))
        (insert ")")
        )))))

(defun ndiary-insert-mytag ()
  "Browsing menu"
  (interactive)
  (message "C) ode Q) uote R) ow F) oot E) mphasis L) ink...")
  (let ((c (char-to-string (read-char))))
    (cond
     ((string-match "c" c)
      (ndiary-insert-mytag-insert-code))
     ((string-match "q" c)
      (ndiary-insert-mytag-insert-quote))
     ((string-match "r" c)
      (progn (insert "<<\n")
             ;;ndiary-mode と yahtml モードを組み合わせて使う時はコメントをはずす
             ;;(yahtml-mode)
             ))
     ((string-match "f" c)
      (ndiary-insert-mytag-insert-footnote))
     ((string-match "e" c)
      (ndiary-insert-mytag-insert-emphasis))
     ((string-match "l" c)
      (ndiary-insert-mytag-insert-link))
     )))

;; キーバインドの追加
(add-hook 'ndiary-mode-hook
          '(lambda ()
             (local-set-key "\C-c\C-i" 'ndiary-insert-mytag)
             ))

;;ndiary-mode と yahtml モードを組み合わせて使う時はコメントをはずす
;;(add-hook 'yahtml-mode-hook
;;          '(lambda ()
;;             (local-set-key "\C-c\C-c" 'ndiary-mode)
;;             ))