気分を盛り上げるxyzzy

719 名前:名無しさん@お腹いっぱい。 :2006/09/11(月) 01:30:17 ID:ocHnK9vk0
    loginメッセージ?みたいな事...

    メニュー>ツールから
    fortuneをコマンドラインを非同期で実行(A)

    ...すると出ます

    これを起動時に出すには如何すれば...いいんでしょうか...
    .logonじゃないけどxyzzyが立ち上がるとき出して...

    Ben (Obi-Wan) Kenobi:
    You must learn the ways of the Force
    if you are to come with me to Alderaan.

    こんなの出してふいんき出したいです><
    一発ネタでごめんなさい。ふいんき出したいな... 

from http://www.geocities.co.jp/SiliconValley-SanJose/7225/xyzzy/1143621919.html

これを何となく見たので、色々表示するのを考えてみた。

(defvar *startup-string* "  Ben (Obi-Wan) Kenobi:You must learn the ways of the Force if you are to come with me to Alderaan.")

(popup-string *startup-string* (point))
(message "~A" (nth (random 101) *startup-string*))
(msgbox "~A" *startup-string*)
(insert *startup-string*)

しかし、こんなの起動するたびに出てきたら邪魔なんじゃないだろうか。とか思ってみたりもした。ので、終了する時に出るようにするとか。

(defun query-kill-xyzzy (&optional noquestion)
  (interactive)
  (when (and (not noquestion)
			 (yes-or-no-p "~A \n\n本当に xyzzy を終了しますか?"
						  *startup-string*))
	(kill-xyzzy)))
(define-key ctl-x-map #\C-c 'query-kill-xyzzy)

■追記
ついでに作った、ランダムで表示する遊び機能。もうちょっと気の利いたガンダム名言集とかが表示された方が楽しいような気はするけど。

;(popup-string (nth (random 101) *100-motivational-quotes*) (point))
(defvar *100-motivational-quotes*
  (list
   "  1. 人は何を繰り返すかで決まる。優秀とは、ゆえに行動ではなく習慣なのである - Aristotle"
   "   2. 最良の脱出法(way out)は、いつだって正面突破(way through)。- Robert Frost"
   "   3. 鉄を打つのに熱くなるのを待つな。打って熱くしろ。 - William B. Sprague"
   "   4. 偉大な魂たちはいつだって凡庸な精神による暴力的な抵抗に出会って来た。- Albert Einstein"
   "   5. 君が出来ると思ったことも、出来ないと思ったことも、全て正しい。- Henry Ford"
   "   6. あなたが何になるかは、あなたが何の上に棲むかで決まるのよ。- Oprah Winfrey"
   "   7. 選手生活を通して、俺は9000ショット外した。300試合負けた。26回は、俺に仲間が託した勝負ショットを外した。俺は失敗して失敗して失敗し続けて来た。それが、俺が成功した理由。- Michael Jordan"
   "   8. 君が見たい世界は、君が変わることで見えるようになる[訳の自信薄し;間の手希望]。- Mahatma Gandhi"
   "   9. 君が目的を果たして得たものは、君が目的を果たしたことにより何者になったかに比べれば大したことはない。- Goethe"
   "  10. 君の人生で君が欲しいものは必ず得られる、君が充分な他者に、彼らが欲しているものを与え続ければ。- Zig Ziglar"
   "  11. 君がしたことは、いつかすべて些細なことになる。些細でないのは、それを君がやったということだ。- Mahatma Gandhi"
   "  12. 欲求こそが、全ての達成の出発点である。希望でもなく、願望でもなく。身を切るような、他を全て調節するような欲求こそが。- Napoleon Hill"
   "  13. 失敗は成功に欠かせぬ調味料。- Truman Capote"
   "  14. 行動なき展望は白昼夢。展望なき行動は悪夢。- 日本のことわざ      [原典希望:\"Vision without action is daydream. Action without vision is nightmare\"]"
   "  15. どんな場合でも、最良なのは正しいことをやること。次善なのは間違ったことをやること。最悪なのは何もしないこと。- Theodore Roosevelt"
   "  16. ものごとが悪くなると言い続けていれば、預言者になれるかもね。- Isaac B. Singer"
   "  17. 成功は普通のことを普通以上にきちんとやることで成り立っている。- 不明"
   "  18. 進み続ければいつかつまづく。あなたもそれを知っている。でも座ったままでつまづいたことがある一を私は知らない。- Charles F. Kettering (エンジニア/発明家)"
   "  19. 今から二十年後には、あなたは何をやらなかったかを何をやったかよりも後悔するようになる。だから舫を説いて、港を出よう。貿易風を捕まえよう。探求しよう。夢を見よう。発見しよう。- Mark Twain"
   "  20. 敗者が見ているのは、失敗の代償。勝者が見ているのは、成功の報酬。- 不明"
   "  21. 目標を定めたおかげで成功した人々もいる。心証を定めたおかげで成功した人々もいる。- 不明"
   "  22. 経験とは、君が求めたものが得られたなかったときに君が得る何か。- Dan Stanford"
   "  23. 前例を作ること、それは影響力の主成分ではない。唯一の成分なのだ。- Albert Einstein"
   "  24. 幸福な人というのは、特定の状況下にある人ではなく、特定の態度を取る人のことである。- Hugh Downs"
   "  25. いつか振り返って笑い飛ばすことが出来るなら、今笑い飛ばすことだって無理じゃない。- Marie Osmond"
   "  26. 幸福は旅路。旅の終わりにあらず。- Roy Goodman"
   "  27. 記憶力を確かめたかったら、一年前の今日何を心配してたか思い出してごらん。- E. Joseph Cossman"
   "  28. 行く手に何が潜んでいるかも、何が立ちふさがるかも大したことではない。自分の中に何が潜んでいるかに比べたら。- Ralph Waldo Emerson"
   "  29. 人の叡智は、人の希望で推し量られる。- Ralph Waldo Emerson"
   "  30. 自分を励ます一番のやり方は、人を励ますこと。- Mark Twain"
   "  31. 年を取るというのは、体より心の問題だ。気にならなければ身にならない - Mark Twain      [原文:Age is an issue of mind over matter. If you don't mind, it doesn't matter.]"
   "  32. 自分が他者の側に立っているのがわかったら、立ち止まって考え直す時期だ。- Mark Twain"
   "  33. 君の野望を矮小化する者どもを近づけるな。小人はいつだってそうするものだ。真に偉大なものは、君自身も偉大になれるという気持ちを抱かせる。- Mark Twain"
   "  34. 最も確実に失敗する方法は、成功を確信すること。- Richard B. Sheridan"
   "  35. 第一歩を信じよ。階段全てを見る必要はない。とにかく最初の一歩を踏み出せ。- Dr. Martin Luther King Jr."
   "  36. やらないのなら受け入れろ。- 詠み人知らず"
   "  37. 凄いアイディアの多くは実行されない。凄い実行者の多くにはアイディアがない。どちらもないのは価値がない。- Tim Blixseth"
   "  38. 世界は君が思っているよりずっと柔らかい。世界は君が鍛冶となってそれを形にしてもらうのを待っている。- Bono"
   "  39. 時には君自身が、他者が君にくれればいいなと思っているものを君自身に贈らねばならない。- Dr Phil"
   "  40. 動機とは内なる炎。誰かが君の下でたき火をすれば、それはすぐさま燃え広がる。- Stephen R. Covey"
   "  41. 何か出来ると思い始めた人々は見ちがえる。自分自身を信じることが、成功の第一歩。- Norman Vincent Peale"
   "  42. 世界の全てが敵にまわったのなら、ひるがえって世界を率いよう。- 不明"
   "  43. 敗北は一時的な状況。諦めがそれを永遠のものとする。- Marilyn vos Savant (作家/コラムニスト)"
   "  44. 新しいアイディアが怖いなんて信じられない。私が怖いのは古い方だ。- John Cage"
   "  45. [あれ? 23.とだぶっているのででっちあげ] - 繰り返されてもそうと気がつかない、それが名言 - 弾"
   "  46. 普通と普通以上の違いは、わずかな「以上」- 不明"
   "  47. 未来を予測する一番の方法は、それを創ること。 - 不明"
   "  48. やりたいことをやるなんて誰にだって出来る。本当の成功を遂げた者は、やりたくもなかったことをやってきた。- Dr. Phil"
   "  49. 人生には主に二つの選択肢がある。状況をありのまま受け入れるか、責任を受け入れて状況を変えるか。- Dr. Denis Waitley"
   "  50. 成功とは、情熱を失わずに失敗から失敗へ至る能力のことである。- Sir Winston Churchill"
   "  51. 成功は行動と結びついているようだ。成功者たちは行動しつづける。失敗しつづけるがとにかくやめない。- Conrad Hilton"
   "  52. 態度は伝染する。伝染させたくなるような態度を取ろう。- 不明"
   "  53. 出来ないことを出来ることに影響させないようにしよう。- John Wooden"
   "  54. 成功の法則は二つしかない。一つ。君が本当に何をしたいのか見つけること。二つ、それをやること。 - Mario Cuomo"
   "  55. いつかは、勝てると思った者が勝者となる。- Richard Bach"
   "  56. ビジョンは雷のように訪れるものではない。むしろゆっくりと結晶していく様に似ている。それはいつか美しきダイアモンドのように、自他ともに価値あるものとなっていく。- Dr. Michael Norwood"
   "  57. 成功は心のありさま。成功が欲しかったら、成功を思い描きはじめよ。- Dr. Joyce Brothers"
   "  58. 挑戦しては失敗する。それでもまた挑戦しよう。今度はもっと上手に失敗するように。- Samuel Beckett"
   "  59. 「外れ」は人生のメニューの一部。どのコースを選んでも必ず付いてきたわ。- Rosalind Russell"
   "  60. 変革のきっかけとなって率いるか
変革を受け入れて生き残るか
変革を拒んで死ぬか
- Ray Norda (Novell会長)"
   "  61. 勝者は敗者より多く敗北する。負け続けても挑戦する君はそれでいい。君は正しい道を走っている。 - Matthew Keith Groves"
   "  62. アイディアが塵になるか魔法になるかは、それをどう撫でるかの才能にかかっている。- Bill Bernbach"
   "  63. 邪魔な石が飛び石だったりする。- Prescott"
   "  64. 人生とは「うまく行くかどうか試してみること」。- Ray Bradbury"
   "  65. 昨日の失敗を気にしていたら、今日の成功が少なくなってしまう。 - 無名"
   "  66. 人生の一割は何が起きたかで、九割はそれらへの反応である。- Dennis P. Kimbro"
   "  67. 我々は全て発明家だ。それぞれが発見への旅路にあり、海図は一つとて同じものがない。世界は全ての可能性へと通じる門である。- Ralph Waldo Emerson"
   "  68. 知ることは充分ではない。使ってみなければならない。意思は充分ではない。行わなければならない。- Johann Wolfgang von Goethe"
   "  69. スタイルに関しては、流れにまかせて泳げばよい。原則に関しては、石のような立っていなければならない。- Thomas Jefferson"
   "  70. 私は考え続ける。何月も、何年も。99回は、誤った結論にたどり着く。正しい結論は100番目。- Albert Einstein"
   "  71. 偉大な意思の前には、甚大な困難はありえない。- Machiavelli"
   "  72. 強さは肉体の能力にあらず。強さは不屈の意思なり。- Mahatma Gandhi"
   "  73. あなたが何者かは、あなたが一日中に何を考えているかで決まる。- Dr. Robert Schuller"
   "  74. あなたがあまりに大声で叫んでいる言葉は、私には聞き取ることが出来ない。- Ralph Waldo Emerson"
   "  75. 成功は人生の到達点で測られるべきものではない。それを推し量るのは、成功の過程で乗り越えた障碍である。- Booker T. Washington"
   "  76. 才能は孤独に培われ、人格は世界に揉まれて磨かれる。- Johann Wolfgang von Goethe"
   "  77. 批判が嫌い。じゃあ何もするな。何もいうな。何者にもなるな。- Elbert Hubbard"
   "  78. 夢を叶えたかったら、最初にやらなきゃならないのは目覚めること。- J.M. Power"
   "  79. 一途に毎日八時間働き続ければ、いつか君は上司となって一途に毎日十二時間働き続けるようになる。 - Robert Frost"
   "  80. 何がおころうと、それが今日どんなにひどいことに思えようと、人生は続くし、明日はもっとよくなっていることを私は学んだ。- Maya Angelou"
   "  81. 叡智の秘訣は、何を見逃すかを知っておくこと。- William James"
   "  82. 「人生はつらい」と誰かがもらしているのを聞くと、こう尋ねたくなる誘惑にかられる。「何と比べて?」- Sydney Harris"
   "  83. 人生に心をくじけさせてはいけない。誰だって今そこにいるのは、以前いたところからはるばるやってきたおかげなのだから。- Richard L. Evans"
   "  84. 人生の全ては、次の三文字に凝縮できる。「つづく」。- Robert Frost"
   "  85. 表情に出るほど怖い経験のたびに、あなたは強くなり、勇気と自信を得る。- Eleanor Roosevelt"
   "  86. ただ生きていることそのものが、時には勇気ある行動となりうる - Seneca"
   "  87. 最初にやるべきこと最初にやっていれば、二番目以降はどうでもいい。- Peter Drucker."
   "  88. 探し物が確実に見つかる人は、あら探しをする人だけ。- Fosterの法則"
   "  89. 失敗は苦くない。飲み込みさえしなければ。- Joe Clark"
   "  90. 私は楽観論者だ。それ以外の属性は、対して役に立たないようだ。- Winston Churchill"
   "  91. 楽観的なもの(anything)なら、どんな悲観的な考え(thinking)に勝る。- Elbert Hubbard"
   "  92. 世間のどの意見に耳を傾けないかが、その人の人格の発露なのではないか。- Ralph Waldo Emerson"
   "  93. 歌いたい者は、いつでも歌を見つける。- スウェーデンのことわざ"
   "  94. 地獄に向かっているなら、突き進め。- Winston Churchill"
   "  95. 太陽は我々に光を与え、温めてくれるが、なぜそうしてくれるかを問う者は誰もいない。なのに悪事や苦痛や飢餓や蚊や取るに足りない人々といったものに対しては、我々は理由を問わずにいられない。- Ralph Waldo Emerson"
   "  96. 人生は難破だ。しかし救命筏の中で歌い続けることをお忘れなく。- Voltaire"
   "  97. 継続する習慣が嫌だ。魂の底では、私は辛苦や疾病といった、不完全なものに関して感謝している。こうしたことが百の扉となって、継続する習慣から逃げ出すことができるのだから。- Friedrich Nietzsche, The Gay Science (悦ばしき知識)"
   "  98. 逆境にまさる教育なし。- Disraeli"
   "  99. 「なぜ生きるか」を持つ者は、およそどんな「どうやって生きるか」にも耐えられる。- Friedrich Nietzsche"
   " 100. 逆境が自分を自身と対峙させる - Author Unknown"
   ) "http://blog.livedoor.jp/dankogai/archives/50968927.html|"
  )

(defun query-kill-xyzzy (&optional noquestion)
  (interactive)
  (when (and (not noquestion)
			 (yes-or-no-p "~A \n\n本当に xyzzy を終了しますか?"
						  (nth (random 101) *100-motivational-quotes*)))
	(kill-xyzzy)))
(define-key ctl-x-map #\C-c 'query-kill-xyzzy)