From: friedman@gnu.ai.mit.edu (Noah Friedman)
Newsgroups: alt.fan.warlord,alt.religion.kibology
Subject: Re: What new innovation, software or products do you want to see?
Date: 5 Jan 93 05:48:26
Organization: Free Software Foundation, 675 Mass Ave. Cambridge, MA 02139
NNTP-Posting-Host: nutrimat.gnu.ai.mit.edu
In-reply-to: ovr@lk-hp-1.hut.fi's message of 5 Jan 1993 01:01:27 GMT

In article <1iaml7INN4e4@sauna.cs.hut.fi> ovr@lk-hp-1.hut.fi (Otto-Ville Ronkainen) writes:
>In article <sehari.726189633@du139-211.cc.iastate.edu> sehari@iastate.edu (Babak Sehari) writes:
>>What type of new innovation, software or products do you want to be
>>introduced to the market place.  No answer is stupid....
>
>M-x warlord (and M-x bait, for good measure) to emacs?

Ask, and ye shall regret it.  

This just generates bait (M-x warlord will be considerably harder to
write).  So far it has ASCII borders made of asterisks, randomly-generated
phone and fax numbers (labelled), email address (labelled), an ASCII sword
(no it's NOT a katana, ya midwestern computer geek), and a couple of
randomly-generated quotes including one attributed to the author.  But
wait!  Just in case the reader doesn't notice the sig the first time, it's
also included twice.  NOW how much would you pay?

An example of the output produced by this program is included at the end
of this message (where it belongs). 

;;; warlord-bait.el -- annoy denizens of alt.fan.warlord
;;;
;;; Copywrong 1993 Noah Friedman <friedman@prep.ai.mit.edu>.  All rights reversed.
;;;
;;; This program is free; you can redistribute it and/or modify it under the
;;; terms of the GSU General Public Virus as published by the Free Signature
;;; Foundation.
;;;
;;; This program is distributed in the hope that it will be entertaining,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; WARLORDABILITY or FITNESS FOR A PARTICULAR NEWSGROUP.  See the GSU
;;; General Public Virus for more details.

(defun warlord-bait ()
  "Generate a .signature with various warlordable qualities at the end of
  the current buffer.  Annoy your friends!  Annoy alt.fan.warlord!

  (Note: this function will not work as-is with GNU Emacs 19.)"
  (interactive)
  (or (fboundp 'yow) (load "yow" t t))
  (or (fboundp 'flame) (load "flame" t t))
  (save-excursion
    (goto-char (point-max))
    (let ((point-sig-begin (point)))
      (insert "\n--\n\n" 
              (format "%-52s Phone: %s\n" 
                      (user-full-name)
                      (concat "(" (% (random) 10) (% (random) 10) (% (random) 10) ") "
                              (% (random) 10) (% (random) 10) (% (random) 10) "-" 
                              (% (random) 10) (% (random) 10) (% (random) 10) (% (random) 10)))
              (format "Email: %-47s FAX: %s\n" 
                      (concat (user-login-name) "@" (system-name))
                      (concat "(" (% (random) 10) (% (random) 10) (% (random) 10) ") "
                              (% (random) 10) (% (random) 10) (% (random) 10) "-" 
                              (% (random) 10) (% (random) 10) (% (random) 10) (% (random) 10)))
              "
                _-*
               /#/
 _-___________/#/_______________________________________________________.
<*|############<       >------------------------------------------------->
 ~-~~~~~~~~~~~\\#\\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
               \\#\\
                ~-*"
              "\n\n\""
              (yow) "\"\n		--Zippy\n\n\"")
      (let ((beg (point))
            (fill-column 70))
        (insert (sentence-ify (string-ify (append-suffixes-hack (flatten (*flame))))))
        (fill-region-as-paragraph beg (point)))
      (forward-line -1)
      (end-of-line)
      (insert "\"\n		--Me")
      (goto-char point-sig-begin)
      (forward-line 2)
      (insert (make-string 80 ?*) "\n")
      (forward-line -1)
      (let (column-reached)
        (while (= 0 (forward-line 1))
          (insert "*  ")
          (setq column-reached (move-to-column 80))
          (or (>= column-reached 80)
              (insert (make-string (- 79 column-reached) ?\ )))
          (insert "*")))
      (insert "\n" (make-string 80 ?*) "     \n")
      (insert (buffer-substring (1+ point-sig-begin) (point-max))))))

;; eof

----
********************************************************************************
*                                                                              *
*  Noah Friedman                                        Phone: (299) 271-9467  *
*  Email: friedman@nutrimat.gnu.ai.mit.edu                FAX: (473) 579-4103  *
*                                                                              *
*                  _-*                                                         *
*                 /#/                                                          *
*   _-___________/#/_______________________________________________________.   *
*  <*|############<       >------------------------------------------------->  *
*   ~-~~~~~~~~~~~\#\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'   *
*                 \#\                                                          *
*                  ~-*                                                         *
*                                                                              *
*  "I want the presidency so bad I can already taste the hors d'oeuvres."      *
*  		--Zippy                                                        *
*                                                                              *
*  "Let me tell you something, you wanker, Karl Marx was a lesbian."           *
*  		--Me                                                           *
*                                                                              *
********************************************************************************     
----
********************************************************************************
*                                                                              *
*  Noah Friedman                                        Phone: (299) 271-9467  *
*  Email: friedman@nutrimat.gnu.ai.mit.edu                FAX: (473) 579-4103  *
*                                                                              *
*                  _-*                                                         *
*                 /#/                                                          *
*   _-___________/#/_______________________________________________________.   *
*  <*|############<       >------------------------------------------------->  *
*   ~-~~~~~~~~~~~\#\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'   *
*                 \#\                                                          *
*                  ~-*                                                         *
*                                                                              *
*  "I want the presidency so bad I can already taste the hors d'oeuvres."      *
*  		--Zippy                                                        *
*                                                                              *
*  "Let me tell you something, you wanker, Karl Marx was a lesbian."           *
*  		--Me                                                           *
*                                                                              *
********************************************************************************     
Newsgroups: alt.fan.warlord