Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
#######
#
# E-scripts on rcirc.
#
# Note 1: use the eev command (defined in eev.el) and the
# ee alias (in my .zshrc) to execute parts of this file.
# Executing this file as a whole makes no sense.
#
# Note 2: be VERY careful and make sure you understand what
# you're doing.
#
# Note 3: If you use a shell other than zsh things like |&
# and the for loops may not work.
#
# Note 4: I always run as root.
#
# Note 5: some parts are too old and don't work anymore. Some
# never worked.
#
# Note 6: the definitions for the find-xxxfile commands are on my
# .emacs.
#
# Note 7: if you see a strange command check my .zshrc -- it may
# be defined there as a function or an alias.
#
# Note 8: the sections without dates are always older than the
# sections with dates.
#
# This file is at <http://angg.twu.net/e/rcirc.e>
#           or at <http://angg.twu.net/e/rcirc.e.html>.
#        See also <http://angg.twu.net/emacs.html>,
#                 <http://angg.twu.net/.emacs[.html]>,
#                 <http://angg.twu.net/.zshrc[.html]>,
#                 <http://angg.twu.net/escripts.html>,
#             and <http://angg.twu.net/>.
#
#######




# «.eepitch-simple»	(to "eepitch-simple")
# «.eepitch-full»	(to "eepitch-full")
# «.wrapping»		(to "wrapping")
# «.low-priority»	(to "low-priority")

# (find-esgrep "grep -nH -e rcirc *.e")
# (find-efile "net/rcirc.el")
# (find-efile "net/rcirc.el" "rcirc-fill-flag")




#####
#
# An eepitch script to connect to freenode (simple version)
# 2011nov25
#
#####

# «eepitch-simple»  (to ".eepitch-simple")
# (find-eev "eepitch.readme" "rcirc")





#####
#
# An eepitch script to connect to freenode (full version)
# 2011nov25
#
#####

# «eepitch-full»  (to ".eepitch-full")
# (find-eev "eepitch.readme" "rcirc")

* (rcirc-defs)
* (eepitch-freenode)
/join #eev
* (eepitch '(find-ebuffer "#eev@irc.freenode.net"))

* (require 'rcirc)
* (setq rcirc-authinfo '(("freenode" nickserv "edrx" "Snobol4")))
* (rcirc-track-minor-mode 1)
* (setq rcirc-read-only-flag nil)
* (setq rcirc-time-format "")
* (setq                      rcirc-prompt "(%n) ")
* (set-face-foreground      'rcirc-prompt "sienna")
* (make-face                'rcirc-mode-line-nick)
* (set-face-bold-p          'rcirc-mode-line-nick nil)
* (set-face-foreground      'rcirc-mode-line-nick "sienna")
* (make-face                'rcirc-track-nick)
* (set-face-inverse-video-p 'rcirc-track-nick nil)
* (set-face-foreground      'rcirc-track-nick "sienna")
* (global-set-key [f2]      'rcirc-next-active-buffer)
*
* (eepitch-freenode)
/msg NickServ identify Snobol4
* (eepitch '(find-ebuffer "NickServ@irc.freenode.net"))
/join #eev
* (eepitch '(find-ebuffer     "#eev@irc.freenode.net"))
/join #org-mode
/join #blocky
/join #blocky




;; (setq rcirc-time-format "")
;; (find-ecolors)
;; (set-face-background 'rcirc-prompt-face bg)
;; (find-efunction 'rcirc)
;; (find-node "(rcirc)Top")
;; (find-efile "net/rcirc.el")




#####
#
# Line wrapping
# 2011nov27
#
#####

# «wrapping»  (to ".wrapping")

<edrx> (describe-variable 'rcirc-fill-flag)
<edrx> (make-local-variable 'rcirc-fill-flag)
<edrx> (setq rcirc-fill-flag nil)
<edrx> my test: aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa
       aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa
       aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa aaaa
       aaaa aaaa aaaa aaaa aaaa
*** sake JOIN
*** sake QUIT Remote host closed the connection
<edrx> I was going to ask someone else to also send a very
       long line to the channel to test, but my test failed
       8-( - rcirc ran a "fill-paragraph" in what I sent
       above... what is the right way to disable filling on
       just one channel?

# (find-fline "~/LOGS/2011nov30.eev" "larger fill-column")



#####
#
# Low-priority channels
# 2013feb11
#
#####

# «low-priority» (to ".low-priority")
# (find-rcircnode "Channels")
# (find-rcircnode "Channels" "low-priority channel")
# (find-efunction 'rcirc-toggle-low-priority)





# (find-elnode "Header Lines")
# (find-efile "net/rcirc.el")
# (find-efile "net/rcirc.el" "header-line-format")










#  Local Variables:
#  coding:               raw-text-unix
#  ee-delimiter-hash:    "\n#*\n"
#  ee-delimiter-percent: "\n%*\n"
#  ee-anchor-format:     "«%s»"
#  End: