hmw3
/
Tips_and_Hacks
1
0
Fork 1
Files Issues Pull Requests Releases Wiki Activity See in Reader

PDF Prov 3

This commit is contained in:
Henry Whitney 2019-05-07 16:52:23 -04:00
parent 6e73218184
commit 101ebd647a
7 changed files with 27 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
MAST_tW_PDF_Updater/FilesForUpdates/Exceptions/Exceptions_tWs_from_OSHB.txt
View File

@ -2309,6 +2309,7 @@ Proverbs 2:20 1870 ||
Proverbs 2:20 8104 ||
Proverbs 2:21 3477 upright
Proverbs 2:21 7931 make ... home
Proverbs 3:1 8451 teaching
Proverbs 3:2 753 ||
Proverbs 3:2 3254 ||
Proverbs 3:4 4672 ||
@ -2328,6 +2329,7 @@ Proverbs 3:14 8393 profit
Proverbs 3:15 6443 ||
Proverbs 3:16 753 ||
Proverbs 3:17 1870 ||
Proverbs 3:17 5278 pleasantness
Proverbs 3:18 6086 ||
Proverbs 3:20 7834 ||
Proverbs 3:21 3868 ||

9
MAST_tW_PDF_Updater/FilesForUpdates/ExtractLinksFromMismatchedSnippets.pl
View File

@ -8,13 +8,16 @@ if ($^O eq "darwin") {GetUserDefaults()}
my $files = "";
open(IN, "temp${d}mismatched_snippets.html") or die "$!\ntemp${d}mismatched_snippets.html";
open(IN, "Temp${d}mismatched_snippets.html") or die "$!\nTemp${d}mismatched_snippets.html";
while (<IN>) {
chomp;
# say $_;
if (/<p><b>(.*)<\/b><\/p>/) {
$files .= "$1 "
unless ($files =~ /$1/) {
$files .= "$1 " unless $^O eq "linux";
$files .= "xdg-open $1 &\n" if $^O eq "linux";
}
}
}
@ -23,7 +26,7 @@ close IN;
say $files;
if ($^O eq "darwin" || $^O eq "MSWin32" || $^O eq "MSWin64") {system ($textEditor $files)}
elsif ($^O eq "linux") {system ("$textEditor $files &")}
elsif ($^O eq "linux") {system ("$files")}
sub GetUserDefaults {
open (my $defaults, "<:utf8", "User${d}User_defaults.mac.txt") or die "User${d}User_defaults.mac.txt:\n$!";

2
MAST_tW_PDF_Updater/FilesForUpdates/FindMismatchedULBSnippets.3.noChunks.pl
View File

@ -38,7 +38,7 @@ my %fromDummy = ("\\.\\*", " ... ", "QM", "?", "QD", "\"", "QS", "'", "XM", "!",
open LOG, ">Logs${d}log.log" or die;
#open output
open OUT, ">temp${d}mismatched_snippets.html" or die;
open OUT, ">Temp${d}mismatched_snippets.html" or die;
#Read in ULB

14
MAST_tW_PDF_Updater/FilesForUpdates/Mine.URL.Strong.Verse.OT.2.pl
View File

@ -309,20 +309,20 @@ sub Finish {
system `$textEditor $exceptions_file`;}
if ($^O eq "linux") {
say "Opening https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong &";
#system "xdg-open https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong &";
system "chromium https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong &";
system "xdg-open https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong &";
system "sleep 0.5s";
say "Opening $blbRef &";
#system "xdg-open $blbRef &";
system "chromium $blbRef &";
system "xdg-open $blbRef &";
my @tWs = split / /,$tW_files;
foreach (@tWs) {
say "Opening $_";
system "xdg-open $_ &"
}
say "Opening $exceptions_file";
system "xdg-open $exceptions_file &";
#say "Opening $exceptions_file";
#system "xdg-open $exceptions_file &";
system "sleep 0.5s";
say "Opening $displayFile";
system "chromium $displayFile &";
system "komodo $displayFile &";
}
if ($^O eq "MSWin32" || $^O eq "MSWin64" ) {
say "Opening $blbRef";

12
MAST_tW_PDF_Updater/FilesForUpdates/OpenMismatchedFiles.pl
View File

@ -16,15 +16,19 @@ open (my $defaults, "<:utf8", "User${d}$udf") or die "User${d}$udf:\n$!";
GetUserDefaults();
my $openString = "";
my $fileText = read_file("temp${d}mismatched_snippets.html", binmode => 'utf8');
my $fileText = read_file("Temp${d}mismatched_snippets.html", binmode => 'utf8');
while ($fileText =~ /<p><b>(.*)<\/b><\/p>/g) {
$openString .= "$1 " unless $openString =~ /$1/;
unless ($openString =~ /$1/) {
$openString .= "$1 " unless $^O eq "linux";
$openString .= "xdg-open $1 &\n" if $^O eq "linux";
}
}
say "\n\n$textEditor $openString\n";
say "\n\n$textEditor $openString\n" unless $^O eq "linux";
say "\n\n$openString\n" if $^O eq "linux";
if ($^O eq "darwin" || $^O eq "MSWin32" || $^O eq "MSWin64") {system ("$textEditor $openString")}
elsif ($^O eq "linux") {system ("$textEditor $openString &")}
elsif ($^O eq "linux") {system ("$openString")}
sub GetUserDefaults {
open (my $defaults, "<:utf8", "User${d}$udf") or die "User${d}$udf:\n$!";

2
MAST_tW_PDF_Updater/FilesForUpdates/User/User_defaults.linux.txt
View File

@ -5,7 +5,7 @@ Here are the current defaults the scripts will be looking for.
===============
# For Linux
Text editor: komodo
Text editor: xdg-open
HTML browser: firefox
Repository directory: /home/henry/Documents/WA_Repo

3
MAST_tW_PDF_Updater/FilesForUpdates/mine.ot.sh
View File

@ -2,4 +2,5 @@
here=$PWD
#echo $here
cd $here
perl "Mine.URL.Strong.Verse.OT.2.pl"
#perl "Mine.URL.Strong.Verse.OT.3.pl"
perl "Mine.URL.Strong.Verse.OT.2.pl"