#######
#
# This file:
#   http://angg.twu.net/rcirc/README.html
#   http://angg.twu.net/rcirc/README
#           (find-angg "rcirc/README")
# Author: Eduardo Ochs <eduardoochs@gmail.com>
#
######

# «.save-rcircs-by-date»	(to "save-rcircs-by-date")
# «.ee-rcirc-connected-bug»	(to "ee-rcirc-connected-bug")







#####
#
# Save two revisions of rcirc "by date" instead of "by hash"
# 2021oct17
#
#####

# «save-rcircs-by-date»  (to ".save-rcircs-by-date")
# See: (find-es "rcirc" "revisions-in-emacs28")
# (find-angg "rcirc/")
# http://angg.twu.net/rcirc/
# http://angg.twu.net/rcirc/rcirc-20210728.el 0034067f47
# http://angg.twu.net/rcirc/rcirc-20210905.el 608b2ec9be

 (eepitch-shell)
 (eepitch-kill)
 (eepitch-shell)
export PAGER=cat
cd ~/bigsrc/emacs28/
git show a1789fd67b:lisp/net/rcirc.el | head -n 100

cd ~/bigsrc/emacs28
git show -s 0034067f47
git show -s 608b2ec9be
git-show-my 0034067f47
git-show-my 608b2ec9be
git show    0034067f47:lisp/net/rcirc.el > ~/rcirc/rcirc-20210728.el
git show    608b2ec9be:lisp/net/rcirc.el > ~/rcirc/rcirc-20210905.el

# (find-fline "~/rcirc/rcirc-20210728.el")
# (find-fline "~/rcirc/rcirc-20210905.el")
# (find-tkdiff "~/rcirc/rcirc-20210728.el" "~/rcirc/rcirc-20210905.el")





#####
#
# ee-rcirc-connected works in 20210728, doesn't work in 20210905
# 2021oct17
#
#####

# «ee-rcirc-connected-bug»  (to ".ee-rcirc-connected-bug")
# See: (find-rcirc-intro "1. The example that I use in workshops")
#      (find-eev "eev-rcirc.el" "low-level")

;; Short description on the problem...
;; Here are three functions from eev-rcirc.el.
;; They worked until 20210728, but from 20210905 onwards calling
;;
;;   (ee-rcirc-connected "irc.libera.chat")
;;
;; when I am connected to liberachat yields this error:
;;
;;   rcirc-buffer-process: Wrong type argument: bufferp, "*irc.libera.chat*"

(defun ee-rcirc-buffer (server &optional channel)
  "Return the name of an rcirc server buffer, or channel, or chat buffer."
  (if channel (format "%s@%s" channel server) (format "*%s*" server)))

(defun ee-rcirc-process (server)
  "If we are connected to SERVER then return its network connection process.
SERVER must be the name of an irc server, like \"irc.freenode.net\"."
  (get-buffer-process (ee-rcirc-buffer server)))

(defun ee-rcirc-connected (server)
  "Return non-nil if we are already connected to irc server SERVER.
SERVER must be the name of an irc server, like \"irc.freenode.net\"."
  (and (get-buffer           (ee-rcirc-buffer server))
       (rcirc-buffer-process (ee-rcirc-buffer server))))










# (find-fline "~/rcirc/rcirc-20210728.el" "(defun rcirc-buffer-process")
# (find-fline "~/rcirc/rcirc-20210905.el" "(defun rcirc-buffer-process")
# (find-efunctiondescr   'buffer-local-value)
# (find-elnode "Index" "* buffer-local-value:")