\m(sttl)
fwrite /line \%o "\m(tmpline)" echo "---------------------------------" echo SUBTITLE \m(tmpsttl) echo "---------------------------------" } if def tmptxt { # Have some text to put here? if not exist \m(tmptxt) { # Specified file exists? echo SUBTITLE text file not found: \m(tmptxt) } else { local tmpline fopen /read \%9 \m(tmptxt) # Open the specified file if success { # If OK fwrite /line \%o {} #
fwrite \%c {}
fwrite /line \%c \m(enlarge)
}
if dopinterest {
fwrite /line \%c
fwrite /line \%c {}
}
fwrite /line \%c # End of "navigation bar"
fwrite /line \%c
while 1 { # Copy text to the index file
fread /line \%9 tmpline
if fail break
fwrite /line \%o \m(tmpline)
}
fclose \%9 # Close subtext file
fwrite /line \%o {
} # Close div
}
}
}
}
}
# Put Back, Next, and Up links on a subpage, plus an Enlarge button.
#
define PUTLINKS {
local \%i \%n \%c
.\%i := \%1
.\%n := \%2
.\%c := \%3
undef nextpage
if == \%i \%n { # Last subpage...
.x := \m(indexfile) # Has only Up and Prev links
.x := \freplace(\m(x),\32,%20) # No spaces allowed
.whatsnext := \m(x)
fwrite /line \%c \m(lp) \m(up) \m(rp)
} else { # Not last image
.x := \fstripx(\fbasename(\&t[\%i+1])).html
.x := \freplace(\m(x),\32,%20) # No spaces allowed
.nextpage := \m(x)
fwrite /line \%c -
{\m(lp) \m(next) \m(rp)}
}
.xnext := \m(x) # Remember this for later
undef prevpage
if != \%i 1 { # Not first image?
.prevpage = 1
.x := \fstripx(\fbasename(\&t[\%i-1])).html # Not 1 so link to previous
.x := \freplace(\m(x),\32,%20) # No spaces allowed
.prevpage := \m(x)
fwrite /line \%c { \m(lp) \m(prev) \m(rp) }
}
if != \%i \%n { # If not last subpage
fwrite /line \%c \m(lp) \m(index) \m(rp)
}
.original := \m(namepart).\m(ext)
if ( exist \m(original) && \m(enlargebutton) ) { # Enlarge button
fwrite /line \%c
}
# DO THE SUBPAGE IMAGES
if not have_convert addmsg -
{Browser-scaled originals will serve as subpage images}
for \%i 1 \%n 1 { # Loop through all non-thumbnails
dosubtitle \%i # Handle any subtitles
.animated = 0 # Unset this in case set (per file)
.fn := \fcontents(\&t[\%i]) # Suppress any recursion on filename
parsename {\m(fn)} # Get the pieces of the name
if resize .subpageimage := \m(tr)
if ( not exist \m(subpageimage) || not resize ) {
.subpageimage := \m(to)
}
if not exist \m(subpageimage) {
.subpageimage := \m(fn)
}
if not exist \m(subpageimage) {
exit 1 SUBPAGE IMAGE \m(subpageimage) not found.
}
.filemsg := "\m(fn) => " # Beginning of subpage message
getdimensions {\m(subpageimage)} # Get subpage image width and height
.width := \m(wid) # Copy 'em
.height := \m(hgt)
if == 0 height .height := 1 # Prevent divide by zero below
.captionfile := \m(subpagetext) # Caption file
if not exist \m(captionfile) .captionfile := default.txt
if exist \m(captionfile) { # If it exists
checkcset \m(captionfile) # detect its character set
.subcharset := \v(return) # and declare it for this subpage
if not def subcharset .subcharset := \m(charset)
if equ "\m(subcharset)" "us-ascii" .subcharset = utf-8
}
# Until version 2.21, portrait images would often have their bottoms truncated.
# You'd have to scroll down to see the rest of the image and to see if there
# was a caption. In 2.22-2.24 I tried various math tricks based on the image's
# aspect ratio, but they were not satisfying. In version 2.25 I use the vmin
# viewport-scaling unit to do the job, but that works only for the image
# itself, so I still need to apply the aspect ratio to the caption text.
# I'm not worrying about old browsers because these days most browsers
# update themselves automatically. -fdc 2018/02/10
.dimensions := \m(width)×\m(height)
.realwidth := \m(width).0 # Width as floating-point number
.realheight := \m(height).0 # Height as floating-point number
# Make width fit in minwidth..maxwidth range
if maxwidth if > \m(width) \m(maxwidth) .width := \m(maxwidth)
if minwidth if < \m(width) \m(minwidth) .width := \m(minwidth)
# Get aspect ratio... See how we do floating-point arithmetic in Kermit:
.hscale = 0
(setq ratio (/ realwidth realheight)) # Ratio of width to height
if < \m(ratio) 1.2 {
# 0.72 = Leave space for the top matter and (some of) the caption.
# (setq width (truncate (* width ratio 0.72)))
.hscale = 1 # Narrow image needs horizontal scaling
}
.titlefile := \m(namepart).ttl # Title file for this image if any
undef titleline # Default title line for this subpage
if def sttl .titleline := \m(sttl) # Use this if given
if exist \m(titlefile) { # Title file for this image
local \%d # takes precedence.
fopen /read \%d \m(titlefile)
if success {
fread /line \%d titleline
fclose \%d
}
}
if def titleline {
.thistitle := \m(shorttitle) - \m(photo) \#\%i - \m(titleline)
} else {
.thistitle := \m(shorttitle) - \m(photo) \#\%i
}
.filemsg := \m(filemsg)\m(url) (\m(orientation)) # Finish progress message
echo \fleft(\m(filemsg),\v(cols)-1) # Echo so it fits on screen
fopen /write \%c \m(subpagename) # Create page for this image
if fail exit 1 OPEN failed: \m(subpagename)
.what = SUBPAGE # (for STYLE macro)
fwrite /line \%c # Write HTML prologue
fwrite /line \%c
fwrite /line \%c
fwrite /line \%c -
if def subcharset fwrite /line \%c {}
else fwrite /line \%c {}
if def stylesheet fwrite /line \%c -
if def favicon fwrite /line \%c -
fwrite /line \%c \m(thistitle)
do STYLE \%c # Write out style section
do pinterestjs \%c # Include Pinterest Javascript
fwrite /line \%c # Close the section
.bodystyle := margin:12px; background:\m(background); color:\m(color);
fwrite /line \%c }
fwrite /line \%c
\m(thistitle)
fwrite /line \%c {| }
putlinks \%i \%n \%c # Put next/prev/up links on subpage
.whatsnext := \m(xnext) # What the image itself links to
.nexttooltip := \m(tooltip1)
# NOTE: Chrome 66 ignores the max-width clause and wrecks the aspect ratio.
fwrite /line \%c { }
fwrite /line \%c {
fwrite /line \%c # End of image-caption section
if dopinterest {
fwrite /line \%c {}
}
# Insert Javascript to allow navigation by arrow keys
if ( doarrowkeys && equ "\m(what)" "SUBPAGE" ) {
if not def prevpage .prevpage := \m(indexfile)
if not def nextpage .nextpage := \m(indexfile)
fwrite /line \%c "
}
fwrite /line \%c # End of subpage body
fwrite /line \%c # End of html
fclose \%c # Close it the subpage
increment subpages # Count it
dochmod \m(permissions) {\m(subpagename)} # Give it the desired permissions
# ADD THUMBNAIL TO INDEX PAGE...
if not have_convert .tt := \m(namepart).\m(ext) # Use original image
checkanimated \m(subpageimage) # Animated GIF?
if animated .tt := \m(subpageimage) # Use original
if exist \m(tt) { # Have thumbnail image?
# Make entry in index page.
fwrite /line \%o -
{}
# Captions are in separate .txt files. Doing it this way allows the content
# of the gallery to change during construction without having to edit the
# .html files, which would be destroyed in the next run (e.g. when inserting
# or deleting photos, because all the previous/next links have to be
# recalculated).
#
# If a caption file does not exist for particular image, a default
# caption will be used if a default.txt file exists.
if exist \m(captionfile) { # Insert caption if any
fopen /read \%d \m(captionfile)
if success { # Have caption file
fwrite /line \%c # (cosmetic)
while true { # Copy the text line by line
fread /line \%d textline
if fail { fclose \%d, break }
fwrite /line \%c \m(textline)
}
fwrite /line \%c # (cosmetic)
}
}
.have_copyright = 0
if not def copyright .copyright := \$(COPYRIGHT_HTML)
if ( def copyright && exist \m(copyright) ) {
.have_copyright = 1
}
.footer = 0
if ( have_copyright || validate ) .footer = 1
if footer {
fwrite /line \%c {
fwrite /line \%c
fclose \%o
copy /append \m(index2) \m(indexfile)
fopen /append \%o \m(indexfile)
fwrite /line \%o
} else {
addmsg {WARNING: index2 \m(index2) not found - skipping...}
}
}
if have_locale { # Get today's date
local day
.day := \fword(\v(date),1)
if equ "\m(language)" "Spanish" {
set locale es_ES.UTF-8
.fulldate := el \m(day) de \fmonthname(\v(nmonth),0) del \v(year)
} else {
set locale en_US.UTF-8
if fail set locale
.fulldate := \fmonthname(\v(nmonth),0) \m(day)\, \v(year)
}
} else {
.fulldate := \v(date)
}
if not def tail .tail := \$(TAIL_HTML)
if ( def tail && exist \m(tail) ) { # If external tail file exists...
fclose \%o # Close index file
appendfile \m(tail) "_PAGEDATE_" "\m(fulldate)" \m(indexfile) # append tail
} else {
.pgurl = http://www.kermitproject.org/photogallery.html
fwrite /line \%o {} fwrite /line \%o { } # End of page
fwrite /line \%o { }
fwrite /line \%o {}
if doarrowkeys {
fwrite /line \%o "
}
fwrite /line \%o {}
fwrite /line \%o {}
fclose \%o
}
dochmod \m(permissions) {\m(indexfile)}
addmsg {Images in gallery: \m(subpages)}
! echo \m(subpages) > imgcount
if nsttl addmsg {Sections: \m(nsttl)}
echo "---------------------------------"
echo "SUMMARY \fcvtdate(,2)..."
.testversion := \v(test)
if equ "\m(testversion)" "0" undef testversion
echo "Interpreter: \v(program) version \v(version) \m(testversion)"
if def convertpath {
echo Convert path: \m(convertpath)
} else if not \m(have_convert) {
echo "Convert not found - no resizing was done"
} else {
echo "Convert from default path used for resizing"
}
echo "Supported graphics file extensions:"
echo "\m(extensions)"
xecho "This directory:"
if > \flen(\v(dir)) 63 echo ""
echo " \v(dir)"
echo "Title: \m(title)"
echo "Index file name: \m(indexfile)"
for i 1 mx 1 { # Show accumulated messages at end
echo \&m[i] # (summary of Photogallery session)
}
echo "---------------------------------"
if defined atend do atend # Execute ATEND macro if defined
else if exist imgcount del /quiet imgcount
echo "\m(myname): \m(thisdir)/\m(indexfile) OK"
exit
; Local Variables:
; comment-column:40
; comment-start:"# "
; End:
|