yafootnote.tex

\documentclass[a4paper]{ltjsarticle}
\usepackage[no-math]{luatexja-fontspec}
\usepackage{luacode,luatexbase}
\usepackage[skins, breakable]{tcolorbox}
\usepackage{mdframed}
%\usepackage[callback={preout}]{nodetree}
\usepackage{lipsum}
\usepackage{bxjalipsum}

\setmainjfont[BoldFont=IPAexGothic]{IPAexMincho}
\setsansjfont{IPAexGothic}

\protected\def\pdfliteral{\pdfextension literal}

\makeatletter
\newdimen\my@tcb@ftn@height
\my@tcb@ftn@height\z@
\newcount\yafootnotecount
\newdimen\footnotewidth
\footnotewidth=\textwidth
\newdimen\paryafootnoteskip
\paryafootnoteskip=.1\baselineskip

\def\yafootnote#1{\nobreak%
  \global\advance\yafootnotecount 1
  \global\expandafter\newbox
    \csname yafoot_\the\yafootnotecount\endcsname
  \begingroup
    \attribute100=\expandafter\the\csname yafoot_\the\yafootnotecount\endcsname
    \expandafter\yafootnotemark\expandafter{\the\yafootnotecount}
    \vadjust {\pdfliteral{}}%
  \endgroup
  \global\expandafter\setbox
    \csname yafoot_\the\yafootnotecount\endcsname
    \vtop{\yafootnotetext{#1}}%
}

\def\@thefnmark{\the\yafootnotecount}
\def\yafootnotetext{%
    \normalfont\footnotesize
    \interlinepenalty\interfootnotelinepenalty
    \hsize\footnotewidth \@parboxrestore
    \protected@edef\@currentlabel{%
       \csname p@footnote\endcsname\@thefnmark
    }%
    \@makefntext{%
      \rule\z@\footnotesep\ignorespaces\leavevmode\inhibitglue}}
\renewcommand\@makefntext[1]{%
  \advance\leftskip 3\zw
  \parindent 1\zw
  \noindent
  \llap{\yafootnotemark{\the\yafootnotecount}\hskip0.3\zw}#1}
\def\yafootnotemark#1{\scriptsize\ensuremath{^{\mbox{\thefootnote #1}}}\nobreak}
\def\thefootnote{\leavevmode\raise.2ex\hbox{\scriptsize$\dagger$}}

\directlua{dofile("./yafoot.lua")}

\directlua{%
    luatexbase.add_to_callback
      ("post_linebreak_filter",push_footnotes_below_lines,"pushftn")}

\directlua{%
    luatexbase.add_to_callback
      ("pre_output_filter",move_footnote_bottom,"moveftn")}

\directlua{%
    luatexbase.add_to_callback
      ("vpack_filter",crush_height_of_vlist,"crushvbox")}

\directlua{%
    luatexbase.add_to_callback
      ("buildpage_filter",page_ftn_height,"truncatepage")}

% from tcolorbox/tcbbreakable.code.tex
\def\tcb@vsplit@upper{%
  \tcbdimto\tcb@split@dim{\tcb@split@dim-\my@tcb@ftn@height}\global\my@tcb@ftn@height\z@
  \setbox\tcb@upperbox=\vsplit\tcb@totalupperbox to\tcb@split@dim%
  \edef\tcb@upper@box@badness{\the\badness}%
  }

\def\my@tcb@output{%
  \ifdim\my@tcb@ftn@height>\z@
    % 
    \ifnum\outputpenalty>\z@
      \my@tcb@ftn@height\ht\footins
      \advance\my@tcb@ftn@height\footskip
    \fi
%    \expandafter\showthe\my@tcb@ftn@height
    \@tempdima\vsize
    \advance\@tempdima-\my@tcb@ftn@height
    \setbox\z@\vsplit\@cclv to \@tempdima%
    \setbox\tw@ =\vbox{\copy\@cclv}\unvbox\tw@%
    \global\my@tcb@ftn@height\z@
    \global\setbox\@cclv=\vbox{\copy\z@}%
  \fi
  \let \par \@@par
  \ifnum \outputpenalty<-\@M
    \@specialoutput
  \else
    \@makecol
    \@opcol
    \@startcolumn
    \@whilesw \if@fcolmade \fi
      {%
       \@opcol\@startcolumn}%
  \fi
  \ifnum \outputpenalty>-\@Miv
  \ifdim \@colroom<1.5\baselineskip
      \ifdim \@colroom<\textheight
        \@latex@warning@no@line {Text page \thepage\space
                               contains only floats}%
        \@emptycol
      \else
        \global \vsize \@colroom
      \fi
    \else
      \global \vsize \@colroom
    \fi
  \else
    \global \vsize \maxdimen
  \fi}

\output{\my@tcb@output}

\makeatother

\begin{document}

ふと氣が付いて見ると書生は居ない。\yafootnote{澤山居つた兄弟が一疋（ぴき）も見えぬ}。肝心の母親さへ姿を隱して仕舞つた。其上今迄の所とは違つて無暗に明るい。眼を明いて居（ゐ）られぬ位だ。果てな何でも容子（ようす）が可笑（をかし）いと、のそのそ這ひ出して見ると非常に痛い。吾輩は藁（わら）の上から急に笹原の中へ棄てられたのである。

\begin{tcolorbox}[enhanced jigsaw, breakable]
然（しか）もあとで聞くとそれは書生といふ人間中で一番獰悪（だうあく）な種族であつたさうだ。此書生といふのは時々我々を捕（つかま）へて煮て食ふといふ話である。然し其當時は何といふ考（かんがへ）もなかつたから別段恐しいとも思はなかつた。但（たゞ）彼の掌（てのひら）に載せられてスーと持ち上げられた時何だかフハフハした感じが有つた許（ばか）りである。\yafootnote{掌の上で少し落ち付いて書生の顔を見たのが所謂（いはゆる）人間といふものゝ見始（みはじめ）であらう。此時妙なものだと思つた感じが今でも殘つて居る。掌の上で少し落ち付いて書生の顔を見たのが所謂（いはゆる）人間といふものゝ見始（みはじめ）であらう。此時妙なものだと思つた感じが今でも殘つて居る。掌の上で少し落ち付いて書生の顔を見たのが所謂（いはゆる）人間といふものゝ見始（みはじめ）であらう。此時妙なものだと思つた感じが今でも殘つて居る。掌の上で少し落ち付いて書生の顔を見たのが所謂（いはゆる）人間といふものゝ見始（みはじめ）であらう。此時妙なものだと思つた感じが今でも殘つて居る。}第一毛を以て装飾されべき筈の顔がつるつるして丸で薬罐（やくわん）だ。其後猫にも大分逢つたがこんな片輪には一度も出會（でく）はした事がない。加之（のみならず）顔の眞中が餘りに突起して居る。そうして其穴の中から時々ぷうぷうと烟（けむり）を吹く。どうも咽（む）せぽくて實に弱つた。是が人間の飲む烟草（たばこ）といふものである事は漸く此頃（このごろ）知つた。

吾輩は猫である\yafootnote{名前はまだ無い}。

どこで生れたか頓（とん）と見當がつかぬ。何でも薄暗いじめじめした所でニヤーニヤー泣いて居た事丈は記憶して居る。吾輩はこゝで始めて人間といふものを見た。

\begin{tcolorbox}[breakable]
ふと氣が付いて見ると書生は居ない。\yafootnote{澤山居つた兄弟が一疋（ぴき）も見えぬ}。肝心の母親さへ姿を隱して仕舞つた。其上今迄の所とは違つて無暗に明るい。眼を明いて居（ゐ）られぬ位だ。果てな何でも容子（ようす）が可笑（をかし）いと、のそのそ這ひ出して見ると非常に痛い。吾輩は藁（わら）の上から急に笹原の中へ棄てられたのである。
\end{tcolorbox}

此書生の掌の裏（うち）でしばらくはよい心持に坐つて\yafootnote{すわって}居つたが、暫くすると非常な速力で運轉し始めた。書生が動くのか自分丈（だけ）が動くのか分らないが無暗に眼が廻る。胸が惡くなる。到底助からないと思つて居ると、どさりと音がして眼から火が出た。夫迄（それまで）は記憶して居るがあとは何の事やらいくら考へ出さうとしても分らない。

\begin{tcolorbox}[breakable]
ふと氣が付いて見ると書生は居ない。\yafootnote{澤山居つた兄弟が一疋（ぴき）も見えぬ}。肝心の母親さへ姿を隱して仕舞つた。其上今迄の所とは違つて無暗に明るい。眼を明いて居（ゐ）られぬ位だ。果てな何でも容子（ようす）が可笑（をかし）いと、のそのそ這ひ出して見ると非常に痛い。吾輩は藁（わら）の上から急に笹原の中へ棄てられたのである。
\end{tcolorbox}

漸くの思ひで笹原を這ひ出すと向ふに大きな池がある。吾輩は池の前に坐つてどうしたらよからうと考へて見た。別に是（これ）といふ分別も出ない。暫くして泣いたら書生が又迎（むかひ）に來てくれるかと考へ付いた。ニヤー、ニヤーと試みにやつて見たが誰も來ない。其内池の上をさらさらと風が渡つて日が暮れかゝる。腹が非常に減つて來た。泣き度（た）くても聲が出ない。仕方がない、何でもよいから食物（くひもの）のある所迄あるかうと決心をしてそろりそろりと池を左りに廻り始めた。どうも非常に苦しい。そこを我慢して無理やりに這つて行くと漸くの事で何となく人間臭い所へ出た。此所（こゝ）へ這入つたら、どうにかなると思つて竹垣の崩れた穴から、とある邸内にもぐり込んだ。縁は不思議なもので、もし此竹垣が破れて居なかつたなら、吾輩は遂に路傍に餓死したかも知れんのである。一樹の蔭（かげ）とはよく云つたものだ。此垣根の穴は今日（こんにち）に至る迄吾輩が隣家（となり）の三毛（みけ）を訪問する時の通路になつて居る。偖（さて）邸（やしき）へは忍び込んだものゝ是から先どうして善（い）いか分らない。其内に暗くなる、腹は減る、寒さは寒し、雨が降つて來るといふ始末でもう一刻も猶豫が出來なくなつた。仕方がないから兎に角明るくて暖かさうな方へ方へとあるいて行（ゆ）く。今から考へると其時は既に家（いへ）の内に這入つて居（を）つたのだ。こゝで吾輩は彼（か）の書生以外の人間を再び見るべき機會に遭遇したのである。第一に逢つたのがおさんである。是は前の書生より一層亂暴な方で吾輩を見るや否やいきなり頸筋（くびすじ）をつかんで表へ抛（はふ）り出した。いや是は駄目だと思つたから眼をねぶつて運を天に任せて居た。然しひもじいのと寒いのにはどうしても我慢が出來ん。吾輩は再びおさんの隙（すき）を見て臺所へ這ひ上（あが）つた。すると間もなく又投げ出された。吾輩は投げ出されては這ひ上り、這ひ上つては投げ出され、何でも同じ事を四五遍繰り返したのを記憶して居る。其時におさんと云ふ者はつくづくいやになつた。此間おさんの三馬（さんま）を偸（ぬす）んで此返報をしてやつてから、やつと胸の痞（つかへ）が下（お）りた。吾輩が最後につまみ出され樣としたときに、此家（このうち）の主人が騷々しい何だといひながら出て來た。下女は吾輩をぶら下げて主人の方へ向けて此宿なしの小猫がいくら出しても出しても御臺所へ上つて來て困りますといふ。主人は鼻の下の黑い毛を撚（ひね）りながら吾輩の顔を暫く眺めて居つたが、やがてそんなら内へ置いてやれといつたまゝ奥へ這入つて仕舞つた。主人は餘り口を聞かぬ人と見えた。下女は口惜しさうに吾輩を臺所へ抛り出した。かくして吾輩は遂に此家（うち）を自分の住家（すみか）\yafootnote{と極（き）める事}にしたのである。

おしまい

\end{tcolorbox}
然（しか）もあとで聞くとそれは書生といふ人間中で一番獰悪（だうあく）な種族であつたさうだ。此書生といふのは時々我々を捕（つかま）へて煮て食ふといふ話である。然し其當時は何といふ考（かんがへ）もなかつたから別段恐しいとも思はなかつた。但（たゞ）彼の掌（てのひら）に載せられてスーと持ち上げられた時何だかフハフハした感じが有つた許（ばか）りである。\yafootnote{掌の上で少し落ち付いて書生の顔を見たのが所謂（いはゆる）人間といふものゝ見始（みはじめ）であらう。此時妙なものだと思つた感じが今でも殘つて居る。}第一毛を以て装飾されべき筈の顔がつるつるして丸で薬罐（やくわん）だ。其後猫にも大分逢つたがこんな片輪には一度も出會（でく）はした事がない。加之（のみならず）顔の眞中が餘りに突起して居る。そうして其穴の中から時々ぷうぷうと烟（けむり）を吹く。どうも咽（む）せぽくて實に弱つた。是が人間の飲む烟草（たばこ）といふものである事は漸く此頃（このごろ）知つた。

吾輩は猫である\yafootnote{名前はまだ無い}。

どこで生れたか頓（とん）と見當がつかぬ。何でも薄暗いじめじめした所でニヤーニヤー泣いて居た事丈は記憶して居る。吾輩はこゝで始めて人間といふものを見た。

\begin{tcolorbox}[enhanced jigsaw, breakable]

然（しか）もあとで聞くとそれは書生といふ人間中で一番獰悪（だうあく）な種族であつたさうだ。此書生といふのは時々我々を捕（つかま）へて煮て食ふといふ話である。然し其當時は何といふ考（かんがへ）もなかつたから別段恐しいとも思はなかつた。但（たゞ）彼の掌（てのひら）に載せられてスーと持ち上げられた時何だかフハフハした感じが有つた許（ばか）りである。\yafootnote{掌の上で少し落ち付いて書生の顔を見たのが所謂（いはゆる）人間といふものゝ見始（みはじめ）であらう。此時妙なものだと思つた感じが今でも殘つて居る。}第一毛を以て装飾されべき筈の顔がつるつるして丸で薬罐（やくわん）だ。其後猫にも大分逢つたがこんな片輪には一度も出會（でく）はした事がない。加之（のみならず）顔の眞中が餘りに突起して居る。そうして其穴の中から時々ぷうぷうと烟（けむり）を吹く。どうも咽（む）せぽくて實に弱つた。是が人間の飲む烟草（たばこ）といふものである事は漸く此頃（このごろ）知つた。

此書生の掌の裏（うち）でしばらくはよい心持に坐つて\yafootnote{すわって}居つたが、暫くすると非常な速力で運轉し始めた。書生が動くのか自分丈（だけ）が動くのか分らないが無暗に眼が廻る。胸が惡くなる。到底助からないと思つて居ると、どさりと音がして眼から火が出た。夫迄（それまで）は記憶して居るがあとは何の事やらいくら考へ出さうとしても分らない。

%\begin{tcolorbox}[enhanced jigsaw, breakable]
ふと氣が付いて見ると書生は居ない。\yafootnote{澤山居つた兄弟が一疋（ぴき）も見えぬ}。肝心の母親さへ姿を隱して仕舞つた。其上今迄の所とは違つて無暗に明るい。眼を明いて居（ゐ）られぬ位だ。果てな何でも容子（ようす）が可笑（をかし）いと、のそのそ這ひ出して見ると非常に痛い。吾輩は藁（わら）の上から急に笹原の中へ棄てられたのである。
%\end{tcolorbox}

漸くの思ひで笹原を這ひ出すと向ふに大きな池がある。吾輩は池の前に坐つてどうしたらよからうと考へて見た。別に是（これ）といふ分別も出ない。暫くして泣いたら書生が又迎（むかひ）に來てくれるかと考へ付いた。ニヤー、ニヤーと試みにやつて見たが誰も來ない。其内池の上をさらさらと風が渡つて日が暮れかゝる。腹が非常に減つて來た。泣き度（た）くても聲が出ない。仕方がない、何でもよいから食物（くひもの）のある所迄あるかうと決心をしてそろりそろりと池を左りに廻り始めた。どうも非常に苦しい。そこを我慢して無理やりに這つて行くと漸くの事で何となく人間臭い所へ出た。此所（こゝ）へ這入つたら、どうにかなると思つて竹垣の崩れた穴から、とある邸内にもぐり込んだ。縁は不思議なもので、もし此竹垣が破れて居なかつたなら、吾輩は遂に路傍に餓死したかも知れんのである。一樹の蔭（かげ）とはよく云つたものだ。此垣根の穴は今日（こんにち）に至る迄吾輩が隣家（となり）の三毛（みけ）を訪問する時の通路になつて居る。偖（さて）邸（やしき）へは忍び込んだものゝ是から先どうして善（い）いか分らない。其内に暗くなる、腹は減る、寒さは寒し、雨が降つて來るといふ始末でもう一刻も猶豫が出來なくなつた。仕方がないから兎に角明るくて暖かさうな方へ方へとあるいて行（ゆ）く。今から考へると其時は既に家（いへ）の内に這入つて居（を）つたのだ。こゝで吾輩は彼（か）の書生以外の人間を再び見るべき機會に遭遇したのである。第一に逢つたのがおさんである。是は前の書生より一層亂暴な方で吾輩を見るや否やいきなり頸筋（くびすじ）をつかんで表へ抛（はふ）り出した。いや是は駄目だと思つたから眼をねぶつて運を天に任せて居た。然しひもじいのと寒いのにはどうしても我慢が出來ん。吾輩は再びおさんの隙（すき）を見て臺所へ這ひ上（あが）つた。すると間もなく又投げ出された。吾輩は投げ出されては這ひ上り、這ひ上つては投げ出され、何でも同じ事を四五遍繰り返したのを記憶して居る。其時におさんと云ふ者はつくづくいやになつた。此間おさんの三馬（さんま）を偸（ぬす）んで此返報をしてやつてから、やつと胸の痞（つかへ）が下（お）りた。吾輩が最後につまみ出され樣としたときに、此家（このうち）の主人が騷々しい何だといひながら出て來た。下女は吾輩をぶら下げて主人の方へ向けて此宿なしの小猫がいくら出しても出しても御臺所へ上つて來て困りますといふ。主人は鼻の下の黑い毛を撚（ひね）りながら吾輩の顔を暫く眺めて居つたが、やがてそんなら内へ置いてやれといつたまゝ奥へ這入つて仕舞つた。主人は餘り口を聞かぬ人と見えた。下女は口惜しさうに吾輩を臺所へ抛り出した。かくして吾輩は遂に此家（うち）を自分の住家（すみか）\yafootnote{と極（き）める事}にしたのである。

おしまい

\end{tcolorbox}
\end{document}