*{emphasis}* display configurable as being bold, italics or underscore

 * markup for *{emphasis}* configurable as being displayed as bold, italics or
   underscore, the default is that emphasis output is in bold so there is no
   change unless configured, either in sisurc.yml (default: emphasis: 'bold'), or
   the markup source document header @make: :emphasis: 'bold'

3 files changed, 36 insertions, 14 deletions

diff --git a/lib/sisu/v2/dal_syntax.rb b/lib/sisu/v2/dal_syntax.rb
index 59620856..2b1da084 100644
--- a/lib/sisu/v2/dal_syntax.rb
+++ b/lib/sisu/v2/dal_syntax.rb
@@ -70,12 +70,23 @@ module SiSU_Syntax
       url_and_stub=SiSU_Env::Info_env.new.url
       @output_url="#{url_and_stub.remote}"
       @env=SiSU_Env::Info_env.new
-      emph_italics=((@env.markup_emphasis =~/italics/) \
-      || (defined? @md.make.emphasis && @md.make.emphasis =~/italics/)) \
-      ? true : false
-      @emph=emph_italics \
-      ? ({:o =>Mx[:fa_italics_o], :c =>Mx[:fa_italics_c] }) \
-      : ({:o =>Mx[:fa_bold_o], :c =>Mx[:fa_bold_c] })
+      emph_set=if defined? @md.make.emphasis \
+      and not @md.make.emphasis.nil?
+        @md.make.emphasis
+      else @env.markup_emphasis
+      end
+      @emph=case emph_set
+      when /bold/
+        emph_italics=false
+        {:o =>Mx[:fa_bold_o], :c =>Mx[:fa_bold_c] }
+      when /italics/
+        emph_italics=true
+        {:o =>Mx[:fa_italics_o], :c =>Mx[:fa_italics_c] }
+      when /underscore/
+        emph_italics=false
+        {:o =>Mx[:fa_underscore_o], :c =>Mx[:fa_underscore_c] }
+      else p __LINE__.to_s + '::' + __FILE__
+      end
       @http_m=%r{\{.+?\}https?://\S+|https?:\S+|\.\.\/\S+|\S+?\.png\b|[*]~\S+|^#{Mx[:meta_o]}.+|#{Mx[:gr_o]}(?:code|group|alt|verse)(?:-end)?#{Mx[:gr_c]}|#{Mx[:fa_o]}:br#{Mx[:fa_c]}}
       @manmkp_ital=emph_italics \
       ? '[i/*]\\{.+?\\}[i/*]' \
diff --git a/lib/sisu/v2/param.rb b/lib/sisu/v2/param.rb
index c2ee0737..5df8271e 100644
--- a/lib/sisu/v2/param.rb
+++ b/lib/sisu/v2/param.rb
@@ -658,9 +658,11 @@ module SiSU_Param
           { :str =>'\b(?:' + m + ')\b', :regx => y }
         end
         def emphasis
-          (@h['emphasis'] =~/italics?/) \
-          ? 'italics' \
-          : 'bold'
+          if @h['emphasis'] =~/bold/;                   'bold'
+          elsif @h['emphasis'] =~/italics?/;            'italics'
+          elsif @h['emphasis'] =~/under(?:line|score)/; 'underscore'
+          else nil
+          end
         end
         def plaintext_wrap
           if @h['plaintext_wrap'].to_s =~/\d\d+/ \
diff --git a/lib/sisu/v2/sysenv.rb b/lib/sisu/v2/sysenv.rb
index 4a2f7ee0..5f3695de 100644
--- a/lib/sisu/v2/sysenv.rb
+++ b/lib/sisu/v2/sysenv.rb
@@ -876,11 +876,20 @@ module SiSU_Env
       : (defaults[:concord_max])
     end
     def markup_emphasis
-      ((defined? @rc['default']['emphasis']) \
-      && @rc['default']['emphasis'] \
-      && (@rc['default']['emphasis']=~/italic/)) \
-      ? 'italics' \
-      : 'bold'
+      if defined? @rc['default']['emphasis'] \
+      and @rc['default']['emphasis'] \
+      and @rc['default']['emphasis']=~/bold/
+        'bold'
+      elsif defined? @rc['default']['emphasis'] \
+      and @rc['default']['emphasis'] \
+      and @rc['default']['emphasis']=~/italic/
+        'italics'
+      elsif defined? @rc['default']['emphasis'] \
+      and @rc['default']['emphasis'] \
+      and @rc['default']['emphasis']=~/underscore/
+        'underscore'
+      else 'bold'
+      end
     end
     def plaintext_wrap
       ((defined? @rc['default']['text_wrap']) \