colorize_default Function

  1. face.F90
  2. face
  3. colorize_default

private pure function colorize_default(string, color_fg, color_bg, style) result(colorized)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: string
character(len=*), intent(in), optional :: color_fg
character(len=*), intent(in), optional :: color_bg
character(len=*), intent(in), optional :: style

Return Value character(len=:),allocatable


Calls

proc~~colorize_default~4~~CallsGraph proc~colorize_default~4 colorize_default proc~color_index~4 color_index proc~colorize_default~4->proc~color_index~4 proc~upper~6 upper proc~colorize_default~4->proc~upper~6 proc~style_index~4 style_index proc~colorize_default~4->proc~style_index~4

Called by

proc~~colorize_default~4~~CalledByGraph proc~colorize_default~4 colorize_default interface~colorize~4 colorize interface~colorize~4->proc~colorize_default~4 proc~colors_samples~4 colors_samples proc~colors_samples~4->interface~colorize~4 proc~styles_samples~4 styles_samples proc~styles_samples~4->interface~colorize~4

Contents

Source Code

colorize_default

Source Code

   pure function colorize_default(string, color_fg, color_bg, style) result(colorized)
   !< Colorize and stylize strings, DEFAULT kind.
   character(len=*), intent(in)           :: string    !< Input string.
   character(len=*), intent(in), optional :: color_fg  !< Foreground color definition.
   character(len=*), intent(in), optional :: color_bg  !< Background color definition.
   character(len=*), intent(in), optional :: style     !< Style definition.
   character(len=:), allocatable          :: colorized !< Colorized string.
   integer(int32)                         :: i         !< Counter.

   colorized = string
   if (present(color_fg)) then
      i = color_index(upper(color_fg))
      if (i>0) colorized = CODE_START//trim(COLORS_FG(2, i))//CODE_END//colorized//CODE_CLEAR
   endif
   if (present(color_bg)) then
      i = color_index(upper(color_bg))
      if (i>0) colorized = CODE_START//trim(COLORS_BG(2, i))//CODE_END//colorized//CODE_CLEAR
   endif
   if (present(style)) then
      i = style_index(upper(style))
      if (i>0) colorized = CODE_START//trim(STYLES(2, i))//CODE_END//colorized//CODE_CLEAR
   endif
   endfunction colorize_default