cremefraiche 1.1.8

data/lib/license.rb

@@ -0,0 +1,38 @@
+#!/usr/bin/env ruby #encoding: UTF-8
+=begin
+/***************************************************************************
+ *   ©2023-2023, Michael Uplawski <michael.uplawski@uplawski.eu>           *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the WTFPL 2.0 or later version of the  LICENSE. *
+ *   See https://wtfpl2.com/ for details.                                  * 
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                  *
+ *                                                                         *
+ ***************************************************************************/
+=end
+# the DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE, version 2
+LICENSE_TEXT = %+
+          DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+                   Version 2, December 2004
+
+Copyright (C) 2004 Sam Hocevar <sam@hocevar.net>
+
+Everyone is permitted to copy and distribute verbatim or modified
+copies of this license document, and changing it is allowed as long
+as the name is changed.
+
+           DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE
+  TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
+
+ 0. You just DO WHAT THE FUCK YOU WANT TO.+ 
+
+
+if __FILE__ == $0
+ puts license_text
+end
+
+
+

data/lib/log.conf

@@ -0,0 +1,65 @@
+#encoding: UTF-8 
+=begin
+/***************************************************************************
+ *   ©2013-2020 Michael Uplawski <michael.uplawski@uplawski.eu>            *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 3 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+
+A simplified logger configuration. Set the level for each individual logger
+below. Choose a different log-device or log-file if you like. Keep the 
+formatting intact.  Do not change other sections of this file.
+=end
+
+# Do not touch from here ----->
+require 'logger'
+
+debug = Logger::DEBUG
+info = Logger::INFO
+error = Logger::ERROR
+fatal = Logger::FATAL
+warn = Logger::WARN
+unknown = Logger::UNKNOWN
+{
+# <---------------- to here !
+
+# Enter your settings here, but take into consideration that not all 
+# the named classes will really produce readable output. Well, you can 
+# always try... Either name just the log-level or make the log-level
+# precede the output-device or output-file like in the examples.
+# PAY ATTENTION to the fact, that these settings overwrite any other
+# way to configure the loggers.
+
+# Example: naming a log-file
+# :HtmlBuilder => [info, 'C:\temp\htmlbuilder.log']
+# :HtmlBuilder => [debug, '/tmp/htmlbuilder.log'],
+
+:Configuration => info,
+:ConfDialog => info,
+:ConfOption => info,
+:EmlFile => info,
+:CremeFraiche => info,
+:CremeFraicheGui => info,
+:CFPrawn => info,
+:Html2Text => info,
+:TagMunging => info,
+:ButtonLabel => info,
+:HowtoDialog => info,
+
+# And ignore the remainder, too.
+}
+
+#eof

data/lib/tag_munging.rb

@@ -0,0 +1,89 @@
+#encoding: UTF-8
+=begin
+/***************************************************************************
+ *   ©2013-2023, Michael Uplawski <michael.uplawski@uplawski.eu>           *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the WTFPL 2.0 or later version of the  LICENSE. *
+ *   See https://wtfpl2.com/ for details.                                  * 
+ *                                                                         *
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                  *
+ *                                                                         *
+ ***************************************************************************/
+=end
+require_relative 'translating'
+require 'nokogiri'
+require 'singleton'
+
+=begin
+	A utility module for recurring tag-specific tasks.
+=end
+module TagMunging
+
+	def remove_empty_rows(table)
+		all_body_rows(table) do |tr| 
+			cells = tr.xpath("./td").dup
+			empty = true
+			cells.each{|cell| empty = false if !cell.children.empty? }	
+			tr.remove if empty
+		end
+	end
+
+	def all_row_cells(tr, &b)
+		tds = tr.xpath('./td')
+		tds.each do |td|
+			yield(td, tds.index(td) )
+		end
+	end
+
+	def all_body_rows(table, &b)
+		trs = table.xpath("./tbody/tr")
+        debug('table contains ' << trs.size.to_s << ' data-rows') if self.respond_to?(:log)
+		trs.each do |tr|
+			yield(tr, trs.index(tr) )
+		end
+	end
+
+	def all_body_cells(table, &b)
+		trs = table.xpath("./tbody/tr")
+        debug('table contains ' << trs.size.to_s << ' data-rows') if self.respond_to?(:log)
+		trs.each do |tr|
+			all_row_cells(tr) do |td|
+				yield(td, trs.index(td) )
+			end
+		end
+	end
+
+	def remove_empty_sub_tags(parent, tag)
+		tags = parent.xpath(".//" << tag)
+		tags.each{|t| t.remove if t.content.chomp.strip.empty?}
+	end
+
+	def right_align_numbers(tags, symbol)
+		tags.each do |tag|
+			if(tag.content.chomp.match(/^-?[^\D]\d*(\.?\d*)?[^\D]?$/) )
+				tag['class'] = (tag['class'] ? tag['class'] : '') << ' ' << 'right'	
+				cont = tag.content
+				tag.content = cont << symbol if cont && symbol
+			end
+		end
+	end
+
+	def new_tag(doc, tag, options = nil)
+		ntag = Nokogiri::XML::Node.new(tag, doc)
+		if(options && options.respond_to?(:to_hash))
+			ntag.content = options.delete(:content) if options[:content]
+			ntag.parent = options.delete(:parent) if options[:parent]	
+			options.each do |k,v|
+				ntag[k.to_s] = v 
+			end
+		end
+		return ntag
+	end
+
+	def tag_by_content(doc, tagname, content)
+		return doc.xpath("//" << tagname.to_s).detect{|tag| tag.content.strip == content}	
+	end
+end

data/lib/translating.rb

@@ -0,0 +1,78 @@
+#encoding: UTF-8
+=begin
+/***************************************************************************
+ *   ©2011-2016, Michael Uplawski				           * 
+ *   <michael.uplawski@uplawski.eu>  					   *
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 3 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         * 
+ *   This program is distributed in the hope that it will be useful,       *
+ *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
+ *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
+ *   GNU General Public License for more details.                          *
+ *                                                                         *
+ *   You should have received a copy of the GNU General Public License     *
+ *   along with this program; if not, write to the                         *
+ *   Free Software Foundation, Inc.,                                       *
+ *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
+ ***************************************************************************/
+=end
+
+
+RD = File.expand_path(File.dirname(__FILE__) ) +  File::SEPARATOR if !defined?(RD)
+
+require 'yaml'
+require_relative 'file_checking'
+
+
+# A way to produce translated text in a ruby-program.
+# Translations are read from a file "translations" in the program folder.
+module Translating
+	# There are better ways to extend a translated 
+	# string, but I keep the 'wild-card' for 
+	# historical reasons.
+
+	@@lang = nil 
+	@@lang_file = format("%s%s", RD, 'LANG')  
+	@@tr = YAML::load_file("#{RD}translations")
+	
+	# find the current language-setting and return it.
+	def self.language()
+		if @@lang == nil
+			r = ENV['LANG']
+			if(r)
+				@@lang = r[0, 2]
+			elsif( !File_Checking::file_check(@@lang_file, [:exist?, :readable?]) && File::size(@@lang_file) >= 2)
+				File::open(@@lang_file, 'r') {|f| @@lang = f.readline}
+				@@lang.chomp!.downcase! if @@lang
+			end
+		end
+		@@lang = 'en' if !@@lang
+	end
+
+	# Translate a string to the currently set langage.  If 'warn' is true
+	# (default), a missing translation provokes a message on STDOUT,
+	# indicating the string that needs translating.
+	def self.trl(t, warn = true)
+		Translating::language()
+		lt = @@tr[t]
+		if(lt)
+			lt = lt[@@lang]
+		elsif warn
+			# File.open('/tmp/mtf', 'a+') {|f| f << t << "\n"}
+			puts "\nTRANSLATION MISSING: \"" << t << "\""
+		end
+		lt ||= t
+		return lt
+	end
+
+	# Translate a string to the currently set langage.  If 'warn' is true
+	# (default), a missing translation provokes a message on STDOUT,
+	# indicating the string that needs translating.
+	def trl(t, warn = true )
+		Translating::trl(t, warn)
+	end
+end