アイデア集/pukiwiki-mode

に対して Elisp でファイルを添付するのはどうしたらいいんだろう．．．良く分からな いので頓挫してます．

• 編集時に、ミニバッファで設定する WiKi?名を migemo を使って補完する

• howmで、pukiwikiの書式でメモを取りたい

pukiwiki-modeで、整形して表示しているものを、howmで使えれば、メモを取り溜めして も、コピペでpukiwikiに反映できるため。

• 「タイムスタンプを変更しない」ページの更新機能

• 整形関連のバグつぶし

• コメントが連続しても1行になってしまう

• pukiwiki 1.3.5で検索機能が動作しない

• C-cC-cでバッファが閉じられてしまうのを防ぐ方法がほしい

• 1.4.6 でインデックスが表示できない

• 1.4.6のインデックス表示は対応

• PukiWiki 1.4.4でコメント書き込みができない
  • データのpost先がpukiwiki.phpに変更になったみたい

• セーブしていないバッファは終了時に破棄するか確認するようにおねがいします。

パッチと対応済みのもの

他力本願．．．あれば適当に追加してください．

PukiWikiごとに異なる文字コードに対応するパッチ

PukiWikiごとに異なる文字コードに対応するパッチです。

• pukiwiki-site-listに文字コードのエントリを追加。
• pukiwiki-site-coding-system: New function.
• pukiwiki-http-request, pukiwiki-fetch-sourceの引数にcoding-systemを追加。
• pukiwiki-coding-systemをpukiwiki-site-coding-systemの呼び出しか前後を見て適当なものに置き換え。

pukiwiki-mode-set-variableでset-buffer-file-coding-systemを削った後対応する処理 をどこにも入れていないので、一応読み込みと書き込みだけは動いているようですが、ど こかに不具合が残っているかも知れません。

添付ファイルにしました(pukiwiki-mode.el.patch) -- 橘花? &new{2004-04-11 (日) 04:37:05};

すばらしい．

(setq pukiwiki-site-list
      '(("Meadow" "https://bookshelf.jp/pukiwiki/pukiwiki.php" nil euc-jp-dos)
         ("Pukiwiki" "http://pukiwiki.org/index.php" nil utf-8-dos)
         ))

とすれば本家も読めました．ありがとうございます

プレビューで一時ファイルの文字コードの指定がちゃんとできなくなってしまっていたの で修正しました(pukiwiki-edit-preview.patch)。お手数をお掛けしてすいません。 -- 橘花? 2004-04-12 (月) 17:05:54

no-proxy ドメインを指定可能にするパッチ

と、そのつもりだったのですが、私が利用している Emacsen が XEmacs only なために色々 と支障があった部分にも対処しており、雑多なパッチになってしまいました。 `pukiwiki-mode.no-proxy.patch' と言う名前で、添付ファイルとして upload しました。

以下の環境で確認してあります。

 $ xemacs --version
 XEmacs 21.4 (patch 14) "Reasonable Discussion" [Lucid]
   (i686-pc-cygwin, Mule) of Wed Nov 26 2003 on *****

 $ xemacs --version
 XEmacs 21.4 (patch 14) "Reasonable Discussion" [Lucid]
   (i686-pc-linux, Mule) of Wed Feb 11 2004 on *****

;; しかし、Meadow, Emacs で動かなくなってしまった部分があるかもしれません (すみません。確認できる環境がありませんで) ので、ご留意下さい。

pukiwiki-mode では、`http-proxy-server' の値が nil 以外だと proxy 経由でのアクセ スを行ないますが、proxy の内外のサーバにアクセスしたい場合には、 `http-proxy-server' の内容を消すしか方法がありません。(よね??)

なので、domain を指定して proxy 経由しない設定を有効にできる様にしてみたものです。 添付ファイルの `pukiwiki-mode.no-proxy.patch' を適用した後、

 (setq pukiwiki-no-proxy-domains-list
       '("localhost" "no-proxy-domain.com" ...))

等として下さい。`defcustom' していますので、

 M-x customize-group [RET] pukiwiki [RET]

でも設定可能です。 ;; Meadow, Emacs でもこれで設定可能なのかどうかは判りません。すみません。

他の雑多な修正として、

• Pukiwiki 1.3 系へのアクセスに対処。

  version 1.3.3 の Pukiwiki が生きているので無理矢理対応してみました。但し、 Pukiwiki 自体に明るく無いので、正規表現は無理矢理です。上の `動作する環境' に、 正規表現を変えれば読めると書いてあったので、その様に対処してみただけのものです。 動かなかったら直してみて下さい。

  因みに version 判定は、page 下部のシグネチャにある copyright 部分、

   "PukiWiki" 1.4.2 Copyright  2001,2002,2003 PukiWiki Developers Team.
   License is GNU/GPL.

  で判断しています。template とかで、ここの表示が色々変わる様だと誤認して動かない かもしれません。認識できなかったときは 1.4 系と看倣します。

• XEmacs で動作不能な部分を修正。

  あくまで ad hoc ですが。

   buffer-file-coding-system
   replace-{regexp,string}
   overlay-put
   transient-mark-mode
   x-color-defined-p
   diff-command

  あたりが挙動が違う、XEmacs には存在しない、などで問題が出たものです。

  まだ昨日使っただけなので、全然機能を使いこなしていないため、まだまだ 問題のある関数や変数があるとは思います。

  特に、replace-{regexp,string} については、

   re-search-forward, replace-match の組み合わせ
   perform-replace

  の二種類の置き換えが考えられたのですが、取り敢えず、今回は、

   replace-regexp -> re-search-forward, replace-match の組み合わせ
   replace-string -> perform-replace

  としています。

  どちらが効率が良いかとか、Meadow, Emacs 系でどうかとかにもよるので、 取り敢えずはこれで試して貰おうと思っています。良きに図らって頂ければ幸 いです。

  diff-command は、XEmacs では定義が無いだけでした。というか、package によ るんでしょうかね。Meadow, Emacs だと、素のままで `diff-command' は定義されている んでしょうか。

色々問題もあろうかと思いますが、使って頂ければ幸いです。 -- ogawa 2004-09-02 (木) 16:21:05

• XEmacs での overlay の扱いがおかしかったのを直して、添付ファイルを up し直しました。
• `COLOR' での文字色指定や、強調表示などの範囲を誤ってた様なので、一部修正してみました。

  しかし font-lock 関係は手を付けるのが怖いかも。 -- ogawa 2004-09-02 (木) 21:02:36

• no-proxy でバグありましたね、誠に申し訳ないです。

  お詫びと言っては何ですが、整形処理を少し拡張してみました。

  • 段落指定 `~' を段落として扱う様にした。

    行末の `~' しか認識していなかった様なので。

  • リスト項目の整形と着色。(keyword による着色から自前での着色に変更)
  • no-proxy patch で強調表示の指定がおかしくなっていたのを修正。 といったところです。 しかし、整形処理は突き詰めて行くと途方も無いことになってしまいますね。

整形は適当に手を抜いておいた方が楽でいいです．私が書いたものも，ちょっと凝ったタ グを書いてあるとまともに表示できませんし．．．

• あと、process 終了監視の時間間隔を指定できる様にしてみました。私の環境 では、とても重いことが多かったもので。

  余り時間が無くて、検証が大雑把なのはご容赦下さい。(本当すみません)

差分表示に `Ediff' を使う様にするパッチ

折角の Emacsen で wiki を見ていて、差分が diff でしかないのが悲し過 ぎたので作ってみました。

Ediff が利用できる環境なら、インデックスモードで `=' (pukiwiki-index-show-diff) としたときに Ediff パッケージを利用して差分 を表示します。
編集モードや、表示モードで C-x v = としたときも同様です。

但し、`pukiwiki-index-show-today-diff', `pukiwiki-index-show-today-changed' は複数のコンテンツを扱うため、インタフェースが噛み合わないので対象外と しています。

XEmacs 以外の Emacsen での動作は確認できていません。すみませんが、確 認をお願いします。

振舞いを制御するために `pukiwiki-diff-using-ediff' という変数を新設 させて貰いました。従来の動作をお望みの方は nil を設定して下さい。
デフォルトは nil ですので、何も意識しなければ従来の動作のままです。 Ediff を使いたい方は、明示的に非 nil を設定して下さい。

 M-x customize-group [RET] pukiwiki [RET]

として `Diff Using Ediff' を on にするか、

 (setq pukiwiki-diff-using-ediff t)

を評価して下さい。
Ediff を抜けた後、表示用に作成したバッファはそのまま残ります。不要になっ たら kill-buffer などして下さい。

あと、これまでに私が up した patch にあった幾つかのバグ修正と水平線 の整形処理を加えています。 水平線については、これまでのリスト項目の整形処理で、行頭の `-' (ハイフ ン) を 4個以上連続して書いていてもリスト項目としていた処理を変更してい ます。
Pukiwiki の help では、

• リスト項目は 3レベルまで。
• 行頭に `-' を 4つ書くと水平線。

と書いてあったのでこうしてみたのですが、問題ある様であれば却下して下さ い。-- ogawa? 2004-09-08 (水) 16:18:10

;; いつも小出しですみません。

目次を便利に

長いページだと目次があるだけではあまりうれしくない。簡単な操作で各章へジャンプで きるといいな

簡単ですが、一応できる様にしてみた patch を upload しました。
表示モードで、目次を挿入している場合に、対応する目次と見出しの間をジャ ンプできます。
ついでに、目次と見出しに設定したアンカーを順にジャンプできる様にもして あります。w3m の様な感じでしょうか。

表示モード限定で、以下の様な感じに動作します。

• 目次、見出しにポイントがあるとき、それぞれ対応する箇所にポイントを 移動できます。

  デフォルトでは C-m に bind しています。

  従来は添付ファイルのダウンロードが C-m に bind されていましたが、 bind は変更させて貰いました。しかし、ポイント位置が、目次か見出しでな い場合は、従来通り、添付ファイルのダウンロードを行ないます。

• 目次、見出し間のポイント移動で、ポイントを移動した際の window 表示 位置を制御できます。

  表示位置は、以下の何れかを選択できます。

  • 移動したポイントが window の先頭 (margin も指定可) に来る様に。
  • デフォルトの表示位置

• 目次と見出しの位置に、順繰りにポイントを移動できます。

  デフォルトでは順方向のジャンプを C-i に、逆順方向のジャンプを M-C-i に bind しています。

関連して新規の変数を追加しています。

• pukiwiki-jump-display-window-top

  非 nil なら、目次、見出し間でジャンプしたとき、ジャンプ先のポイント を、window の上部に表示します。デフォルトは nil です。

• pukiwiki-jump-display-window-top-without-content

  非 nil なら、見出しから目次にジャンプしたときには window 上部に表示 せずにデフォルトの表示位置にします。デフォルトは nil です。

• pukiwiki-jump-display-window-upper-margin

  ジャンプ先のポイントを window 上部に表示する際に、最上部からの margin を行数で指定できます。デフォルトは 0 です。

変数の設定は面倒な感じになってしまいましたが、色々好みもあると思いまし て。 如何でしょうか。 -- ogawa 2004-09-07 (火) 19:08:52

ページ、リンクを辿れる様に & コメント投稿できる様に。

一部、機能の紹介へ移動させました。

以下の様な機能を追加するパッチです。

• アンカータグ (リンク) が有効になる様にした。
• コメント (`#comment' `#pcomment')、簡易掲示板 (`#article') の plugin に対応した。
• 簡易ページ履歴
• font face の拡張。
• その他、整形処理の色々バグ潰しなど。

今回、手元で少しずつ拡張を繰り返しておりまして、色々と安定化を図ってか ら upload しようと思っていたのですが、重複する部分に変更が入り出してし まったので、ここで取り敢えず、upload させて貰うことにしました。

但し、merge して patch を作成したのは、昨日 up された、

 filpukiwiki-mode.el (backup No.57)
   ページ:アイデア集/pukiwiki-mode
   格納ファイル名:./attach/
   A5A2A5A4A5C7A5A2BDB82F70756B6977696B692D6D6F6465_70756B6977696B692D6D6F64652E656C.57
   MD5ハッシュ値:7d3ab6dca3f3bffac09b4094b347a5cc
   サイズ:127.6KB (127561 bytes)
   Content-type:application/octet-stream
   登録日時:2004/10/05 15:30:17
   アクセス数:

というファイルについてです。

これに対してパッチを作成してしまった後、更に update されているのに気付 いたのですが、face 部分が被ってしまっているので、そのまま merge できま せんでした。
できれば吸収して頂きたいとは思っていますが、ちょっとゴチャゴチャしてい る上に、この様なパッチとなってしまったので、どの様に扱うかは松下さんに お任せ致します。

追加機能

• font face の拡張。

色々と face を定義したんですが、バッティングしてしまった様です。
引用やアンカーの face は、font-lock の探索に基づくフォント選択ではなく、 overlay で設定しています。

但し、色付けはかなりうるさくなると思います。
気になる場合は、face を変更してみて下さい。

• その他、整形処理の色々な拡張やバグ潰しなど。

非互換

見出し行にリンクが存在すると、その部分が有効になりますが、その副作用 で、以前は見出し行全体が目次との間のジャンプができるリンクもどきとし て機能していましたが、リンクが出現するまでの部分だけしか、その様には 機能しなくなりました。

懸案、問題点

• コメント行 (行頭が `//' のもの) は、まだ完全に正しくは扱えません。 一応、それっぽくはありますが、段落としての認識が不完全です。

• `#pcomment' の展開時、表示件数の指定は有効になりません。 また、below などの引数も有効ではありません。

• 二重ブラケットで囲まれた文字列のリンクへの変換ですが、簡易整形により 二重ブラケットの間に改行が挟まれてしまった場合は変換されなくなってしま います。

• 整形処理は、ツギハギだらけにしてしまったので、整理し直さないとならな いと思います。殆ど私のせいですね。申し訳ありません。 -- ogawa?

コメント機能のエラー関連

よく分かってませんが、やってみました

初期状態

anchorhead           t
select               no
radio                4
anchortype           radio
anchor               t
fontified            t

ここで、RETとすると、[ ]が[*]となる。その状態で確認すると、

Text property at 185:  fontified  t

となる。プロパティが消えてるみたい。一度RETでマークをつけると、他の部 分も同じ反応になる。

ここに書いている内に松下さんが直して下さいましたね。ありがとうございま す。
XEmacs でも問題無いことを確認致しました。

私も確認しているうちに、replace-match で mark を書き換えたときにプロパ ティが剥がされたとしか思えないと考えていたところでした。
テキスト属性の振舞いとしては、どちら (Meadow と XEmacs. FSF Emacs だと どうなのかな?) の振舞いも納得できる気がします。
文字の置き換えをどう捉えるかなのでしょうね。

しかし、そうだとすると、他にも色々とありそうな気がします。
アンカーや見出しでおかしな部分があるかもしれませんので、何かあればご報 告下さい。
ただ、今回の場合は、属性を設定した箇所全てを置き換える結果になっている ので、途中だけを置き換える場合には問題無いのかもしれませんね。

• すみません、修正パッチです。

申し訳ありませんが、バグがありました。

• 引数に `reply' が指定されていないと、コメントの展開を行なわなくなっ ていたのを修正。
• `Pukiwiki/1.4/マニュアル/プラグイン/p' を表示しようとすると、 `#pcomment' の説明部分で、`#pcomment' プラグインが指定されているもの と誤認してしまい読み込めなくなるのを修正。
• `pukiwiki-view-chip-away-bracket' に非 nil を設定している場合で、コ メントの末尾に url が直接記述されている場合などに、ブラケット削除の確 認時に error となってしまうのを修正。

したパッチを upload しました。
プラグインの引数に関しては、サポートしていない引数もありかなり適当です。 特に pcomment のコメントページのページ名は、判断が難しいため、誤認して ページがありませんと言われてしまうことも多いかと思います。 問題ある様であればなるべく改善して行きますので、ご報告願います。

• 更にパッチです。何度もすみません。

パッチに含まれていた不具合を修正頂いた様でありがとうございます。

引用部分の整形処理なんですが、引用中に整形済みテキストが現われることは 全く考慮していませんでした。すみません。
引用部分の整形では、とある wiki で、簡易掲示板への投稿記事に行末改行が 付加されないケースがあり、それに対処するために段落の区切りを探していた んですが、引用中の整形済みテキストが正しく表示できた方が良いと思います のでこの方が良いですね。

また、pcomment で引数無しのときの動作は、ちゃんと作り込まれていません でしたね。すみません。

ただ、`reply' を引数の省略値としてしまって、引数無しのときにも `reply' が指定されているものと看倣してしまうと、リプライできないコメントにラジ オボタンもどきが付加されてしまい、まるでリプライできる様に見えてしまう ので、リプライできない形式 (ラジオボタンもどきを付加しない) で展開する 様にしました。
そのため、pcomment のデフォルトとして `reply' を扱っていた部分を外させ て貰いました。

と言う訳で、

pukiwiki-mode.el.pcomment-announce.patch

を upload しました。 他に、

• pcomment の展開位置に、表示件数とコメントページへのリンクを表示する 様に修正。
• 表示モードのバッファを `q' で抜けるときに、インデックスに表示されて いる、バッファが存在することを示す "V" マークを消す様に修正。
• インデックスバッファの末尾にポイントを移動すると、現在行がハイライ トされなくなってしまっていたのを修正。

しました。
「表示件数とコメントページへのリンク」表示は、コメントページにコメント が存在するか否かで表示内容が異なります。これは、ブラウザで表示させたと きと同じ挙動にしています。

WIKIWIKIへの対応

PukiWikiベースのwikiを利用している大手サイトで、WIKIWIKI.jpがあります。厳密にはPukiWiki Plusを利用していますが、たぶんpukiwiki-modeを使えるだろうということで対応させてみました。
編集・閲覧について動作確認しています。

最大の問題はindexモードが取得できないことで、原因はWIKIWIKIには日付の表示がないことです。これに関連してindexモード画面で日付部分がすべてnilになる問題が発生しますが、実害は（おそらく）ありません。

pukiwiki-fetch-index-regexp- で始まる変数がたくさん定義されているところに次を追加。

(defvar pukiwiki-fetch-index-regexp-wkwk
 "

pukiwiki-pukiwiki-version-checkのcondの最後の要素を次のように書き換え。なお、wikiwiki-pは他の部分で日付表示を消すために使っている変数ですので、他にいじらないならば必要ありません。

      (t
       (setq pukiwiki-1-3-p nil)
       (goto-char (point-min))
       (if (re-search-forward "WIKIWIKI" nil t nil)
           (progn (setq pukiwiki-fetch-index-regexp pukiwiki-fetch-index-regexp-wkwk)
                  (setq wikiwiki-p t))
         (setq wikiwiki-p nil)
         (setq pukiwiki-fetch-index-regexp
               pukiwiki-fetch-index-regexp-1.4-later)))

他サイトの情報メモ

pukiwikihelper-mode

キーバインドの追加や機能の追加などを行うモード

http://amt.ty.land.to/pukiwiki/pukiwiki.php?pukiwikihelper-mode

記述子の入力を簡易に

http://d.hatena.ne.jp/amt/20050330 より

■ [emacs][wiki]pukiwiki-modeのカスタマイズ 
wiki の編集は、Meadow memoで有名な松下さんの快作 pukiwiki-mode)を使っている。

今までは不慣れなこともあって素のままで使っていたのだが、いじっているウチに色々不満も溜ってきた。

矢張りデフォールトで 物理行編集モードでいて欲しい 
よく使う記述子の入力を簡単に行ないたい。 
という訳で↓のようにカスタマイズしてみた。ま、誰でも考えるようなことだけれど。

;;; 20050330  physical-line-mode on
(add-hook 'pukiwiki-edit-mode-hook
          '(lambda ()
             (physical-line-mode-on)
))

;(fset 'pukiwiki-insert-newline
;   [?\C-e ?& ?b ?r ?\; return])
(fset 'pukiwiki-insert-newline
      "&br;")
(fset 'pukiwiki-insert-tab
      "&t;")
(fset 'pukiwiki-justification-right
      "RIGHT:")
(fset 'pukiwiki-justification-left
      "LEFT:")
(fset 'pukiwiki-justification-center
      "CENTER:")
(fset 'pukiwiki-bgcolor
      "BGCOLOR():")
(fset 'pukiwiki-color
      "COLOR():")
(fset 'pukiwiki-size
      "SIZE():")

;;; キーバインドは enriched-mode を参考にした
(define-key pukiwiki-edit-mode-map "\M-jo" 'pukiwiki-insert-newline)
(define-key pukiwiki-edit-mode-map "\M-jj" 'pukiwiki-insert-newline)
(define-key pukiwiki-edit-mode-map "\M-jm" 'pukiwiki-insert-newline)
(define-key pukiwiki-edit-mode-map "\M-jt" 'pukiwiki-insert-tab)
(define-key pukiwiki-edit-mode-map "\M-j\t" 'pukiwiki-insert-tab)
(define-key pukiwiki-edit-mode-map "\M-jr" 'pukiwiki-justification-right)
(define-key pukiwiki-edit-mode-map "\M-s" nil) ;;overwrite center-line
(define-key pukiwiki-edit-mode-map "\M-s" 'pukiwiki-justification-center)
(define-key pukiwiki-edit-mode-map "\M-jc" 'pukiwiki-justification-center)
(define-key pukiwiki-edit-mode-map "\M-jl" 'pukiwiki-justification-left)
(define-key pukiwiki-edit-mode-map "\M-jb" 'pukiwiki-bgcolor)
(define-key pukiwiki-edit-mode-map "\M-jf" 'pukiwiki-color)
(define-key pukiwiki-edit-mode-map "\M-js" 'pukiwiki-size)