(provide 'hatena-vars)

(defgroup hatena nil
  "major mode for Hatena::Diary"
  :prefix "hatena-"
  :group 'hypermedia)

(defgroup hatena-face nil
  "Hatena, Faces."
  :prefix "hatena-"
  :group 'hatena)

(defcustom hatena-usrid nil
  "hatena-diary-mode のユーザー名"
  :type 'string
  :group 'hatena)

(defcustom hatena-directory 
  (expand-file-name "~/.hatena/")
  "日記を保存するディレクトリ."
  :type 'directory
  :group 'hatena)

(defcustom hatena-init-file (concat
			     (file-name-as-directory hatena-directory)
			     "init")
  "*hatena-diary-mode の初期化ファイル。"
  :type 'file
  :group 'hatena)

(defcustom hatena-password-file 
  (expand-file-name (concat hatena-directory ".password"))
  "パスを保存するファイル"
  :type 'file
  :group 'hatena)

(defcustom hatena-entry-type 1
  "エントリのマークアップ * をどのように処理するか。
0なら * を *pn* に、1 なら * を *<time>* に置きかえて送信"
  :type 'integer
  :group 'hatena)

(defcustom hatena-change-day-offset 6
  "はてなで, 日付を変える時間 .+6 で午前 6 時に日付を変更する."
  :type 'integer
  :group 'hatena)

(defcustom hatena-trivial nil
  "ちょっとした更新をするかどうか. non-nil で\"ちょっとした更新\"になる"
  :type 'boolean
  :group 'hatena)

(defcustom hatena-use-file t
  "パスワードを(暗号化して)保存するかどうか non-nil ならパスワードを base 64 でエンコードして保存する"
  :type 'boolean
  :group 'hatena)

(defcustom hatena-cookie 
  (expand-file-name 
   (concat hatena-directory "Cookie@hatena"))
  "クッキーの名前。"
  :type 'file
  :group 'hatena)

(defcustom hatena-browser-function nil  ;; 普通は、'browse-url
  "Function to call browser.
If non-nil, `hatena-submit' calls this function.  The function
is expected to accept only one argument(URL)."
  :type 'symbol
  :group 'hatena)

(defcustom hatena-proxy ""
  "curl に必要な時、ここで設定する"
  :type 'string
  :group 'hatena)

(defcustom hatena-default-coding-system 'euc-jp
  "デフォルトのコーディングシステム"
  :type 'symbol
  :group 'hatena)


(defcustom hatena-url "http://d.hatena.ne.jp/"
  "はてなのアドレス"
  :type 'string
  :group 'hatena)

(defcustom hatena-twitter-flag nil
  "日記更新時にtwitterに通知をするかどうか. non-nil で\"twitterに通知\"になる"
  :type 'boolean
  :group 'hatena)


(defcustom hatena-diary-mode-submit-hook nil
  "日記をはてなダイアリーに投稿 `hatena-submit' する直前に、送信す
る内容を持つ一時バッファ上で呼び出されるフック。例えば「連続しない
改行をすべて除く」などの処理が考えられます。

例:
    (add-hook 'hatena-diary-mode-submit-hook
              (lambda ()
                (goto-char (point-min))
                (replace-regexp \"\\\\([^\\n]\\\\)\\n\\\\([^\\n]\\\\)\" \"\\\\1\\\\2\")))

このフックで加えられた変更は日記ファイルには残りません。手元にも変
更を残したい場合は `hatena-diary-mode-before-submit-hook' を使用し
てください。"
  :type 'hook
  :group 'hatena)

(defcustom hatena-diary-mode-before-submit-hook nil
  "日記をはてなダイアリーに投稿 `hatena-submit' する際の前処理の段
階で、当該の日記のファイルバッファ上にて呼び出されるフック。

このフックで加えられた変更は手元のファイルにも残ります。ファイルに
は変更を加えずに投稿されるデータのみをフックで編集したい場合は、
`hatena-diary-mode-submit-hook' を使用してください。"
  :type 'hook
  :group 'hatena)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;日記ファイルの正規表現
(defvar hatena-fname-regexp
  "\\([0-9][0-9][0-9][0-9]\\)\\([01][0-9]\\)\\([0-3][0-9]\\)$" )
(defvar hatena-diary-mode-map nil)

;;古い仕様
(defvar hatena-header-regexp 
  (concat "\\`      Title: \\(.*\\)\n"
          "Last Update: \\(.*\\)\n"
          "____________________________________________________" ))

(defvar hatena-tmpfile 
  (expand-file-name (concat hatena-directory "hatena-temp.dat")))
(defvar hatena-tmpfile2
  (expand-file-name (concat hatena-directory "hatena-temp2.dat")))
(defvar hatena-curl-command "curl" "curl コマンド")

(defvar hatena-twitter-prefix nil "twitterに投稿する内容")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;face

(defvar hatena-font-lock-keywords nil)
(defvar hatena-html-face 'hatena-html-face)
(defvar hatena-title-face 'hatena-title-face)
(defvar hatena-header-face 'hatena-header-face)
(defvar hatena-subtitle-face 'hatena-subtitle-face)
(defvar hatena-markup-face 'hatena-markup-face)
(defvar hatena-link-face 'hatena-link-face)

(defface hatena-title-face
  '((((class color) (background light)) (:foreground "Navy" :bold t))
    (((class color) (background dark)) (:foreground "wheat" :bold t)))
  "titleの face"
  :group 'hatena-face)

(defface hatena-header-face
  '((((class color) (background light)) (:foreground "Gray70" :bold t))
    (((class color) (background dark)) (:foreground "SkyBlue4" :bold t)))
  "last updateの face"
  :group 'hatena-face)

(defface hatena-subtitle-face 
  '((((class color) (background light)) (:foreground "DarkOliveGreen"))
    (((class color) (background dark)) (:foreground "wheat")))
  "サブタイトルのface"
  :group 'hatena-face)

(defface hatena-markup-face 
  '((((class color) (background light)) (:foreground "firebrick" :bold t))
    (((class color) (background dark)) (:foreground "IndianRed3" :bold t)))
  "はてなのマークアップのface"
  :group 'hatena-face)

(defface hatena-html-face 
  '((((class color) (background light)) (:foreground "DarkSeaGreen4"))
    (((class color) (background dark)) (:foreground "Gray50")))
  "htmlのface"
  :group 'hatena-face)

(defface hatena-link-face 
  '((((class color) (background light)) (:foreground "DarkSeaGreen4"))
    (((class color) (background dark)) (:foreground "wheat")))
  "htmlタグで挟まれた部分のface"
  :group 'hatena-face)

;-----------------------------------------------------------------------------------
; はてな記法ヘルプ
;-----------------------------------------------------------------------------------
(defvar hatena-help-syntax-index
  'dummy
  "入力支援記法 `hatena-help-syntax-input'
   自動リンク `hatena-help-syntax-autolink'
   はてな内自動リンク `hatena-help-syntax-hatena-autolink'
   入力支援機能 `hatena-help-syntax-other'")

(defvar hatena-help-syntax-input
  'dummy
  "入力支援記法

|------------------------------+------------------------------+-----------------------------------------------------|
| 記法名                       | 書式                         | 機能                                                |
|------------------------------+------------------------------+-----------------------------------------------------|
| 見出し記法                   | *~~                        | 日記に見出し（h3）を付けます                        |
| 時刻付き見出し記法           | *t*~~, *t+1*~~           | 見出しに編集時刻を保存し表示します                  |
| name属性付き見出し記法       | *name*~~                   | 見出しに好きな name 属性をつけます                  |
| カテゴリー記法               | *[~~]~~                  | 日記にカテゴリーを設定します                        |
| 小見出し記法                 | **~~                       | 日記に小見出し（h4）をつけます                      |
| 小々見出し記法               | ***~~                      | 日記に小々見出し記法（h5）をつけます                |
| リスト記法                   | -~~, --~~, +~~, ++~~ | リスト（li）を簡単に記述します                      |
| 定義リスト記法               | :~~:~~                   | 定義リスト（dt）を簡単に記述します                  |
| 表組み記法                   | | ~~  | ~~  |            | 表組み（table）を簡単に記述します                   |
|                              | |*~~  | ~~  |            |                                                     |
| 引用記法                     | >> ~~ <<                   | 引用ブロック（blockquote）を簡単に記述します        |
| pre記法                      | >| ~~ |<                   | 整形したテキストをそのまま表示します（pre）         |
| スーパーpre記法              | >|| ~~ ||<                 | 整形したHTMLなどのソースをそのまま表示します（pre） |
| スーパーpre記法              | >|ファイルタイプ| ~~ ||<   | 整形したプログラムのソースコードを                  |
| （シンタックス・ハイライト） | >|??| ~~ ||<               | 色付けして表示します（pre）                         |
|                              |                              |                                                     |
| aa記法                       | >|aa| ~~ ||<               | アスキーアートを簡単にきれいに表示します            |
| 脚注記法                     | (( ~~ ))                   | 日記に脚注を設定します                              |
| 続きを読む記法               | ====                         | 次の見出しまでその後の日記を「続きを読む」にします  |
| スーパー続きを読む記法       | =====                        | 見出しも含めてその後の内容を「続きを読む」にします  |
| 改行記法                     | (連続した空白の行2つ)        | 改行（br）を挿入します                              |
| pタグ停止記法                | >< ~~ ><                   | 自動挿入される p タグを停止します                   |
| tex記法                      | [tex:~~]                   | mimeTeX を使って数式を表示します                    |
| ウクレレ記法                 | [uke:~~]                   | ウクレレのコード譜を表示します                      |
|------------------------------+------------------------------+-----------------------------------------------------|

スーパーpre記法で対応しているファイルタイプ

a2ps a65 aap abap abaqus abc abel acedb actionscript ada aflex ahdl alsaconf amiga aml ampl ant antlr apache  apachestyle arch art asm asm68k asmh8300 asn aspperl aspvbs asterisk  asteriskvm atlas automake ave awk ayacc b baan basic  bc bdf  bib bindzone blank bst btm c calendar catalog cdl cf cfg ch change changelog chaskell cheetah  chill chordpro cl clean clipper cmake cobol colortest conf config context cpp crm crontab cs csc csh csp css cterm ctrlh cupl cuplsim cvs cvsrc cweb cynlib cynpp d dcd dcl debchangelog debcontrol debsources def desc desktop dictconf dictdconf diff  dircolors diva  django  dns docbk docbksgml docbkxml dosbatch dosini dot doxygen dracula dsl dtd dtml dylan dylanintr dylanlid ecd edif eiffel elf elinks elmfilt erlang eruby esmtprc esqlc esterel eterm eviews exim expect exports fasm fdcc fetchmail  fgl flexwiki  focexec form forth fortran foxpro fstab fvwm fvwm2m4 gdb  gdmo gedcom gkrellmrc gnuplot go gp gpg grads gretl groff groovy group grub gsp gtkrc haskell  hb help hercules hex hitest hog html htmlcheetah htmldjango htmlm4 htmlos ia64 icemenu icon idl idlang indent inform initex inittab ipfilter ishd iss ist jal jam jargon java javacc javascript  jess jgraph jproperties jsp kconfig kix kscript kwt lace latte ld ldif lex lftp lhaskell libao lifelines lilo limits lisp lite loginaccess logindefs logtalk lotos lout lpc lprolog lscript lss lua lynx m4 mail mailaliases mailcap make man manconf manual maple masm mason master matlab maxima  mel mf mgl mgp mib  mma mmix modconf model modsim3 modula2 modula3 monk moo mp mplayerconf mrxvtrc msidl msql mupad mush muttrc mysql named nanorc nasm nastran natural  ncf netrc netrw nosyntax nqc nroff nsis objc objcpp ocaml occam omnimark openroad opl ora pamconf papp pascal passwd pcap pccts perl pf pfmain php phtml pic pike pilrc pine pinfo plaintex plm plp plsql po pod postscr pov povini ppd ppwiz prescribe procmail progress prolog protocols psf ptcap purifylog pyrex python qf quake r racc radiance ratpoison rc rcs rcslog readline  rebol registry remind resolv rexx rhelp rib rnc rnoweb robots  rpcgen rpl rst rtf ruby samba sas sather scala scheme  scilab  screen  sdl sed sendpr sensors services setserial sgml sgmldecl sgmllnx sh sicad sieve simula sinda sindacmp sindaout sisu skill sl slang slice slpconf slpreg slpspi slrnrc slrnsc sm smarty smcl smil smith sml snnsnet snnspat snnsres snobol4 spec specman spice splint spup spyce sql  sqlanywhere sqlforms sqlinformix sqlj sqloracle sqr squid sshconfig sshdconfig st stata stp strace sudoers svn syncolor synload syntax sysctl tads tags tak takcmp takout tar tasm tcl tcsh  terminfo tex  texinfo texmf tf tidy tilde tli tpp trasys trustees tsalt tsscl tssgm tssop uc udevconf udevperm udevrules uil updatedb valgrind vb vera verilog verilogams vgrindefs vhdl  vim viminfo virata vmasm vrml vsejcl wdiff web webmacro wget  whitespace winbatch wml wsh wsml wvdial xdefaults xf86conf xhtml  xinetd xkb xmath xml xmodmap xpm xpm2 xquery xs xsd xslt  xxd yacc  yaml z8a zsh
")
	
(defvar hatena-help-syntax-autolink
  'dummy
  "自動リンク

|--------------------+---------------------------------+--------------------------------------------|
| 記法名             | 書式                            | 機能                                       |
|--------------------+---------------------------------+--------------------------------------------|
| http記法           | http://~~                     | URLへの始まるリンクを簡単に記述します      |
|                    | [http: //~~:title]            |                                            |
|                    | [http://~~:barcode]           |                                            |
|                    | [http://~~:image]             |                                            |
|                    |                                 |                                            |
| mailto記法         | mailto:~~                     | メールアドレスへのリンクを簡単に記述します |
| niconico記法       | [niconico:sm*******]            | ニコニコ動画の再生プレーヤーを表示します   |
| google記法         | [google:~~]                   | Google の検索結果にリンクします            |
|                    | [google:image:~~]             |                                            |
|                    | [google:news:~~]              |                                            |
|                    |                                 |                                            |
| map記法            | map:x~~y~~ (:map)           | Googleマップを表示し、リンクします         |
|                    | [map:~~]                      |                                            |
|                    | [map:t:~~]                    |                                            |
|                    |                                 |                                            |
| amazon記法         | [amazon:~~]                   | Amazon の検索結果にリンクします            |
| wikipedia記法      | [wikipedia:~~]                | Wikipediaの記事にリンクします              |
| twitter記法        | twitter:〜〜:title、            | Twitterのつぶやきにリンクします            |
|                    | twitter:〜〜:tweet、            |                                            |
|                    | twitter:〜〜:detail、           |                                            |
|                    | twitter:〜〜:detail:right、     |                                            |
|                    | twitter:〜〜:detail:left、      |                                            |
|                    | twitter:〜〜:tree、             |                                            |
|                    | [twitter:@hatenadiary]、        |                                            |
|                    | [http://twitter.com/hatenadiary |                                            |
|                    | /status/〜〜:twitter:title]     |                                            |
| 自動リンク停止記法 | [] はてな記法 []                | はてな記法による自動リンクを停止します     |
|--------------------+---------------------------------+--------------------------------------------|
")

(defvar hatena-help-syntax-hatena-autolink
  'dummy
  "はてな内自動リンク

|---------------+-------------------------------+-------------------------------------------------|
| 記法名        | 書式                          | 機能                                            |
|---------------+-------------------------------+-------------------------------------------------|
| id記法        | id:~~、 id:~~:archive     | はてなユーザーにリンクし、                      |
|               | id:~~:about、id:~~:image  | 自動トラックバックを送信します                  |
|               | id:~~:detail、id:〜〜+〜〜  |                                                 |
|               |                               |                                                 |
| question記法  | question:~~:title           | 人力検索はてなにリンクし、                      |
|               | question:~~:detail          | 自動トラックバックを送信します                  |
|               | question:~~:image           |                                                 |
|               |                               |                                                 |
| search記法    | [search:~~]                 | はてな検索の検索結果にリンクします              |
|               | [search:keyword:~~]         |                                                 |
|               | [search:question:~~]        |                                                 |
|               | [search:asin:~~]            |                                                 |
|               | [search:web:~~]             |                                                 |
|               |                               |                                                 |
| antenna記法   | a:id:~~                     | はてなアンテナにリンクします                    |
| bookmark記法  | b:id:~~ (:~~)             | はてなブックマークにリンクします                |
|               | [b:id:~~:t:~~]            |                                                 |
|               | [b:t:~~]                    |                                                 |
|               | [b:keyword:~~]              |                                                 |
|               |                               |                                                 |
| diary記法     | d:id:~~                     | はてなダイアリーにリンクし、                    |
|               | d:id:〜〜+〜〜                | 自動トラックバックを送信します                  |
|               | [d:keyword:~~]              |                                                 |
|               |                               |                                                 |
| fotolife記法  | f:id:~~:~~:image          | はてなフォトライフの写真を表示し、              |
|               | f:id:~~:~~:movie          | 自動トラックバックを送信します                  |
|               | f:id:~~(:favorite)          |                                                 |
|               |                               |                                                 |
| group記法     | g:~~                        | はてなグループにリンクし、                      |
|               | g:~~:id:~~                | 自動トラックバックを送信します                  |
|               | [g:~~:keyword:~~]、他     |                                                 |
|               |                               |                                                 |
| haiku記法     | [h:keyword:~~]              | はてなハイクにリンクします                      |
|               | [h:id:~~]                   |                                                 |
|               |                               |                                                 |
| idea記法      | idea:~~ (:title)            | はてなアイデアにリンクし、                      |
|               | i:id:~~                     | 自動トラックバックを送信します                  |
|               | [i:t:~~]                    |                                                 |
|               |                               |                                                 |
| rss記法       | r:id:~~                     | はてなRSSにリンクします                         |
| graph記法     | graph:id:~~                 | はてなグラフを表示し、リンクします              |
|               | [graph:id:~~:~~ (:image)] |                                                 |
|               | [graph:t:~~]                |                                                 |
|               |                               |                                                 |
| keyword記法   | [[[[~~]]]]                      | キーワードにリンクします                        |
|               | [keyword:~~]                |                                                 |
|               | [keyword:~~:graph]、他      |                                                 |
|               |                               |                                                 |
| isbn/asin記法 | isbn:~~、、 、、            | 書籍・音楽・映画などの紹介リンクを表示します    |
|               | asin:~~                     |                                                 |
|               | isbn:~~:title               |                                                 |
|               | isbn:~~:image               |                                                 |
|               | isbn:~~:detail、他          |                                                 |
|               |                               |                                                 |
| rakuten記法   | [rakuten:~~]                | 楽天市場の商品の紹介リンクを表示します          |
| jan/ean記法   | jan:~~、 ean:~~、他       | JAN/EANコードを使った商品紹介リンクを表示します |
| ugomemo記法   | ugomemo:~~                  | うごメモを貼り付けます                          |
|---------------+-------------------------------+-------------------------------------------------|
")

(defvar hatena-help-syntax-other
  'dummy
  "入力支援機能

|--------------------------------------+----------------------------------------------------------|
| ヘルプ                               | 書式                                                     |
|--------------------------------------+----------------------------------------------------------|
| 「*」や「-」をそのまま行頭に表示する | （行頭に半角の空白をつける）                             |
| 下書き記法                           | <!-- ~~ -->                                            |
| 修正時刻保存機能                     | <ins> ~~ </ins>, <del> ~~ </del>                     |
| cite、title属性                      | <blockquote cite=\"~~\" title=\"~~\"> ~~ </blockquote> |
| 自動リンクをタグ内で使う             | <a href=\"はてな記法\"> ~~ </a>                          |
|--------------------------------------+----------------------------------------------------------|
")