#######
#
# E-scripts on 0x0.
#
# 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.
# An introduction to eev can be found here:
#
#   (find-eev-quick-intro)
#   http://angg.twu.net/eev-intros/find-eev-quick-intro.html
#
# 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/0x0.e>
#           or at <http://angg.twu.net/e/0x0.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/>.
#
#######



# «.0x0-upload»	(to "0x0-upload")



# (find-es "emacs" "0x0")
# (find-fline "~/usrc/emacs-0x0/")
# (find-es "git" "when-renamed")

# (find-efunctiondescr '0x0-upload-kill-ring)
# (find-efunction      '0x0-upload-kill-ring)
# (find-efunctiondescr 'current-kill)
# (find-efunction      'current-kill)
# (find-efunctiondescr 'ee-0x0-upload-region)
# (find-efunction      'ee-0x0-upload-region)




#####
#
# When did 0x0-upload disappear?
# 2021oct22
#
#####

# «0x0-upload»  (to ".0x0-upload")


https://gitlab.com/willvaughn/emacs-0x0/-/commits/main/0x0.el
https://gitlab.com/willvaughn/emacs-0x0/-/commits/main/0x0.el

;; Based on: (find-efunction '0x0-upload-kill-ring)

  (0x0-upload b e '0x0)


(defun ee-0x0-upload-quick-hack (server string)
  (with-temp-buffer
    (insert string)
    (let* ((file-name (or (buffer-file-name) (buffer-name) "kill-ring.txt"))
           (bounds (0x0--make-bounds))
           (size (0x0--bounds-size bounds))
           (resp (0x0--send server file-name bounds)))
      (0x0--handle-resp server size resp))))




0x0-upload-kill-ring



#  Local Variables:
#  coding:               utf-8-unix
#  End: