niupを試してみる

追記：
うちの環境がダメダメだったようです。
うまく行きました！

↓に書いたことは放置でお願いします。

まだうまく動かないようですね。
メールかwikiに書き込もうか迷いましたが、とりあえずここで。

(load-library “niup/setup”)　か
(require :niup/setup)
を評価すると junk が無いと怒られる。
trace結果がこれ↓。

>CALL STACK 23: (system:|(-reader| # #\()
>CALL STACK 22: (system:|(-reader| # #\()
>CALL STACK 21: (system:|(-reader| # #\()
>CALL STACK 20: (system:|(-reader| # #\()
>CALL STACK 19: (system:|(-reader| # #\()
>CALL STACK 18: (system:*load-library “niup/project”)
>CALL STACK 17: (system:*byte-code …)
>CALL STACK 16: (require “niup/project”)
>CALL STACK 15: (eval-when ((:compile-toplevel :load-toplevel :execute) (require “niup/descript”) (require “niup/setting”) …))
>CALL STACK 14: (system:*load-library “niup/gndtempl”)
>CALL STACK 13: (system:*byte-code …)
>CALL STACK 12: (require “niup/gndtempl”)
>CALL STACK 11: (eval-when ((:compile-toplevel :load-toplevel :execute) (require “niup/gndtempl”)))
>CALL STACK 10: (# “niup/setup”)
>CALL STACK 9: (apply # “niup/setup” nil)
>CALL STACK 8: (system:*byte-code …)
>CALL STACK 7: (load-library “niup/setup”)
>CALL STACK 6: (eval (load-library “niup/setup”))
>CALL STACK 5: (system:*byte-code …)
>CALL STACK 4: (eval-region 1247 1274 nil)
>CALL STACK 3: (system:*byte-code …)
>CALL STACK 2: (#)
>CALL STACK 1: (command-execute eval-last-sexp)
パッケージが存在しません: “junk”

どうも、site-lisp/niup/project.l らしい。
関数project-send 内で
(require :niup/setup)
の部分をコメントアウトして、
eval-whenの中で
(require :niup/setup)
してみた。

次に
起動する前に
.xyzzyに(load-library “niup/setup”)を書いておく。

M-x niupができた。

次にアカウントを取るところでまたjunkが無いと怒られた。
site-lisp/niup/wikiaccess.l のはじめのほうで次を追加してみた。
(require :junk/lib)
(require :junk/http)

最後に、いろいろと設定をした後、
最後にuploadするところで
うまくupできないようです。

とりあえずここまで。
そもそも自分の設定がダメなのかも。