-- This file:
--   http://angg.twu.net/LUA/eev-upload-files.lua.html
--   http://angg.twu.net/LUA/eev-upload-files.lua
--           (find-angg "LUA/eev-upload-files.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
-- Version: 2022feb25
--
-- (defun e () (interactive) (find-angg "LUA/eev-upload-files.lua"))

-- «.eev-current»	(to "eev-current")


--                                                      _   
--   ___  _____   __      ___ _   _ _ __ _ __ ___ _ __ | |_ 
--  / _ \/ _ \ \ / /____ / __| | | | '__| '__/ _ \ '_ \| __|
-- |  __/  __/\ V /_____| (__| |_| | |  | | |  __/ | | | |_ 
--  \___|\___| \_/       \___|\__,_|_|  |_|  \___|_| |_|\__|
--                                                          
-- «eev-current»  (to ".eev-current")

bigstr = [==[
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
makeR
cd ~/eev-current/
cd ~/TH/R/eev-current/
Scp-np [ FNAME] $TWUP/eev-current/
Scp-np [ FNAME.html] $TWUP/eev-current/

* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
echo $EEVDIR
cd   $EEVDIR
[mv -fv FNAME FNAME.old
wget http://angg.twu.net/eev-current/FNAME
]
[# (load "FNAME")
][# (find-eev "FNAME")
]
]==]

fnames = split "eev-kla.el eev-hlinks.el"

expandfnames1 = function (innerstr)
    return mapconcat(function (fname)
          return (innerstr:gsub("FNAME", fname))
        end, fnames, "")
  end
expandfnames = function (bigstr)
    return (bigstr:gsub("%[(.-)%]", expandfnames1))
  end

--[[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "eev-upload-files.lua"
fnames = split "eev-kla.el eev-hlinks.el"
fnames = split "eev-tlinks.el"
fnames = split "eev-kla.el eev-hlinks.el eev-tlinks.el .dir-locals.el"
= expandfnames(bigstr)

--]]


--                       _       _                 
--   ___  _____   __    (_)_ __ | |_ _ __ ___  ___ 
--  / _ \/ _ \ \ / /____| | '_ \| __| '__/ _ \/ __|
-- |  __/  __/\ V /_____| | | | | |_| | | (_) \__ \
--  \___|\___| \_/      |_|_| |_|\__|_|  \___/|___/
--                                                 
-- (find-anggfile "eev-intros/README" ";; end of the progn\n")
-- (find-blogme3 "sexp.lua" "find-xxx-intros" "ee_intro_stems =")

ee_intro_stems = [[
    anchors audiovideo bounded brxxx channels code-c-d defun eejump
    eepitch eev eev-quick eev-install eev-exercises elisp emacs
    emacs-keys escripts eval git here-links lexical links-conv links
    multiwindow org pdf-like prepared psne rcirc refining saving-links
    templates three-main-keys videos video-links windows-beginner wrap
  ]]

bigstr_updateintros = [==[
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
makeR
cd ~/TH/R/eev-intros/
Scp-np [ find-FNAME-intro.html] $TWUP/eev-intros/
Scp-np [ find-FNAME-intro]      $TWUP/eev-intros/

]==]

--[[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "eev-upload-files.lua"
fnames = split(ee_intro_stems)
= expandfnames(bigstr_updateintros)

--]]




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