Lisp/Scheme

Scheme/Chicken/spamchampuru

chickenでスパムちゃんぷるーDNSBLをチエックするeggを書いた。

• files:egg/spamchampuru.egg

呼出しは(spam-champuru? host)だけ。簡単。

(use spamchampuru)
(spam-champuru? "192.0.2.1")
=> #t
(spam-champuru? "example.com")
=> #f

Programming/Scheme/Chicken/udpmsg

ここまできたら、やっぱりSchemeでudpmsgを書かないと。 これは今書いた。CheckenかわいいよChecken。

(use udp)

(define ipmsg-version      #x0001)
(define ipmsg-default-port #x0979)
(define ipmsg-sendmsg      #x0020)

(define (format-msg num host user cmd extra)
  (format "~a:~a:~a:~a:~a:~a" ipmsg-version num host user cmd extra))

(define (send-udpmsg host msg)
  (let ((sock (udp-open-socket)))
    (udp-bind! sock #f 0)
    (udp-connect! sock host 2425)
    (udp-send sock (format-msg (random 16777215) "myhost" "myname" ipmsg-sendmsg msg))
    (udp-close-socket sock)))

って、3つの中で一番読みやすいな。

WiLiKi/☠utf-8☠

Gaucheの内部エンコーディングとWiLiKiのデータベースのエンコーディングをUTF-8に変更した。

WiLiKi/nofollow

 (a (@ (rel "nofollow"))) 

をいれるようにしてみた。 HSPWiKiのほうの対策だけど、こっちも巻き添え。

Stylishで、

a[rel='nofollow']:after {
  content: '→' !important;
  color: red !important;
  text-decoration: underline !important;
  font-size: 8px !important;
}

とかをグローバルスタイルに設定すると、

　　　　　　　　　　　　　　　　 パハ　　
　　　　　　　　　　　　　　　('(゜∀゜∩　 みえるよ！
　　　　　　　　　　　　　　　　ヽ　　〈　
　　　　　　　　　　　　　　　　　ヽヽ_)

WiLiKi/wiki-patch-format-scheme

いまさらながら、CSW:wiki-patch-format-schemeを頂いて、入れてみた。もう3年前のコードなのか。 google-code-prettifyも導入したので、衝突しないかどうかテストしてみる必要があるな。