-- This file:
--   http://anggtwu.net/LUA/PdfData1.lua.html
--   http://anggtwu.net/LUA/PdfData1.lua
--          (find-angg "LUA/PdfData1.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- See: (find-es "ps" "pdftk")
--
-- «.daniela-pdftks»	(to "daniela-pdftks")

bmprint = function ()
    local s = (" "):rep(level)
    local sexp = format(";; (find-%spage %3s%s%q)", c, page, s, title)
    print(sexp)
  end

BookmarkTitle = function (str) title = str end
BookmarkLevel = function (str) level = str+0 end
BookmarkPageNumber = function (str) page = str; bmprint() end

doall = function ()
    for _,li in ipairs(splitlines(bigstr)) do
      local a,b = li:match("^([^:]+): (.*)")
      if a and _G[a] then _G[a](b) end
    end
  end


--[[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "PdfData1.lua"
bigstr = ee_readfile "/tmp/p.data"
c = "proc21"
doall()

-- (find-fline "~/DANIELA/2025/")

(code-pdf-page  "proc21" "/tmp/p.pdf")
(code-pdf-text8 "proc21" "/tmp/p.pdf")
;; (find-proc21page)
;; (find-proc21text)

--]]




--[[
-- «daniela-pdftks»  (to ".daniela-pdftks")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
# (find-fline "~/DANIELA/2025/" "00294216120228190001.pdf")
mkdir /tmp/daniela/
pdf      () { echo ~/DANIELA/2025/$1.pdf; }
dumpdata () { pdftk $(pdf $1) dump_data_utf8 | tee /tmp/daniela/$2 | wc; }
dumpdata 00294216120228190001 61
dumpdata 00424436020208190001 60
dumpdata 01457907520218190001 75
dumpdata 02234998920218190001 89

codes () {
  echo "(code-pdf-page  \"proc$2\" \"~/DANIELA/2025/$1.pdf\")"
  echo "(code-pdf-text8 \"proc$2\" \"~/DANIELA/2025/$1.pdf\")"
}
codes 00294216120228190001 61
codes 00424436020208190001 60
codes 01457907520218190001 75
codes 02234998920218190001 89

* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "PdfData1.lua"

dodaniela = function (stem,dd)
    datafname = "/tmp/daniela/"..dd
    c = "proc"..dd
    linkto = format(';; (find-angg ".emacs.papers" "%s")', c)
    print(linkto)
    bigstr = ee_readfile(datafname)
    doall()
  end

dodaniela("00294216120228190001", "61")
dodaniela("00424436020208190001", "60")
dodaniela("01457907520218190001", "75")
dodaniela("02234998920218190001", "89")

--]]