# encoding: utf-8 # - Name: SiSU # # - Description: documents, structuring, processing, publishing, search # css # # - Author: Ralph Amissah # # # - Copyright: (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, # 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2019, # 2020, 2021, Ralph Amissah, # All Rights Reserved. # # - License: GPL 3 or later: # # SiSU, a framework for document structuring, publishing and search # # Copyright (C) Ralph Amissah # # 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, see . # # If you have Internet connection, the latest version of the GPL should be # available at these locations: # # # # # # - SiSU uses: # - Standard SiSU markup syntax, # - Standard SiSU meta-markup syntax, and the # - Standard SiSU object citation numbering and system # # - Homepages: # # # - Git # # # module SiSU_Style require_relative 'se' # se.rb require_relative 'html_parts' # html_parts.rb class CSS_HeadInfo def initialize(md,ft='html') @md,@ft=md,ft @env=SiSU_Env::InfoEnv.new('',md) @fn_css ||=SiSU_Env::CSS_Default.new @o_str ||=SiSU_Env::ProcessingSettings.new(md).output_dir_structure css_copy end def stylesheet def css_path SiSU_Env::CSS_Stylesheet.new(@md) end def css_embed_content @css_embed_content ||=SiSU_Style::CSS.new end def css_embed? if @ft=='html' \ && @o_str.dump_or_redirect? true else false end end def css_embed(css) <<-WOK WOK end def css_action css=case @ft when 'html' css=css_embed_content.html css_embed(css) when 'xhtml' css_path.xhtml when 'xml_sax' css_path.xml_sax when 'xml_dom' css_path.xml_dom when 'xml_docbook' css_path.xml_docbook else css_embed_content.html end end def css_head (css_embed?) \ ? css_action : "#{css_path.html}#{css_path.html_seg}" end def css_head_seg (css_embed?) \ ? css_action : css_path.html_seg end def css_head_xml css_action end self end def css_copy if @o_str.dump_or_redirect? css=SiSU_Style::CSS.new if @o_str.dump? css_pth="#{@md.opt.opt_act[:dump][:inst]}/#{@env.path.style}" elsif @o_str.redirect? css_pth="#{@md.opt.opt_act[:redirect][:inst]}/#{@md.fnb}/#{@env.path.style}" end FileUtils::mkdir_p(css_pth) unless FileTest.directory?(css_pth) case @ft when 'html' style=File.new("#{css_pth}/#{@fn_css.html}",'w') style << css.html style.close when 'xhtml' style=File.new("#{css_pth}/#{@fn_css.xhtml}",'w') style << css.xhtml style.close when 'xml_sax' style=File.new("#{css_pth}/#{@fn_css.xml_sax}",'w') style << css.xml_sax style.close when 'xml_dom' style=File.new("#{css_pth}/#{@fn_css.xml_dom}",'w') style << css.xml_dom style.close css_path.xml_dom when 'xml_docbook' style=File.new("#{css_pth}/#{@fn_css.xml_docbook}",'w') style << css.xml_docbook style.close css_path.xml_docbook end end end end class CSS include SiSU_Parts_HTML def fonts the_font.set_fonts end def html_tables #stylesheet for css table_pages <