org-mode, track bin files

1 files changed, 748 insertions, 0 deletions

diff --git a/org/sisu-bin.org b/org/sisu-bin.org
new file mode 100644
index 00000000..c48cd626
--- /dev/null
+++ b/org/sisu-bin.org
@@ -0,0 +1,748 @@
+-*- mode: org -*-
+#+TITLE:       sisu
+#+DESCRIPTION: documents - structuring, various output representations & search
+#+FILETAGS:    :sisu:
+#+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
+
+* bin
+** bin/sisu
+
+#+HEADER: :tangle "../bin/sisu"
+#+HEADER: :shebang "#!/usr/bin/env ruby"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC ruby
+<<sisu_document_header>>
+class Orient
+  require 'singleton'
+  include Singleton
+  def initialize #(called_as_,argv)
+    super()
+    @called_as,@argv=$0,$*
+  end
+  def version_major
+   '7'
+  end
+  def sisu_called_from_directory
+    @@sisu_called_from_directory ||= Dir.pwd
+  end
+  def sisu_run_from?
+    if processing.called_as == processing.sisu_runtime_path \
+    and File.dirname(processing.sisu_runtime_path) != RbConfig::CONFIG['bindir']
+      :full_path_to_sisu_bin_in_sisu_dir_tree
+    elsif processing.sisu_runtime_path =~/\/gems\// \
+    and processing.sisu_runtime_path \
+    =~ /\/#{processing.gem_regex}\//
+      :gem_install
+    else
+      :system_install
+    end
+  end
+  def processing
+    def called_as
+      @called_as
+    end
+    def argv
+      @argv
+    end
+    def argv_str
+      argv.inspect
+    end
+    def sisu_runtime_path
+      __FILE__
+    end
+    def bin_file_regex
+      %r{\bsisu$}
+    end
+    def gem_regex
+      %r{sisu-[0-9]+\.[0-9]+\.[0-9]+(?:\.r[0-9]+\.g[0-9a-f]{7})?}
+    end
+    self
+  end
+  def sisu_lib
+    'sisu'
+  end
+  def sisu_version_info_path
+    "#{sisu_path_base_system_data}/version.yml"
+  end
+  def paths_set
+    if sisu_run_from? == :system_install \
+    and processing.called_as \
+    =~ /^#{RbConfig::CONFIG['bindir']}\/sisu$/
+      :set_path_system
+    elsif sisu_run_from? == :full_path_to_sisu_bin_in_sisu_dir_tree \
+    and processing.called_as \
+    !~ /^#{RbConfig::CONFIG['bindir']}\/sisu$/ \
+    && File.expand_path(processing.called_as) \
+    =~ /bin\/sisu$/ \
+    && FileTest.file?(processing.called_as)
+      :set_dir_tree_full_path
+    elsif sisu_run_from? ==:gem_install
+      :set_path_gem
+    else nil
+    end
+  end
+  def git_version
+    if sisu_run_from? == :full_path_to_sisu_bin_in_sisu_dir_tree \
+    && FileTest.file?('/usr/bin/git') \
+    && FileTest.directory?(processing.sisu_runtime_path.gsub(/\/bin\/sisu\S*/,'/.git'))
+      bin_base=processing.sisu_runtime_path.gsub(/\/bin\/sisu\S*/,'')
+      pwd=Dir.pwd
+      Dir.chdir(bin_base)
+      x=`git describe --long --tags 2>&1`.strip.
+        gsub(/^[a-z_-]*([0-9.]+)/,'\1').
+        gsub(/([^-]*-g)/,'r\1').
+        gsub(/-/,'.')
+      x=(x=~/^[0-9]+\.[0-9]+\.[0-9]+\.r[0-9]+\.g[0-9a-f]{7}/) \
+      ? x
+      : nil
+      Dir.chdir(pwd)
+      x
+    else nil
+    end
+  end
+  def sisu_path_base
+    case paths_set
+    when :set_path_system
+      RbConfig::CONFIG['datadir'] + '/sisu'
+    when :set_dir_tree_full_path
+      File.expand_path(processing.called_as).
+        sub(/\/bin\/sisu$/,'')
+    when :set_path_gem
+      Gem::Specification.find_by_name("sisu").gem_dir
+    else nil
+    end
+  end
+  def sisu_path_base_system_data
+    case paths_set
+    when :set_path_system
+      RbConfig::CONFIG['datadir'] + '/sisu'
+    when :set_dir_tree_full_path
+      File.expand_path(processing.called_as).
+        sub(/\/bin\/sisu$/,'/data/sisu')
+    when :set_path_gem
+      Gem::Specification.find_by_name("sisu").gem_dir \
+      + '/data/sisu'
+    else nil
+    end
+  end
+  def sisu_this_lib
+    if Gem::Specification.any? \
+    and processing.sisu_runtime_path =~/\/gems\// \
+    and processing.sisu_runtime_path \
+    =~ /\/#{processing.gem_regex}\//
+      # gem sought
+      processing.sisu_runtime_path.
+        gsub(/\/bin\/sisu[a-z0-9._-]*$/,
+          '/lib/sisu')
+    elsif (processing.called_as \
+    !~ /^#{RbConfig::CONFIG['bindir']}\/sisu$/)
+      # called off file system, project directory tree
+      File.expand_path(processing.called_as).
+        sub(/bin\/sisu\S*/,'lib/sisu')
+    else
+      # distro installation
+      sisulib={
+        vendorlib: RbConfig::CONFIG['vendorlibdir'] + '/sisu',
+        sitelib: RbConfig::CONFIG['sitelibdir'] + '/sisu',
+      }
+      if FileTest.directory?(sisulib[:sitelib])            # local install
+        sisulib[:sitelib]
+      elsif FileTest.directory?(sisulib[:vendorlib])       # system install
+        sisulib[:vendorlib]
+      else 'sisu'                                          # assume lib paths work
+      end
+    end
+  end
+  def sisu_this_lib_
+    if (processing.called_as \
+    !~ /^#{RbConfig::CONFIG['bindir']}\/sisu$/)
+      File.expand_path(processing.called_as).
+        sub(/bin\/sisu\S*/,'lib/sisu')
+    else 'sisu'
+    end
+  end
+  def language_list
+    def codes
+      %w[am bg bn br ca cs cy da de el en eo es et eu fi fr ga gl he hi hr hy ia is it ja ko la lo lt lv ml mr nl nn no oc pl pt pt_BR ro ru sa se sk sl sq sr sv ta te th tk tr uk ur us vi zh]
+    end
+    def regex
+      codes.join('|')
+    end
+    self
+  end
+  def sisu_is
+    def version_major?
+      version_major
+    end
+    def runtime_path?
+      processing.sisu_runtime_path
+    end
+    def runtime_type?
+      sisu_run_from?
+    end
+    def called_from?
+      sisu_called_from_directory
+    end
+    def path_base?
+      sisu_path_base
+    end
+    def path_base_system_data?
+      sisu_path_base_system_data
+    end
+    def version_info_path?
+      sisu_version_info_path
+    end
+    def language_list?
+      language_list.codes
+    end
+    def language_list_regex?
+      language_list.regex
+    end
+    def git_version_info?
+      git_version
+    end
+    def runtime?
+      {
+        call_path:    called_from?,
+        runtime_path: runtime_path?,
+        runtime_type: runtime_type?,
+      }
+    end
+    self
+  end
+  def get_processing_info
+    def sortout
+      unless @clm_pf
+        processing_files={}
+        command_line_modifiers=[]
+        processing.argv.each do |x|
+          if x =~/^-+/
+            command_line_modifiers << x
+          elsif x =~/\.ss[tm]/
+            if x =~/\//
+              markup_path,markup_file =
+                (/(\S+\/)((?:#{language_list.regex})?[^\/]+)/).
+                match(x)[1,2]
+              if not processing_files[markup_path]
+                processing_files[markup_path]=[]
+              end
+              processing_files[markup_path] << markup_file
+            else
+              if not processing_files['./']
+                processing_files['./']=[]
+              end
+              processing_files['./'] << x
+            end
+          end
+        end
+      end
+      @clm_pf ||={
+        command_line_modifiers: command_line_modifiers,
+        processing_files:       processing_files,
+      }
+    end
+    def command_line_modifiers
+      sortout[:command_line_modifiers]
+    end
+    def processing_files
+      sortout[:processing_files]
+    end
+    self
+  end
+  def control
+    require sisu_this_lib
+    sisu_called_from_directory
+    begin
+      if get_processing_info.processing_files.length > 0
+        get_processing_info.processing_files.each_pair do |markup_dir,markup_file|
+          begin
+            $sisu_document_markup_directory=markup_dir.gsub(/\/$/,'')
+            argv_sub=get_processing_info.command_line_modifiers + markup_file
+            if FileTest.directory?(markup_dir)
+              system("cd #{markup_dir}")
+              Dir.chdir(markup_dir)
+              $sisu_document_markup_directory_base_fixed_path=
+                Dir.pwd.gsub(/\/(?:#{language_list.regex})$/,'')
+              SiSU_libs::CallHubMaster.new(argv_sub,sisu_is.runtime?)
+            elsif markup_dir =~/https?:/
+              markup_file.each do |mf|
+                (FileTest.file?(mf)) \
+                ? (puts 'requested remote file already exists in current directory ' \
+                  + Dir.pwd + ' using ' + mf)
+                : (system("wget #{markup_dir}/#{mf}"))
+              end
+              $sisu_document_markup_directory_base_fixed_path=
+                Dir.pwd.gsub(/\/(?:#{language_list.regex})$/,'')
+              argv_sub=command_line_modifiers + markup_file
+              SiSU_libs::CallHubMaster.new(argv_sub,sisu_is.runtime?)
+            else p "Error directory specified #{markup_dir} not found"
+            end
+          ensure
+            Dir.chdir(sisu_called_from_directory)
+            system("cd #{sisu_called_from_directory}")
+          end
+        end
+      else
+        $sisu_document_markup_directory=Dir.pwd.gsub(/\/$/,'')
+        $sisu_document_markup_directory_base_fixed_path=
+          Dir.pwd.gsub(/(^|\/)(?:#{language_list.regex})$/,'')
+        SiSU_libs::CallHubMaster.new(processing.argv,sisu_is.runtime?)
+      end
+    rescue
+    ensure
+      SiSU_libs::HubClose.new(@argv,sisu_called_from_directory)
+      Dir.chdir(sisu_called_from_directory)
+      system("cd #{sisu_called_from_directory}")
+    end
+  end
+end
+#% sisu select source & branch, begin
+$VERBOSE=nil
+require 'rbconfig'
+begin
+  require 'singleton'
+  s=Orient.instance
+  SiSU_is=s.sisu_is
+  s.control
+rescue #% -
+  STDERR.puts 'ERROR'
+  STDERR.puts $!
+  STDERR.puts $@
+  puts %{
+                    #{%x{ruby -v}.strip.to_s}
+                    #{RUBY_VERSION}
+    ruby version:   #{RbConfig::CONFIG['RUBY_PROGRAM_VERSION']}p#{RbConfig::CONFIG['PATCHLEVEL']}
+    ruby named:     #{RbConfig::CONFIG['ruby_version']}
+    rubylib:        #{RbConfig::CONFIG['rubylibdir']}
+    vendor lib      #{RbConfig::CONFIG['vendordir']}
+    site lib local: #{RbConfig::CONFIG['sitelibdir']}
+    gem dir:        #{Gem.dir}
+    gem path:       #{Gem.path}
+  }
+  system(%{echo "
+    system RUBYPATH: ${RUBYPATH}
+    system RUBYLIB:  ${RUBYLIB}
+  "})
+end
+__END__
+#+END_SRC
+
+** bin/sisu-concordance
+#+HEADER: :tangle "../bin/sisu-concordance"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --concordance ${@}
+#+END_SRC
+
+** bin/sisu-epub
+
+#+HEADER: :tangle "../bin/sisu-epub"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --epub ${@}
+#+END_SRC
+
+** bin/sisu-harvest
+
+#+HEADER: :tangle "../bin/sisu-harvest"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --harvest ${@}
+#+END_SRC
+
+** bin/sisu-html
+
+#+HEADER: :tangle "../bin/sisu-html"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --html ${@}
+#+END_SRC
+
+** bin/sisu-html_scroll
+
+#+HEADER: :tangle "../bin/sisu-html-scroll"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --html-scroll ${@}
+#+END_SRC
+
+** bin/sisu-html-seg
+
+#+HEADER: :tangle "../bin/sisu-html-seg"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --html-seg ${@}
+#+END_SRC
+
+** bin/sisu-odf
+
+#+HEADER: :tangle "../bin/sisu-odf"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --odt ${@}
+#+END_SRC
+
+** bin/sisu-pdf
+
+#+HEADER: :tangle "../bin/sisu-pdf"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --pdf ${@}
+#+END_SRC
+
+** bin/sisu-pdf-portrait
+
+#+HEADER: :tangle "../bin/sisu-pdf-portrait"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --pdf-portrait ${@}
+#+END_SRC
+
+** bin/sisu-pdf-landscape
+
+#+HEADER: :tangle "../bin/sisu-pdf-landscape"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --pdf-landscape ${@}
+#+END_SRC
+
+** bin/sisu-pg
+
+#+HEADER: :tangle "../bin/sisu-pg"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --pg ${@}
+#+END_SRC
+
+** bin/sisu-sqlite
+
+#+HEADER: :tangle "../bin/sisu-sqlite"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --sqlite ${@}
+#+END_SRC
+
+** bin/sisu-txt
+
+#+HEADER: :tangle "../bin/sisu-txt"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu --txt ${@}
+#+END_SRC
+
+** bin/sisu-webrick
+
+#+HEADER: :tangle "../bin/sisu-webrick"
+#+HEADER: :shebang "#!/usr/bin/env sh"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC sh
+sisu -W ${@}
+#+END_SRC
+
+** bin/sisu-misc-utils
+
+#+HEADER: :tangle "../bin/sisu-misc-utils"
+#+HEADER: :shebang "#!/usr/bin/env ruby"
+#+HEADER: :tangle-mode (identity #o755)
+#+BEGIN_SRC ruby
+<<sisu_document_header>>
+begin
+  require 'thor'
+rescue LoadError
+  puts 'thor (package ruby-thor) not found'
+end
+require 'find'
+require 'fileutils'
+  include FileUtils
+require 'pathname'
+require 'rbconfig.rb'
+module SiSUconf
+  class LanguageCodes
+    def language_list
+      def codes
+        %w[am bg bn br ca cs cy da de el en eo es et eu fi fr ga gl he hi hr hy ia is it ja ko la lo lt lv ml mr nl nn no oc pl pt pt_BR ro ru sa se sk sl sq sr sv ta te th tk tr uk ur us vi zh]
+      end
+      def regex
+        codes.join('|')
+      end
+      self
+    end
+  end
+  class DetermineLibsPath
+    def version
+      def stable
+       '5'
+      end
+      def unstable
+       '6'
+      end
+      self
+    end
+    def processing
+      def called_as
+        $0
+        #$called_as
+      end
+      def called_as_exe
+        File.basename(called_as)
+      end
+      def called_as_exe_strip_current_develop
+        File.basename(called_as).gsub(/-(?:current|develop)/,'')
+      end
+      def argv
+        $*
+        #$argv
+      end
+      def argv_str
+        argv.inspect
+      end
+      def file_full_path
+        __FILE__
+      end
+      def current
+        'current'
+      end
+      def next
+        'develop'
+      end
+      def stable_bin_file_regex
+        %r{\bsisu#{version.stable}$}
+      end
+      def unstable_bin_file_regex
+        %r{\bsisu#{version.unstable}$}
+      end
+      def stable_modifier_regex
+        %r{"(?:--v#{version.stable}|--current|--stable)"}
+      end
+      def unstable_modifier_regex
+        %r{"(?:--v#{version.unstable}|--next|--unstable)"}
+      end
+      def lib_filename
+        'sisu_thor_lib'
+      end
+      self
+    end
+    def sisu_run_from?
+      if processing.called_as == processing.file_full_path \
+      and File.dirname(processing.file_full_path) != RbConfig::CONFIG['bindir']
+        :full_path_to_sisu_bin_in_sisu_dir_tree
+      elsif processing.file_full_path =~/\/gems\// \
+      and processing.file_full_path \
+      =~ /\/#{called_as_exe_strip_current_develop}(?:-(?:current|develop))\.(?:\d+|[a-z])\.(?:\d+|[a-z])\//
+        :gem_install
+      else
+        :system_install
+      end
+    end
+    def branch_name_
+      if sisu_run_from? == :full_path_to_sisu_bin_in_sisu_dir_tree \
+      or sisu_run_from? == :system_install
+        case processing.called_as
+        when processing.stable_bin_file_regex      then processing.current
+        when processing.unstable_bin_file_regex    then processing.next
+        else
+          case processing.argv_str
+          when processing.stable_modifier_regex    then processing.current
+          when processing.unstable_modifier_regex  then processing.next
+          else                                          processing.current
+          end
+        end
+      elsif sisu_run_from? == :gem_install
+        case processing.file_full_path
+        when processing.stable_gem_regex           then processing.current
+        when processing.unstable_gem_regex         then processing.next
+        else                                            processing.current
+        end
+      else                                              processing.current
+      end
+    end
+    def sisu_path_specified_lib
+      if (processing.called_as \
+      !~ /^#{RbConfig::CONFIG['bindir']}\/#{called_as_exe_strip_current_develop}(?:-(?:current|develop))?$/)
+        File.expand_path(processing.called_as).
+          sub(/bin\/#{called_as_exe_strip_current_develop}(?:-(?:current|develop))?$/,'lib')
+      else nil
+      end
+    end
+    def sisu_lib
+      "sisu/#{branch_name_}"
+    end
+    def sisu_path_lib
+      if sisu_path_specified_lib \
+      && FileTest.file?("#{sisu_path_specified_lib}/#{sisu_lib}/#{lib_filename}.rb")
+        "#{sisu_path_specified_lib}/#{sisu_lib}"
+      else sisu_lib
+      end
+    end
+  end
+  class Configure < Thor
+    $SiSU_Language_Codes=LanguageCodes.new
+    paths= DetermineLibsPath.new
+    #p "#{paths.sisu_path_lib}/#{paths.processing.lib_filename}"
+    require "#{paths.sisu_path_lib}/#{paths.processing.lib_filename}" # sisu_thor_lib.rb
+    @@source=@@targets=nil
+    include SiSU_Po4a_Actions
+    class_option :verbose, :type => :boolean
+# rake help clean default distclean make manpage readme rebuild
+    desc 'po4a',
+      'place SiSU translations under po4a management' \
+      + 'assist with having sisu markup files managed by po4a' \
+      + 'create configuration files, and language directories and' \
+      + 'populate them with po4a pot & po files for translation and' \
+      + 'from those (as translated) create translated sisu markup' \
+      + '.ssm .sst & .ssi files in corresponding language sub-directories' \
+      + '*WARNING* creates, destroys, overwrites directories not managed by po4a'
+    options \
+      :help => :boolean,
+      :clean => :boolean,
+      #:default => :boolean,
+      :distclean => :boolean,
+      :make => :boolean,
+      :lang_source => :string,
+      :lang_targets => :array,
+      :manpage => :boolean,
+      :readme => :boolean,
+      :rebuild => :boolean,
+      :current => :string,
+      :next => :string,
+      :stable => :string,
+      :unstable => :string
+    def po4a
+      @@source=source=if options[:lang_source] \
+      and not options[:lang_source].empty?
+        options[:lang_source]
+      else nil
+      end
+      @@targets=targets=if options[:lang_targets]
+        options[:lang_targets]
+      else nil
+      end
+      language.translation_languages_selected(targets)
+      language.source_language_selected(source)
+      if options[:help]
+        notice.project_help
+      end
+      if options[:clean]
+        notice.default(:clean)
+        project.clean
+      end
+      #if options[:default]
+      #  notice.project_help
+      #end
+      if options[:distclean]
+        notice.default(:distclean)
+        project.distclean
+      end
+      if options[:make]
+        notice.default(:make)
+        project.make
+      end
+      if options[:manpage]
+        generate.manpage
+      end
+      if options[:readme]
+        generate.readme
+      end
+      if options[:rebuild]
+        notice.default(:rebuild)
+        project.distclean
+        project.make
+      end
+    end
+  end
+end
+begin
+  require 'rbconfig'
+  $called_as,$argv=$0,$*
+  SiSUconf::Configure.start(ARGV)
+rescue
+end
+__END__
+#% manual settings, edit/update as required (note current default settings are obtained from sisu version yml file)
+__END__
+#+END_SRC
+
+* document header
+
+#+NAME: sisu_document_header
+#+BEGIN_SRC text
+#encoding: utf-8
+=begin
+- Name: SiSU
+
+  - Description: documents, structuring, processing, publishing, search
+    sisu
+
+  - Author: Ralph Amissah
+    <ralph.amissah@gmail.com>
+
+  - 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 <http://www.gnu.org/licenses/>.
+
+    If you have Internet connection, the latest version of the GPL should be
+    available at these locations:
+    <http://www.fsf.org/licensing/licenses/gpl.html>
+    <http://www.gnu.org/licenses/gpl.html>
+
+    <http://www.sisudoc.org/sisu/en/manifest/gpl.fsf.html>
+
+  - SiSU uses:
+    - Standard SiSU markup syntax,
+    - Standard SiSU meta-markup syntax, and the
+    - Standard SiSU object citation numbering and system
+
+  - Homepages:
+    <http://www.sisudoc.org>
+
+  - Git
+    <https://git.sisudoc.org/projects/>
+    <https://git.sisudoc.org/projects/?p=software/sisu.git;a=summary>
+    <https://git.sisudoc.org/projects/?p=markup/sisu-markup-samples.git;a=summary>
+=end
+#+END_SRC