しょぼしょぼすくりぷと xyzzy編 > ツール/ゲーム ジョークライブラリ集 > メッセージスクロール ライブラリ

メッセージスクロール ライブラリ

xyzzyにメッセージスクロール機能を追加します

概要

message や popupにアニメーション文字を表示します。

例:
  /  ―  \  |  こんな文字を1文字ずつ順番に表示させたり
顔文字アニメーション(^_^)ノ (^_^)ノシ (^_^)ノ (^_^)ノシ を表示させたりできます。
※表示サンプルはソースにあります。*ahya-string-list*

あなたの xyzzyに彩りが加われば良いかなぁーと思ってます :p)

制限

複数の表示アイテムを同時に表示できない

開発コード

ahya-mode

使い方

インストール

site-lisp/配下に .lファイルを置き
.xyzzy に (lood-library "message-scroll")とするだけ。

起動

起動関数はこれです。

(defun ahya (&optional item-num &key subtype popup-p time))

開始方法例
(ahya) ;アイテムランダム
(ahya 12) ;12番目を使う
(ahya 14 :popup-p t) ;messageでなく popupで表示
(ahya 3 :subtype "now searching..." :popup-p nil) ;先頭文字指定する場合

止め方

(ahya-stop)

カスタマイズ

下記の変数を いじってくださいフォーマットは下を参考にしてください。
*ahya-string-list* := (1アイテム)*

  (1アイテム) := (文字列 タイプ インターバル 追加先頭文字)

タイプは 'string 'char 'list の3つです。
文字列は charの場合、1文字1文字が順番に表示されます。
         stringの場合、 ローテートしながら文字を表示します(左端一文字が右端に移動する)。
         listの場合、リストが順番に表示されます。
インターバルは 秒単位(timer仕様)です。

活用例

;保存するときに 表示させる  φ (・_ ・ )カキカキ   ,   /―\|,(´∀` ), ~~y(^o^) .now saving...
(add-hook '*before-save-buffer-hook* '(lambda () (ahya 0 :popup-p t :time 10) nil))
(add-hook '*after-save-buffer-hook* 'ahya-stop-later)



;xyzzy 起動時に   ヽ(゚ω゚=)
(add-hook '*post-startup-hook* '(lambda() (ahya 2 :time 200 :popup-p t)))
※ 名言も可能です。 錯視文字列とか 「厂下广卞廿士十亠卉半与本二上旦上二本与半卉亠十士廿卞广下」 飛んでる顔文字とかどうでしょう?

サンプルライブラリもお得に追加

サンプルライブラリをソースに追加していますので スケジュールや時報に使ってください。
;時報に
(ahya-time-signal)

;スケジュールに
(ahya-time-signal)
(setq *ahya-time-schedule-list*
  (list
   ;year month day hour sec week event (nil は無視) 
   (list 2010 08 10 2 35 nil "おは")
   (list 2010 08 10 2 35 6   "こんにちは")
   (list nil nil nil 12 30 nil "てすと2")
   (list nil nil nil 9 0  1 "月曜だー")
  ))

ソース

message-scroll.l

履歴

2010/08/11 公開

関連リンク

しょぼしょぼすくりぷと xyzzy編 | ツール/ゲーム ジョークライブラリ集