[Erbot-cvs] erbot/contrib wtf.el

[Michael W. Olson]

CVSROOT:        /cvsroot/erbot
Module name:    erbot
Changes by:     Michael W. Olson <mwolson>      06/06/20 15:11:40

Modified files:
        contrib        : wtf.el 

Log message:
        Revision: address@hidden/erbot--cvs--0--patch-25
        
        wtf.el: Update to version 1.3.
        
        * contrib/wtf.el: Update to version 1.3, which resyncs with NetBSD
          upstream and improves the upcasing of initial letters.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/erbot/contrib/wtf.el?cvsroot=erbot&r1=1.15&r2=1.16

Patches:
Index: wtf.el
===================================================================
RCS file: /cvsroot/erbot/erbot/contrib/wtf.el,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- wtf.el      22 Nov 2005 22:47:02 -0000      1.15
+++ wtf.el      20 Jun 2006 15:11:40 -0000      1.16
@@ -1,8 +1,8 @@
 ;; wtf.el --- Look up conversational and computing acronyms
 
-;; Copyright (C) 2005  Michael Olson
+;; Copyright (C) 2005, 2006  Michael Olson
 
-;; Version: 1.2
+;; Version: 1.3
 
 ;; This file is not part of GNU Emacs.
 
@@ -46,8 +46,8 @@
 ;; public domain.
 
 (defvar wtf-alist
-  '(;; $NetBSD: acronyms,v 1.148 2005/09/20 13:22:04 jschauma Exp $
-    ("AFAIC" . "As Far As I'm Concerned")
+  '(;; $NetBSD: acronyms,v 1.156 2006/05/15 14:11:07 christos Exp $
+    ("AFAIC" . "as far as i'm concerned")
     ("AFAICR" . "as far as i can recall")
     ("AFAICT" . "as far as i can tell")
     ("AFAIK" . "as far as i know")
@@ -88,15 +88,16 @@
     ("BTDT" . "been there, done that")
     ("BTTH" . "boot to the head")
     ("BTW" . "by the way")
-    ("CMIIW" . "Correct Me If I'm Wrong")
+    ("CMIIW" . "correct me if i'm wrong")
     ("CNP" . "continued [in my] next post")
     ("COB" . "close of business [day]")
     ("COTS" . "commercial off-the-shelf")
     ("CYA" . "see you around")
     ("D/L" . "download")
+    ("DGAS" . "don't give a shit")
     ("DIY" . "do it yourself")
-    ("DKDC" . "Don't Know, Don't Care")
-    ("DSTM" . "Don't Shoot The Messenger")
+    ("DKDC" . "don't know, don't care")
+    ("DSTM" . "don't shoot the messenger")
     ("DTRT" . "do the right thing")
     ("DTWT" . "do the wrong thing")
     ("DWIM" . "do what i mean")
@@ -105,11 +106,12 @@
     ("EOB" . "end of business [day]")
     ("EOD" . "end of discussion")
     ("EOL" . "end of life")
+    ("ETA" . "estimated time of arrival")
     ("ETLA" . "extended three letter acronym")
     ("EWAG" . "experienced wild-ass guess")
     ("FAQ" . "frequently asked question")
     ("FCFS" . "first come first served")
-    ("FIGJAM" . "Fuck I'm Good, Just Ask Me")
+    ("FIGJAM" . "fuck i'm good, just ask me")
     ("FIIK" . "fuck[ed] if i know")
     ("FIIR" . "fuck[ed] if i remember")
     ("FM" . "fucking magic")
@@ -120,7 +122,7 @@
     ("FTFM" . "fuck the fuckin' manual!")
     ("FUBAR" . "fucked up beyond all recognition")
     ("FUD" . "fear, uncertainty and doubt")
-    ("FWIW" . "For What It's Worth")
+    ("FWIW" . "for what it's worth")
     ("FYI" . "for your information")
     ("G" . "grin")
     ("G/C" . "garbage collect")
@@ -138,8 +140,8 @@
     ("IANAL" . "i am not a lawyer")
     ("IC" . "i see")
     ("ICBW" . "i could be wrong")
-    ("ICCL" . "I Couldn't Care Less")
-    ("IHAFC" . "I Haven't A Fucking Clue")
+    ("ICCL" . "i couldn't care less")
+    ("IHAFC" . "i haven't a fucking clue")
     ("IHBW" . "i have been wrong")
     ("IHNFC" . "i have no fucking clue")
     ("IIANM" . "if i am not mistaken")
@@ -171,7 +173,7 @@
     ("L8R" . "later")
     ("LART" . "luser attitude readjustment tool (ie, hammer)")
     ("LBNL" . "last but not least")
-    ("LJBF" . "Let's Just Be Friends")
+    ("LJBF" . "let's just be friends")
     ("LMAO" . "laughing my ass off")
     ("LMSO" . "laughing my socks off")
     ("LOL" . "laughing out loud")
@@ -203,6 +205,7 @@
     ("OTOH" . "on the other hand")
     ("OTT" . "over the top")
     ("OTTOMH" . "off the top of my head")
+    ("PDQ" . "pretty darn quick")
     ("PEBKAC" . "problem exists between keyboard and chair")
     ("PFO" . "please fuck off")
     ("PFY" . "pimply faced youth")
@@ -233,7 +236,7 @@
     ("RTFMP" . "read the fine/fucking man page")
     ("RTFS" . "read the fine/fucking source")
     ("SCNR" . "sorry, could not resist")
-    ("SEP" . "Someone Else's Problem")
+    ("SEP" . "someone else's problem")
     ("SFA" . "sweet fuck all")
     ("SHID" . "slaps head in disgust")
     ("SIMCA" . "sitting in my chair amused")
@@ -255,7 +258,7 @@
     ("SWAG" . "silly, wild-assed guess")
     ("SWAHBI" . "silly, wild-assed hare-brained idea")
     ("SWMBO" . "she who must be obeyed")
-    ("TANSTAAFL" . "There Ain't No Such Thing As A Free Lunch")
+    ("TANSTAAFL" . "there ain't no such thing as a free lunch")
     ("TBC" . "to be continued")
     ("TBD" . "to be {decided,determined,done}")
     ("TBOMK" . "the best of my knowledge")
@@ -264,9 +267,9 @@
     ("TIA" . "thanks in advance")
     ("TINC" . "there is no cabal")
     ("TLA" . "three letter acronym")
-    ("TLB" . "translation lookaside buffer")
     ("TMA" . "too many abbreviations")
     ("TMI" . "too much information")
+    ("TMTOWTDI" . "there's more than one way to do it")
     ("TNF" . "The NetBSD Foundation")
     ("TOEFL" . "test of english as a foreign language")
     ("TPTB" . "the powers that be")
@@ -278,14 +281,15 @@
     ("TY" . "thank you")
     ("TYVM" . "thank you very much")
     ("U/L" . "upload")
-    ("UTSL" . "Use The Source, Luke")
+    ("UTSL" . "use the source, luke")
     ("VEG" . "very evil grin")
     ("W/" . "with")
     ("W/O" . "without")
     ("WAG" . "wild-ass guess")
     ("WB" . "welcome back")
+    ("WFH" . "working from home")
     ("WFM" . "works for me")
-    ("WIBNI" . "Wouldn't It Be Nice If")
+    ("WIBNI" . "wouldn't it be nice if")
     ("WIP" . "work in progress")
     ("WOFTAM" . "waste of fucking time and money")
     ("WOMBAT" . "waste of money, brain, and time")
@@ -297,10 +301,10 @@
     ("YHBT" . "you have been trolled")
     ("YHL" . "you have lost")
     ("YKWIM" . "you know what i mean")
-    ("YMA" . "Yo Momma's Ass")
+    ("YMA" . "yo momma's ass")
     ("YMMV" . "your mileage may vary")
-    ("YW" . "You're Welcome")
-    ;; $NetBSD: acronyms.comp,v 1.61 2005/03/28 15:07:16 jschauma Exp $
+    ("YW" . "you're welcome")
+    ;; $NetBSD: acronyms.comp,v 1.69 2006/06/09 07:07:28 elad Exp $
     ("3WHS" . "three-way handshake")
     ("ABI" . "application binary interface")
     ("ACL" . "access control list")
@@ -322,6 +326,7 @@
     ("ASCII" . "american standard code for information interchange")
     ("AT" . "advanced technology")
     ("ATA" . "advanced technology attachment")
+    ("ATC" . "address translation cache")
     ("ATAPI" . "advanced technology attachment packet interface")
     ("ATM" . "asynchronous transfer mode")
     ("ATX" . "advanced technology extended")
@@ -333,6 +338,7 @@
     ("BLOB" . "binary large object")
     ("BPS" . "bits per second")
     ("BSD" . "berkeley software distribution")
+    ("BQS" . "berkeley quality software")
     ("CAD" . "computer-aided design")
     ("CAV" . "Constant Angular Velocity (as opposed to CLV)")
     ("CCD" . "charge coupled device")
@@ -376,6 +382,7 @@
     ("DNS" . "domain name system")
     ("DOS" . "denial of service")
     ("DPCM" . "differential pulse code modulation")
+    ("DPD" . "dead peer detection")
     ("DPI" . "dots per inch")
     ("DRAM" . "dynamic random access memory")
     ("DSL" . "digital subscriber line")
@@ -394,6 +401,8 @@
     ("EGP" . "exterior gateway protocol")
     ("EISA" . "extended industry standard architecture")
     ("ELF" . "executable and linking format")
+    ("EOF" . "end of file")
+    ("EOT" . "end of transmission")
     ("EPP" . "enhanced parallel port")
     ("EPRML" . "extended partial response, maximum likelihood")
     ("EPROM" . "erasable programmable read only memory")
@@ -455,6 +464,7 @@
     ("ISOC" . "internet society")
     ("ISP" . "internet service provider")
     ("JPEG" . "joint photographic experts group")
+    ("KPI" . "kernel programming interface")
     ("KVA" . "kernel virtual address")
     ("LAN" . "local area network")
     ("LBA" . "logical block addressing")
@@ -511,6 +521,7 @@
     ("PDP" . "page descriptor page")
     ("PER" . "packed encoding rules")
     ("PERL" . "practical extraction [and] report language")
+    ("PFS" . "perfect forward secrecy")
     ("PGP" . "pretty good privacy")
     ("PIC" . "programmable interrupt controller")
     ("PID" . "process id")
@@ -524,8 +535,8 @@
     ("POST" . "power on self test")
     ("POTS" . "plain old telephone system")
     ("PPP" . "point-to-point protocol")
-    ("PPPOA" . "Point-to-Point Protocol Over ATM")
-    ("PPPOE" . "Point-to-Point Protocol Over Ethernet")
+    ("PPPOA" . "point-to-point protocol over ATM")
+    ("PPPOE" . "point-to-point protocol over ethernet")
     ("PRML" . "partial response, maximum likelihood")
     ("PROM" . "programmable read only memory")
     ("PTE" . "page table entry")
@@ -537,7 +548,6 @@
     ("RAID" . "redundant array of inexpensive disks")
     ("RAM" . "random access memory")
     ("RCS" . "revision control system")
-    ("RFC" . "request for comments")
     ("RGB" . "red green blue")
     ("RIFF" . "Resource Interchange File Format")
     ("RIP" . "routing information protocol")
@@ -552,6 +562,7 @@
     ("RTT" . "round time trip")
     ("S/PDIF" . "sony/phillips digital interface")
     ("SACD" . "super audio compact disc")
+    ("SAD" . "security association database")
     ("SAM" . "serial access memory")
     ("SASI" . "Shugart Associates System Interface (predecessor to SCSI)")
     ("SATA" . "serial advanced technology attachment")
@@ -566,6 +577,7 @@
     ("SMP" . "symmetric multiprocessing")
     ("SMTP" . "simple mail transfer protocol")
     ("SNMP" . "simple network management protocol")
+    ("SPD" . "security policy database")
     ("SPD" . "serial presence detect")
     ("SRAM" . "static random access memory")
     ("SSFDC" . "solid state floppy disc card")
@@ -591,7 +603,7 @@
     ("UC" . "uncacheable")
     ("UDO" . "ultra density optical (storage)")
     ("UDP" . "user datagram protocol")
-    ("UFS" . "UNIX File System")
+    ("UFS" . "UNIX file system")
     ("UML" . "unified modeling language")
     ("UPS" . "uninterruptible power supply")
     ("URI" . "uniform resource identifier")
@@ -628,7 +640,6 @@
     ("FSF" . "Free Software Foundation")
     ("FTBFS" . "failure to build from source")
     ("GAFC" . "get a fucking clue")
-    ("GNU" . "GNU's Not UNIX")
     ("IDS" . "intrusion detection system")
     ("IYSWIM" . "if you see what i mean")
     ("NIFOC" . "naked in front of computer")
@@ -656,6 +667,16 @@
         (when (assoc (upcase term) wtf-alist)
           term)))))
 
+(defun wtf-upcase-initials (string)
+  "Do `upcase-initials' on STRING, but do not uppercase letters
+that come after quote characters."
+  (with-temp-buffer
+    (insert (upcase-initials string))
+    (goto-char (point-min))
+    (while (re-search-forward "['`]\\([[:upper:]]\\)" nil t)
+      (downcase-region (match-beginning 1) (match-end 1)))
+    (buffer-string)))
+
 (defun wtf-is (term)
   "Provide the definition for TERM.
 When called interactively, print the message \"TERM is DEF\".
@@ -676,7 +697,7 @@
             ;; only capitalize initials if the term contains no
             ;; existing capitalization
             (unless (string-match "[A-Z]" def)
-              (setq def (upcase-initials def)))))
+              (setq def (wtf-upcase-initials def)))))
         (if (interactive-p)
             (message (concat term " is " def))
           def)))))