-*- mode: org -*- #+TITLE: sisu css #+DESCRIPTION: documents - structuring, various output representations & search #+FILETAGS: :sisu:css: #+AUTHOR: Ralph Amissah #+EMAIL: [[mailto:ralph.amissah@gmail.com][ralph.amissah@gmail.com]] #+COPYRIGHT: Copyright (C) 2015 - 2021 Ralph Amissah #+LANGUAGE: en #+STARTUP: content hideblocks hidestars noindent entitiespretty #+OPTIONS: H:3 num:nil toc:t \n:nil @:t ::t |:t ^:nil _:nil -:t f:t *:t <:t #+PROPERTY: header-args :exports code #+PROPERTY: header-args+ :noweb yes #+PROPERTY: header-args+ :eval no #+PROPERTY: header-args+ :results no #+PROPERTY: header-args+ :cache no #+PROPERTY: header-args+ :padline no #+PROPERTY: header-args+ :mkdirp yes * css.rb #+HEADER: :tangle "../lib/sisu/css.rb" #+BEGIN_SRC ruby #<> 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 < - 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 #+END_SRC