A Testing Journal

Flexible Squares: GMT in entries

murklinstest — Mon, 10 Nov 2008 06:36:07 GMT

Sometimes it's useful to know the exact time a post was made to LJ, especially on your flist. Here's a snippet of code to show the date & time in GMT that the server recorded when the post was made.

1. Make sure you have created a theme layer.

2. If you don't have a function print_entry(Page p, Entry e, Color bgcolor, Color fgcolor) in your theme layer yet, go to the Flexible Squares source, find the function, and copy it to your theme layer.

3. Add the two segments of blue code below to your theme layer's print_entry function:

function print_entry(Page p, Entry e, Color bgcolor, Color fgcolor)
{
    """<a name="$e.journal.username$e.itemid"></a>""";
    $e->print_linkbar();


    # Userpic

    var string userpic = "";
    if ($*show_entry_userpic)
    {
        if ($p.view == "friends" or $p.view == "entry" or $p.view == "reply")
        {
            if (defined $e.userpic)
                 {
                $userpic = $userpic + """<img src="$e.userpic.url" width="$e.userpic.width" height="$e.userpic.height"  alt="$e.poster.name" title="$e.poster.name""";
                    if ($e.poster.username != $e.journal.username)
                        {
                            $userpic = $userpic + " in $e.journal.name";
                        }
                    $userpic = $userpic + "\">";
                }
        }
        elseif ($p.journal_type == "C" and $p.view == "recent")
        {
            if (defined $e.userpic)
                 {
                $userpic = $userpic + """<img src="$e.userpic.url" width="$e.userpic.width" height="$e.userpic.height"  alt="$e.poster.name" title="$e.poster.name" />""";
                }
        }
    else
        {
            if (defined $e.userpic)
                {
                 $userpic = $userpic + """<div class="userpic"><img src="$e.userpic.url" width="$e.userpic.width" height="$e.userpic.height" alt="$e.poster.name" title="$e.poster.name" /></div>""";
                }
    }
    }
    print """
        <div class="subcontent">
        """;
        if (($p.view == "recent" and $p.journal_type != "C" ) or $p.view == "day")
        {
            print """$userpic""";
        }
        else
        {
            if ($p.view == "recent" and $p.journal_type == "C" )
            {
                """<div class="userpicfriends" style="background-color: $*entry_bgcolor;">""";
            }
            else
            {
                """<div class="userpicfriends" style="background-color: $bgcolor;">""";
            }
            print """$userpic""";


    # Poster

            if ($p.view == "friends" or $p.view == "entry" or $p.view == "reply")
            {
                var UserLite linkto;
                $linkto = $e.poster;
                #print "$e.poster.username";
                """<br /><a href=\"""" + $linkto->base_url() + "\">";
                 "<font color=\"$fgcolor\">$linkto.username</font></a>";
            }
            elseif ($p.journal_type == "C" and $p.view == "recent")
            {
                var UserLite linkto;
                $linkto = $e.poster;
                #print "$e.poster.username";
                """<br /><a href=\"""" + $linkto->base_url() + "\">";
                 "$linkto.username</a>";
            }
            if (($p.view == "friends" or $p.view == "entry" or $p.view == "reply") and $e.poster.username != $e.journal.username)
            {
                    var UserLite linkto;
                $linkto = $e.journal;
                """<br />[<a href=\"""" + $linkto->base_url() + "\">";
                 "<font color=\"$fgcolor\">$linkto.username</font></a>]";
            }
            if ($p.view == "recent" and $p.journal_type == "C")
            {
                print "</div>";
            }
            if ($p.view != "recent" and $p.view != "day")
            {
                print """</div>""";
            }
        }



    # Date, time, subject

            # Show the system time in GMT
            var DateTime gmt = $e.system_time;
            var string gmtstr = "";
            if ($p.view == "friends") {
                $gmtstr = """ <span class="gmtdatetiem">[""" + $gmt->date_format("%%mon%%. %%dayord%%") + " " + $gmt->time_format() + " GMT]</span>";
            }

            var string time = "";
            $time = $time + """ @ """;
            $time = $time + $e.time->time_format("short");
            var string date = "";
            $date = $date + $e.time->date_format("long_day");
            """
            <div class="datesubject"><div class="date">""";
                print $e.time->date_format("%%dd%% %%month%% %%yyyy%%");
                "$time $gmtstr
               </div>";
            """
            <div class="subject">""";
                if ($e.security != "")
                {
                    $e.security_icon->print();
                }        
                if ($p.view != "entry") {
                   """<a href="$e.permalink_url">$e.subject</a> &nbsp;""";
                }
                else { print "$e.subject &nbsp;"; }
            """</div>
        </div>
        """;

         """
         <div class="entry">
              <div class="entry_text">""";

                        $e->print_text();
                        print "</div> ";

            # Currents

            var string currents ="";
            $e->print_metadata();

            # Comments

            """
            <div class="clear">&nbsp;</div>
            <div class="comments">""";
             if ($p.view != "entry" or $p.view != "reply")
            {
                 $e.comments->print();
            }
            elseif ($e.comments.enabled)
            {
                $e.comments->print_postlink();
            }
            else
            {
                "&nbsp;";
            }
            """
            </div>
        </div>
    </div>

    <div class="separator"></div>
    <div class="clear">&nbsp;</div>""";
}

4. If you only want to show the system datetime in GMT on your Friends Page entries, hit Save & Compile and you're done! If you prefer to have the system datetime show on ALL entries in your journal, go on to step 5.

5. In the first segment of blue code that you added to the print_entry function, find and delete these two highlighted lines:

            # Show the system time in GMT
            var DateTime gmt = $e.system_time;
            var string gmtstr = "";
            if ($p.view == "friends") {
                $gmtstr = """ <span class="gmtdatetime">[""" + $gmt->date_format("%%mon%%. %%dayord%%") + " " + $gmt->time_format() + " GMT]</span>";
            }

Now hit Save & Compile and you're done!

Style Contest: Multi-Level Tags with Abbreviations and Menu Links

murklinstest — Thu, 10 May 2007 23:18:03 GMT

This is code for when you have a lot of tag tiers, with long names, and you want to use a lot of abbreviations in the tags themselves, but have the Tags Page and sidebar tags box show the full tier names. This code also includes internal anchors to the first and second level tiers, and prints above the tiered list some menu links that point to those anchors. All top level tiers are in one group, and then you can customize which second level tiers you would like to have menu links for. Each second level tier you select will have its own group of links.

Step 1
First, add this code near the top of your theme layer, just after all your set lines. Here you are setting up the long form tier names and the abbreviations they map to. These will be used both on the Tags Page and in the sidebar box. Replace the example tags and abbreviations with your own. Notice that if you have built spaces into your tags after the delimiter character, you need to include that space here as well.

class TagAliases {
  var string{} tag_aliases;
  function init();
}

#### CONFIGURE THE TAG ALIASES ####

function TagAliases::init() {
    $this.tag_aliases = {
      "[fandom wips]" => "01",
      "[rps wips]" => "02",
      "[other wips]" => "03",
      " smallville" => " sv",
      " cw network" => " cw",
      " character" => " ch",
      " slash" => " sl"
    };
}

###################################

Step 2
Now add to your theme layer the sidebar box code and configure the blue values as desired:

function print_module_tags(string title) {

#####   Config   #####

  # Specify your delimiter.  One char only -- extra chars get truncated.
  var string delimiter = ":";

  # Do you want to show the tag use counts? Set to true or false.
  var bool show_count = false;

  # Specify the text to show just before the use count, if any.
  var string pre_count = "[";

  # Specify the text to show just after the use count, if any.
  var string post_count = "]";

  # Which secondary menus do you want to show? Use long form names, not abbreviations.
  # Separate each one by a comma. Only include spaces if they are used in the tag itself.
  var string secondary_menus = "fanfiction,length";

##### End Config #####

  var Page p = get_page();
  var string list = "";
  var string menuone = "";
  var string{} menutwo = {"" => ""};
  var TagAliases ta = new TagAliases;
  $ta->init();
  var string{} tag_aliases = $ta.tag_aliases;

  if (size $p->visible_tag_list() > 0) { 
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    } 

    # mt:20070501
    var string{} tag_aliases_short;
    # Reindex tag alias hash using the values as keys to make lookups easier
    foreach var string k ($tag_aliases) {
      var string new_key = $tag_aliases{$k};
      $tag_aliases_short{$new_key} = $k;
    } 

    # mt:20070502
    # Reindex the tags so that we can quickly look up which tiers are true tags, not just labels
    var TagDetail{} truetags;
    foreach var TagDetail t ($p->visible_tag_list()) {
      $truetags{$t.name} = $t;            
    }

    var string[] closing_html;
    var string[] prev_tags;
    var int tag_list_pos = 0;
    var string tier_code = "";
    $closing_html[0] = "";
    $prev_tags[0] = "";
    foreach var TagDetail t ($p->visible_tag_list()) {
      var string[] tags;
 
      if ($t.name) {  
        # mt:20050623
        # Split tags into array on delimiter. Oh god, my kingdom
        # for a function.  Stolen shamelessly from lj-user rane500.
        var int array_counter = 0;
        var string buffer = "";
        foreach var string char ($t.name) {
          if($char == $delimiter) {
            $tags[$array_counter] = $buffer;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;
  
        var int pos = 0;
        var bool show_all_tiers = false;
        var string menulink = "";
        var string menuheader = "";
        foreach var string tier($tags) {
          if (size $closing_html <= $pos) {
            # mt:20050623
            # $closing_html keeps track of html that is used to close off open
            # lists.  Its length must be kept >= to that of the current tag.
            $closing_html[$pos] = "";
          }   

          if (size $prev_tags <= $pos) {
            # mt:20050625
            # The current tag has more tiers than the previous tag.  To avoid array
            # ref errors when comparing the current tier to the previous one (which
            # is non-existent, of course) add empty string to $prev_tags.
            $prev_tags[$pos] = "";
          }

          # mt:20070503
          # Find out if this tier is an alias for a longer tag name
          var string longname = $tier;
          if ($tag_aliases_short{$tier}) {
            $longname = $tag_aliases_short{$tier};
          }

          # mt:20070503
          # Find out if this tier has a longer form tag later or earlier in the list
          var string parenttiers  = "";
          if ($pos > 0) {
            foreach var int i (0 .. ($pos - 1)) {
              $parenttiers  = $parenttiers + ($parenttiers == "" ? "" : $delimiter) + $tags[$i];
            }
          }
          var string realtagname = $parenttiers + ($parenttiers == "" ? "" : $delimiter) + $longname;
          var TagDetail realtag;
          if ($truetags{$realtagname}) {
            $realtag = $truetags{$realtagname};
          }
          else {
            $realtagname = "";
          }

          # mt:20070509
          # Add anchors to first and second level tiers and generate menu links
          var string anchor = "";
          $menulink = "";
          if (($pos == 0) or ($pos == 1)) {
            $anchor = """<a name="taganchor$delimiter$tags[0]""";
            $anchor =  ($pos == 1) ? $anchor + $delimiter + $tags[1] : $anchor;
            $anchor = $anchor + """"></a>""";

            if ($pos == 0) {
              $menulink = """<a href="#taganchor$delimiter$tags[0]">$longname</a>""";
            }
            elseif ($pos == 1) {
              $menuheader = $tags[0];
              if ($tag_aliases_short{$tags[0]}) {
                $menuheader = $tag_aliases_short{$tags[0]};
              }
              $menulink = """<a href="#taganchor$delimiter$tags[0]$delimiter$tags[1]">$longname</a>""";
            }
          } 

          # mt:20070503
          # If we're on a tag's last tier, or if this tier (plus parent tiers) maps to a longer form real tag 
          # we need to return a link to the tag, otherwise plain text is returned.
          if ((size $tags == ($pos + 1)) or (defined $realtag)) {
            # mt:20070503
            # Find out if this tag is the longer form tag of an alias (in which case we need to hide it, since
            # it will be displayed instead of the alias, and shouldn't be repeated).
            var bool hasalias = false;
            if ($tag_aliases{$tier}) {
              $hasalias = true;
            }
            if ($hasalias and (size $tags == ($pos + 1))) {
              $tier_code = "";              
            }
            elseif (defined $realtag) {
              $tier_code = """$anchor<a href="$realtag.url">$longname</a>""";
            }
            else {
              $tier_code = """$anchor<a href="$t.url">$longname</a>""";
            }

            if ($show_count and ($tier_code != "")) {
              var int c = $t.use_count;
              if (defined $realtag) {
                $c = $realtag.use_count;
              }
              $tier_code = $tier_code + """&nbsp;${pre_count}$c${post_count}""";
            }
          }
          else {
            $tier_code = "$anchor$longname";
          }

          # mt:20070503
          # If we've decided that this tag needs to be skipped, do nothing on this loop
          if ($tier_code != "") {

          # mt:20050625
          # $prev_tags stuffed with dummy empty string when it has fewer tiers than 
          # current tag.
          if ($prev_tags[$pos] == "") {     
            # mt:20050623
            # The current tag has more tiers than the previous tag, so a new
            # list must be opened.  
            if (($tag_list_pos == 0) and ($pos == 0)) {
              # mt:20061216
              # The outermost ul is supplied later so omit it from this stage.
              $list = $list + """<li class="module-list-item">$tier_code""";                  
              $closing_html[$pos] = "</li>";  
            }
            else {
              $list = $list + """<ul><li class="module-list-item">$tier_code""";                  
              $closing_html[$pos] = "</li></ul>";
            }

            # mt:20070509
            # Add this as a menu link at the top of the page
            if ($pos == 0) {
              $menuone = $menuone + (($menuone == "") ? "" : " | ") + $menulink;
            }
            elseif ($pos == 1) {
              $menutwo{$menuheader} = $menutwo{$menuheader} + (($menutwo{$menuheader} == "") ? "" : " | ") +  $menulink;
            }  
          }
          elseif (($tags[$pos] != $prev_tags[$pos]) or ($show_all_tiers)) {  
            if ($tags[$pos] != $prev_tags[$pos]) { 
              # mt:20050623
              # The current tag's tier is not the same as the previous tag's tier of  
              # the same level.  This means we may need to close some lists.
              var int i = size $closing_html;
              foreach var string html ($closing_html) {
                if ($i > $pos) {
                  $list = $list + $closing_html[$i];                                 
                  # mt:20050623: As we append the closing code, pop it off the array.
                  $closing_html[$i] = "";
                }
                $i--;
              }   
              # mt:20070507
              # If we just closed some lists, that means that any lower tiers in this tag need to 
              # be explicitly displayed, even if they match the same-level tier of the previous tag
              $show_all_tiers = true;                 
            } 

            if ($closing_html[$pos] == "") {          
              # mt:20050623
              # This is the first tier at this level, so open list.
              $list = $list + """<ul><li class="module-list-item">$tier_code""";
              $closing_html[$pos] = "</li></ul>";
            }
            else {              
              # mt:20050623
              # There have already been tiers added at this level, so just close the previous
              # list item before adding the new tier.
              $list = $list + """</li><li class="module-list-item">$tier_code""";
            }      
     
            # mt:20070509
            # Add this as a menu link at the top of the page
            if ($pos == 0) {
              $menuone = $menuone + (($menuone == "") ? "" : " | ") + $menulink;
            }
            elseif ($pos == 1) {
              $menutwo{$menuheader} = $menutwo{$menuheader} + (($menutwo{$menuheader} == "") ? "" : " | ") +  $menulink;
            }                   
          }
          else {
            # mt:20050623
            # The current tag's tier is exactly the same as the previous tag's tier at
            # this same level.  It has already been included in the list, so do nothing.
          }  
          }
          # mt:20050623: Moving on to next tier in this tag!
          $pos++;
        }
        $prev_tags = $tags;      
        $show_all_tiers = false;       
      }        
      # mt:20050623: Next tag in the list!
      $tag_list_pos++;
    }  

    # mt:20050623
    # All the tags have been added so close all outstanding lists.
    var int i = 0;
    var string remaining_html = "";
    foreach var string html ($closing_html) { 
      if ($html != "") {
        $remaining_html = $html + $remaining_html;
        $closing_html[$i] = "";
      }
      $i++;
    }
    $list = """<ul class="module-list">""" + $list + $remaining_html + "</ul>";

    # mt:20070510
    # Add bracketing commas to the secondary menu links
    if ($secondary_menus->ends_with(",") == false) { 
      $secondary_menus = $secondary_menus + ",";
    }
    if ($secondary_menus->starts_with(",") == false) {
      $secondary_menus = "," + $secondary_menus;
    }

    open_module("categories", $title, "");

    # mt:20070510
    # Print the primary menu links
    print ($menuone == "") ? "" : """<p class="topmenuone">[ $menuone ]</p>""";

    # mt:20070510
    # Print the secondary menu links
    foreach var string toplevel ($menutwo) {
      if ($toplevel != "") {
        if ($secondary_menus->contains("," + $toplevel + ",")) {
          print ($menutwo{$toplevel} == "") ? "" : """<p class="topmenutwo"><span class="topmenuheader">$toplevel</span> [ $menutwo{$toplevel} ]</p>""";
        }
      }
    }

    println $list;
    close_module();
  }
}

Step 3
Finally, add this function for the Tags Page, again altering the blue configuration variables:

function TagsPage::print_body() {

#####   Config   #####

  # Specify your delimiter.  One char only -- extra chars get truncated.
  var string delimiter = ":";

  # Do you want to show the tag use counts? Set to true or false.
  var bool show_count = true;

  # Specify the page title. Defaults to the core layer's value for
  # the Tags Page title. Change to your text, surrounded by quotes, eg:
  # var string page_title = "My Tags List";
  var string page_title = $*text_tags_page_header;

  # Which secondary menus do you want to show? Use long form names, not abbreviations.
  # Separate each one by a comma. Only include spaces if they are used in the tag itself.
  var string secondary_menus = "fanfiction,length";

##### End Config #####

  var Page p = $this;
  var string list = "";
  var string menuone = "";
  var string{} menutwo = {"" => ""};
  var TagAliases ta = new TagAliases;
  $ta->init();
  var string{} tag_aliases = $ta.tag_aliases;

  if (size $p->visible_tag_list() > 0) { 
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    } 

    # mt:20070501
    var string{} tag_aliases_short;
    # Reindex tag alias hash using the values as keys to make lookups easier
    foreach var string k ($tag_aliases) {
      var string new_key = $tag_aliases{$k};
      $tag_aliases_short{$new_key} = $k;
    } 

    # mt:20070502
    # Reindex the tags so that we can quickly look up which tiers are true tags, not just labels
    var TagDetail{} truetags;
    foreach var TagDetail t ($p->visible_tag_list()) {
      $truetags{$t.name} = $t;            
    }

    var string[] closing_html;
    var string[] prev_tags;
    var int tag_list_pos = 0;
    var string tier_code = "";
    $closing_html[0] = "";
    $prev_tags[0] = "";
    foreach var TagDetail t ($p->visible_tag_list()) {
      var string[] tags;
 
      if ($t.name) {  
        # mt:20050623
        # Split tags into array on delimiter. Oh god, my kingdom
        # for a function.  Stolen shamelessly from lj-user rane500.
        var int array_counter = 0;
        var string buffer = "";
        foreach var string char ($t.name) {
          if($char == $delimiter) {
            $tags[$array_counter] = $buffer;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;
  
        var int pos = 0;
        var bool show_all_tiers = false;
        var string menulink = "";
        var string menuheader = "";
        foreach var string tier($tags) {
          if (size $closing_html <= $pos) {
            # mt:20050623
            # $closing_html keeps track of html that is used to close off open
            # lists.  Its length must be kept >= to that of the current tag.
            $closing_html[$pos] = "";
          }   

          if (size $prev_tags <= $pos) {
            # mt:20050625
            # The current tag has more tiers than the previous tag.  To avoid array
            # ref errors when comparing the current tier to the previous one (which
            # is non-existent, of course) add empty string to $prev_tags.
            $prev_tags[$pos] = "";
          }

          # mt:20070503
          # Find out if this tier is an alias for a longer tag name
          var string longname = $tier;
          if ($tag_aliases_short{$tier}) {
            $longname = $tag_aliases_short{$tier};
          }

          # mt:20070503
          # Find out if this tier has a longer form tag later or earlier in the list
          var string parenttiers  = "";
          if ($pos > 0) {
            foreach var int i (0 .. ($pos - 1)) {
              $parenttiers  = $parenttiers + ($parenttiers == "" ? "" : $delimiter) + $tags[$i];
            }
          }
          var string realtagname = $parenttiers + ($parenttiers == "" ? "" : $delimiter) + $longname;
          var TagDetail realtag;
          if ($truetags{$realtagname}) {
            $realtag = $truetags{$realtagname};
          }
          else {
            $realtagname = "";
          }

          # mt:20070509
          # Add anchors to first and second level tiers and generate menu links
          var string anchor = "";
          $menulink = "";
          if (($pos == 0) or ($pos == 1)) {
            $anchor = """<a name="taganchor$delimiter$tags[0]""";
            $anchor =  ($pos == 1) ? $anchor + $delimiter + $tags[1] : $anchor;
            $anchor = $anchor + """"></a>""";

            if ($pos == 0) {
              $menulink = """<a href="#taganchor$delimiter$tags[0]">$longname</a>""";
            }
            elseif ($pos == 1) {
              $menuheader = $tags[0];
              if ($tag_aliases_short{$tags[0]}) {
                $menuheader = $tag_aliases_short{$tags[0]};
              }
              $menulink = """<a href="#taganchor$delimiter$tags[0]$delimiter$tags[1]">$longname</a>""";
            }
          }  

          # mt:20070503
          # If we're on a tag's last tier, or if this tier (plus parent tiers) maps to a longer form real tag 
          # we need to return a link to the tag, otherwise plain text is returned.
          if ((size $tags == ($pos + 1)) or (defined $realtag)) {
            # mt:20070503
            # Find out if this tag is the longer form tag of an alias (in which case we need to hide it, since
            # it will be displayed instead of the alias, and shouldn't be repeated).
            var bool hasalias = false;
            if ($tag_aliases{$tier}) {
              $hasalias = true;
            }
            if ($hasalias and (size $tags == ($pos + 1))) {
              $tier_code = "";              
            }
            elseif (defined $realtag) {
              $tier_code = """$anchor<a href="$realtag.url">$longname</a>""";
            }
            else {
              $tier_code = """$anchor<a href="$t.url">$longname</a>""";
            }

            if ($show_count and ($tier_code != "")) {
              var string uses = get_plural_phrase($t.use_count, "text_tag_uses");
              if (defined $realtag) {                
                $uses = get_plural_phrase($realtag.use_count, "text_tag_uses");
              }
              $tier_code = $tier_code + """ - $uses""";
            }
          }
          else {
            $tier_code = "$anchor$longname";
          }

          # mt:20070503
          # If we've decided that this tag needs to be skipped, do nothing on this loop
          if ($tier_code != "") {

          # mt:20050625
          # $prev_tags stuffed with dummy empty string when it has fewer tiers than 
          # current tag.
          if ($prev_tags[$pos] == "") {     
            # mt:20050623
            # The current tag has more tiers than the previous tag, so a new
            # list must be opened.  
            if (($tag_list_pos == 0) and ($pos == 0)) {
              # mt:20061216
              # The outermost ul is supplied later so omit it from this stage.
              $list = $list + """<li>$tier_code""";                  
              $closing_html[$pos] = "</li>";  
            }
            else {
              $list = $list + """<ul><li>$tier_code""";                  
              $closing_html[$pos] = "</li></ul>";
            }

            # mt:20070509
            # Add this as a menu link at the top of the page
            if ($pos == 0) {
              $menuone = $menuone + (($menuone == "") ? "" : " | ") + $menulink;
            }
            elseif ($pos == 1) {
              $menutwo{$menuheader} = $menutwo{$menuheader} + (($menutwo{$menuheader} == "") ? "" : " | ") +  $menulink;
            }  
          }
          elseif (($tags[$pos] != $prev_tags[$pos]) or ($show_all_tiers)) {   
            if ($tags[$pos] != $prev_tags[$pos]) {
              # mt:20050623
              # The current tag's tier is not the same as the previous tag's tier of  
              # the same level.  This means we may need to close some lists.
              var int i = size $closing_html;
              foreach var string html ($closing_html) {
                if ($i > $pos) {
                  $list = $list + $closing_html[$i];                                 
                  # mt:20050623: As we append the closing code, pop it off the array.
                  $closing_html[$i] = "";
                }
                $i--;
              }   
              # mt:20070507
              # If we just closed some lists, that means that any lower tiers in this tag need to 
              # be explicitly displayed, even if they match the same-level tier of the previous tag
              $show_all_tiers = true;   
            }                  
 
            if ($closing_html[$pos] == "") {          
              # mt:20050623
              # This is the first tier at this level, so open list.
              $list = $list + """<ul><li>$tier_code""";
              $closing_html[$pos] = "</li></ul>";
            }
            else {              
              # mt:20050623
              # There have already been tiers added at this level, so just close the previous
              # list item before adding the new tier.
              $list = $list + """</li><li>$tier_code""";
            }    
     
            # mt:20070509
            # Add this as a menu link at the top of the page
            if ($pos == 0) {
              $menuone = $menuone + (($menuone == "") ? "" : " | ") + $menulink;
            }
            elseif ($pos == 1) {
              $menutwo{$menuheader} = $menutwo{$menuheader} + (($menutwo{$menuheader} == "") ? "" : " | ") +  $menulink;
            }  
          }
          else {
            # mt:20050623
            # The current tag's tier is exactly the same as the previous tag's tier at
            # this same level.  It has already been included in the list, so do nothing.
          }  
          }
          # mt:20050623: Moving on to next tier in this tag!
          $pos++;
        }
        $prev_tags = $tags; 
        $show_all_tiers = false;      
      }        
      # mt:20050623: Next tag in the list!
      $tag_list_pos++;
    }  

    # mt:20050623
    # All the tags have been added so close all outstanding lists.
    var int i = 0;
    var string remaining_html = "";
    foreach var string html ($closing_html) { 
      if ($html != "") {
        $remaining_html = $html + $remaining_html;
        $closing_html[$i] = "";
      }
      $i++;
    }
    $list = $list + $remaining_html;
  }

  print """<div class="entry">""";
  print """<h3 class="entry-header">$page_title</h3><div class="entry-content"><div class="entry-body">""";
  print ($menuone == "") ? "" : """<p class="topmenuone">[ $menuone ]</p>""";

  if ($secondary_menus->ends_with(",") == false) { 
    $secondary_menus = $secondary_menus + ",";
  }
  if ($secondary_menus->starts_with(",") == false) {
    $secondary_menus = "," + $secondary_menus;
  }
  foreach var string toplevel ($menutwo) {
    if ($toplevel != "") {
      if ($secondary_menus->contains("," + $toplevel + ",")) {
        print ($menutwo{$toplevel} == "") ? "" : """<p class="topmenutwo"><span class="topmenuheader">$toplevel</span> [ $menutwo{$toplevel} ]</p>""";
      }
    }
  } 
  
  print """<ul class="ljtaglist">""";
  print $list;
  print "</ul>";
  print "</div></div></div>";
}

Style Contest: Multi-Level Tags Box and Tags Page with Abbreviations

murklinstest — Sat, 05 May 2007 21:19:06 GMT

This is code for when you have a lot of tag tiers, with long names, and you want to use a lot of abbreviations in the tags themselves, but have the Tags Page and sidebar tags box show the full tier names.

Step 1
First, add this code near the top of your theme layer, just after all your set lines. Here you are setting up the long form tier names and the abbreviations they map to. These will be used both on the Tags Page and in the sidebar box. Replace the example tags and abbreviations with your own. Notice that if you have built spaces into your tags after the delimiter character, you need to include that space here as well.

class TagAliases {
  var string{} tag_aliases;
  function init();
}

#### CONFIGURE THE TAG ALIASES ####

function TagAliases::init() {
    $this.tag_aliases = {
      "[fandom wips]" => "01",
      "[rps wips]" => "02",
      "[other wips]" => "03",
      " smallville" => " sv",
      " cw network" => " cw",
      " character" => " ch",
      " slash" => " sl"
    };
}

###################################

Step 2
Now add to your theme layer the sidebar box code and configure the blue values as desired:

function print_module_tags(string title) {

#####   Config   #####

  # Specify your delimiter.  One char only -- extra chars get truncated.
  var string delimiter = ":";

  # Do you want to show the tag use counts? Set to true or false.
  var bool show_count = false;

  # Specify the text to show just before the use count, if any.
  var string pre_count = "[";

  # Specify the text to show just after the use count, if any.
  var string post_count = "]";

##### End Config #####

  var Page p = get_page();
  var string list = "";
  var TagAliases ta = new TagAliases;
  $ta->init();
  var string{} tag_aliases = $ta.tag_aliases;

  if (size $p->visible_tag_list() > 0) { 
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    } 

    # mt:20070501
    var string{} tag_aliases_short;
    # Reindex tag alias hash using the values as keys to make lookups easier
    foreach var string k ($tag_aliases) {
      var string new_key = $tag_aliases{$k};
      $tag_aliases_short{$new_key} = $k;
    } 

    # mt:20070502
    # Reindex the tags so that we can quickly look up which tiers are true tags, not just labels
    var TagDetail{} truetags;
    foreach var TagDetail t ($p->visible_tag_list()) {
      $truetags{$t.name} = $t;            
    }

    var string[] closing_html;
    var string[] prev_tags;
    var int tag_list_pos = 0;
    var string tier_code = "";
    $closing_html[0] = "";
    $prev_tags[0] = "";
    foreach var TagDetail t ($p->visible_tag_list()) {
      var string[] tags;
 
      if ($t.name) {  
        # mt:20050623
        # Split tags into array on delimiter. Oh god, my kingdom
        # for a function.  Stolen shamelessly from lj-user rane500.
        var int array_counter = 0;
        var string buffer = "";
        foreach var string char ($t.name) {
          if($char == $delimiter) {
            $tags[$array_counter] = $buffer;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;
  
        var int pos = 0;
        var bool show_all_tiers = false;
        foreach var string tier($tags) {
          if (size $closing_html <= $pos) {
            # mt:20050623
            # $closing_html keeps track of html that is used to close off open
            # lists.  Its length must be kept >= to that of the current tag.
            $closing_html[$pos] = "";
          }   

          if (size $prev_tags <= $pos) {
            # mt:20050625
            # The current tag has more tiers than the previous tag.  To avoid array
            # ref errors when comparing the current tier to the previous one (which
            # is non-existent, of course) add empty string to $prev_tags.
            $prev_tags[$pos] = "";
          }

          # mt:20070503
          # Find out if this tier is an alias for a longer tag name
          var string longname = $tier;
          if ($tag_aliases_short{$tier}) {
            $longname = $tag_aliases_short{$tier};
          }

          # mt:20070503
          # Find out if this tier has a longer form tag later or earlier in the list
          var string parenttiers  = "";
          if ($pos > 0) {
            foreach var int i (0 .. ($pos - 1)) {
              $parenttiers  = $parenttiers + ($parenttiers == "" ? "" : $delimiter) + $tags[$i];
            }
          }
          var string realtagname = $parenttiers + ($parenttiers == "" ? "" : $delimiter) + $longname;
          var TagDetail realtag;
          if ($truetags{$realtagname}) {
            $realtag = $truetags{$realtagname};
          }
          else {
            $realtagname = "";
          }

          # mt:20070503
          # If we're on a tag's last tier, or if this tier (plus parent tiers) maps to a longer form real tag 
          # we need to return a link to the tag, otherwise plain text is returned.
          if ((size $tags == ($pos + 1)) or (defined $realtag)) {
            # mt:20070503
            # Find out if this tag is the longer form tag of an alias (in which case we need to hide it, since
            # it will be displayed instead of the alias, and shouldn't be repeated).
            var bool hasalias = false;
            if ($tag_aliases{$tier}) {
              $hasalias = true;
            }
            if ($hasalias and (size $tags == ($pos + 1))) {
              $tier_code = "";              
            }
            elseif (defined $realtag) {
              $tier_code = """<a href="$realtag.url">$longname</a>""";
            }
            else {
              $tier_code = """<a href="$t.url">$longname</a>""";
            }

            if ($show_count and ($tier_code != "")) {
              var int c = $t.use_count;
              if (defined $realtag) {
                $c = $realtag.use_count;
              }
              $tier_code = $tier_code + """&nbsp;${pre_count}$c${post_count}""";
            }
          }
          else {
            $tier_code = "$longname";
          }

          # mt:20070503
          # If we've decided that this tag needs to be skipped, do nothing on this loop
          if ($tier_code != "") {

          # mt:20050625
          # $prev_tags stuffed with dummy empty string when it has fewer tiers than 
          # current tag.
          if ($prev_tags[$pos] == "") {     
            # mt:20050623
            # The current tag has more tiers than the previous tag, so a new
            # list must be opened.  
            if (($tag_list_pos == 0) and ($pos == 0)) {
              # mt:20061216
              # The outermost ul is supplied later so omit it from this stage.
              $list = $list + """<li class="module-list-item">$tier_code""";                  
              $closing_html[$pos] = "</li>";  
            }
            else {
              $list = $list + """<ul><li class="module-list-item">$tier_code""";                  
              $closing_html[$pos] = "</li></ul>";
            }
          }
          elseif (($tags[$pos] != $prev_tags[$pos]) or ($show_all_tiers)) {  
            if ($tags[$pos] != $prev_tags[$pos]) { 
              # mt:20050623
              # The current tag's tier is not the same as the previous tag's tier of  
              # the same level.  This means we may need to close some lists.
              var int i = size $closing_html;
              foreach var string html ($closing_html) {
                if ($i > $pos) {
                  $list = $list + $closing_html[$i];                                 
                  # mt:20050623: As we append the closing code, pop it off the array.
                  $closing_html[$i] = "";
                }
                $i--;
              }   
              # mt:20070507
              # If we just closed some lists, that means that any lower tiers in this tag need to 
              # be explicitly displayed, even if they match the same-level tier of the previous tag
              $show_all_tiers = true;                 
            } 

            if ($closing_html[$pos] == "") {          
              # mt:20050623
              # This is the first tier at this level, so open list.
              $list = $list + """<ul><li class="module-list-item">$tier_code""";
              $closing_html[$pos] = "</li></ul>";
            }
            else {              
              # mt:20050623
              # There have already been tiers added at this level, so just close the previous
              # list item before adding the new tier.
              $list = $list + """</li><li class="module-list-item">$tier_code""";
            }                    
          }
          else {
            # mt:20050623
            # The current tag's tier is exactly the same as the previous tag's tier at
            # this same level.  It has already been included in the list, so do nothing.
          }  
          }
          # mt:20050623: Moving on to next tier in this tag!
          $pos++;
        }
        $prev_tags = $tags;      
        $show_all_tiers = false;       
      }        
      # mt:20050623: Next tag in the list!
      $tag_list_pos++;
    }  

    # mt:20050623
    # All the tags have been added so close all outstanding lists.
    var int i = 0;
    var string remaining_html = "";
    foreach var string html ($closing_html) { 
      if ($html != "") {
        $remaining_html = $html + $remaining_html;
        $closing_html[$i] = "";
      }
      $i++;
    }
    $list = """<ul class="module-list">""" + $list + $remaining_html + "</ul>";

    open_module("categories", $title, "");
    println $list;
    close_module();
  }
}

Stpe 3
Finally, add this fucntion for the Tags Page, again altering the blue configuration variables:

function TagsPage::print_body() {

#####   Config   #####

  # Specify your delimiter.  One char only -- extra chars get truncated.
  var string delimiter = ":";

  # Do you want to show the tag use counts? Set to true or false.
  var bool show_count = true;

  # Specify the page title. Defaults to the core layer's value for
  # the Tags Page title. Change to your text, surrounded by quotes, eg:
  # var string page_title = "My Tags List";
  var string page_title = $*text_tags_page_header;

##### End Config #####

  var Page p = $this;
  var string list = "";
  var TagAliases ta = new TagAliases;
  $ta->init();
  var string{} tag_aliases = $ta.tag_aliases;

  if (size $p->visible_tag_list() > 0) { 
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    } 

    # mt:20070501
    var string{} tag_aliases_short;
    # Reindex tag alias hash using the values as keys to make lookups easier
    foreach var string k ($tag_aliases) {
      var string new_key = $tag_aliases{$k};
      $tag_aliases_short{$new_key} = $k;
    } 

    # mt:20070502
    # Reindex the tags so that we can quickly look up which tiers are true tags, not just labels
    var TagDetail{} truetags;
    foreach var TagDetail t ($p->visible_tag_list()) {
      $truetags{$t.name} = $t;            
    }

    var string[] closing_html;
    var string[] prev_tags;
    var int tag_list_pos = 0;
    var string tier_code = "";
    $closing_html[0] = "";
    $prev_tags[0] = "";
    foreach var TagDetail t ($p->visible_tag_list()) {
      var string[] tags;
 
      if ($t.name) {  
        # mt:20050623
        # Split tags into array on delimiter. Oh god, my kingdom
        # for a function.  Stolen shamelessly from lj-user rane500.
        var int array_counter = 0;
        var string buffer = "";
        foreach var string char ($t.name) {
          if($char == $delimiter) {
            $tags[$array_counter] = $buffer;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;
  
        var int pos = 0;
        var bool show_all_tiers = false;
        foreach var string tier($tags) {
          if (size $closing_html <= $pos) {
            # mt:20050623
            # $closing_html keeps track of html that is used to close off open
            # lists.  Its length must be kept >= to that of the current tag.
            $closing_html[$pos] = "";
          }   

          if (size $prev_tags <= $pos) {
            # mt:20050625
            # The current tag has more tiers than the previous tag.  To avoid array
            # ref errors when comparing the current tier to the previous one (which
            # is non-existent, of course) add empty string to $prev_tags.
            $prev_tags[$pos] = "";
          }

          # mt:20070503
          # Find out if this tier is an alias for a longer tag name
          var string longname = $tier;
          if ($tag_aliases_short{$tier}) {
            $longname = $tag_aliases_short{$tier};
          }

          # mt:20070503
          # Find out if this tier has a longer form tag later or earlier in the list
          var string parenttiers  = "";
          if ($pos > 0) {
            foreach var int i (0 .. ($pos - 1)) {
              $parenttiers  = $parenttiers + ($parenttiers == "" ? "" : $delimiter) + $tags[$i];
            }
          }
          var string realtagname = $parenttiers + ($parenttiers == "" ? "" : $delimiter) + $longname;
          var TagDetail realtag;
          if ($truetags{$realtagname}) {
            $realtag = $truetags{$realtagname};
          }
          else {
            $realtagname = "";
          }

          # mt:20070503
          # If we're on a tag's last tier, or if this tier (plus parent tiers) maps to a longer form real tag 
          # we need to return a link to the tag, otherwise plain text is returned.
          if ((size $tags == ($pos + 1)) or (defined $realtag)) {
            # mt:20070503
            # Find out if this tag is the longer form tag of an alias (in which case we need to hide it, since
            # it will be displayed instead of the alias, and shouldn't be repeated).
            var bool hasalias = false;
            if ($tag_aliases{$tier}) {
              $hasalias = true;
            }
            if ($hasalias and (size $tags == ($pos + 1))) {
              $tier_code = "";              
            }
            elseif (defined $realtag) {
              $tier_code = """<a href="$realtag.url">$longname</a>""";
            }
            else {
              $tier_code = """<a href="$t.url">$longname</a>""";
            }

            if ($show_count and ($tier_code != "")) {
              var string uses = get_plural_phrase($t.use_count, "text_tag_uses");
              if (defined $realtag) {                
                $uses = get_plural_phrase($realtag.use_count, "text_tag_uses");
              }
              $tier_code = $tier_code + """ - $uses""";
            }
          }
          else {
            $tier_code = "$longname";
          }

          # mt:20070503
          # If we've decided that this tag needs to be skipped, do nothing on this loop
          if ($tier_code != "") {

          # mt:20050625
          # $prev_tags stuffed with dummy empty string when it has fewer tiers than 
          # current tag.
          if ($prev_tags[$pos] == "") {     
            # mt:20050623
            # The current tag has more tiers than the previous tag, so a new
            # list must be opened.  
            if (($tag_list_pos == 0) and ($pos == 0)) {
              # mt:20061216
              # The outermost ul is supplied later so omit it from this stage.
              $list = $list + """<li>$tier_code""";                  
              $closing_html[$pos] = "</li>";  
            }
            else {
              $list = $list + """<ul><li>$tier_code""";                  
              $closing_html[$pos] = "</li></ul>";
            }
          }
          elseif (($tags[$pos] != $prev_tags[$pos]) or ($show_all_tiers)) {   
            if ($tags[$pos] != $prev_tags[$pos]) {
              # mt:20050623
              # The current tag's tier is not the same as the previous tag's tier of  
              # the same level.  This means we may need to close some lists.
              var int i = size $closing_html;
              foreach var string html ($closing_html) {
                if ($i > $pos) {
                  $list = $list + $closing_html[$i];                                 
                  # mt:20050623: As we append the closing code, pop it off the array.
                  $closing_html[$i] = "";
                }
                $i--;
              }   
              # mt:20070507
              # If we just closed some lists, that means that any lower tiers in this tag need to 
              # be explicitly displayed, even if they match the same-level tier of the previous tag
              $show_all_tiers = true;   
            }                  
 
            if ($closing_html[$pos] == "") {          
              # mt:20050623
              # This is the first tier at this level, so open list.
              $list = $list + """<ul><li>$tier_code""";
              $closing_html[$pos] = "</li></ul>";
            }
            else {              
              # mt:20050623
              # There have already been tiers added at this level, so just close the previous
              # list item before adding the new tier.
              $list = $list + """</li><li>$tier_code""";
            }                    
          }
          else {
            # mt:20050623
            # The current tag's tier is exactly the same as the previous tag's tier at
            # this same level.  It has already been included in the list, so do nothing.
          }  
          }
          # mt:20050623: Moving on to next tier in this tag!
          $pos++;
        }
        $prev_tags = $tags; 
        $show_all_tiers = false;      
      }        
      # mt:20050623: Next tag in the list!
      $tag_list_pos++;
    }  

    # mt:20050623
    # All the tags have been added so close all outstanding lists.
    var int i = 0;
    var string remaining_html = "";
    foreach var string html ($closing_html) { 
      if ($html != "") {
        $remaining_html = $html + $remaining_html;
        $closing_html[$i] = "";
      }
      $i++;
    }
    $list = $list + $remaining_html;
  }

  print """<div class="entry">""";
  print """<h3 class="entry-header">$page_title</h3><div class="entry-content"><div class="entry-body"><ul class="ljtaglist">""";
  print $list;
  print "</ul>";
  print "</div></div></div>";
}

Style Contest: Tag Filtered Recent Entries as Index Page

murklinstest — Sat, 05 May 2007 21:03:33 GMT

Show the Recent Entries page in more of an index style, with just excerpts of the entry text, not full entries, but only when viewing a tag subset of the entries.

Paste this function into your theme layer, altering the blue configuration variables to suit you.

# On the Recent Entries page, when filtering by tag, use an index style, not full entries #
function RecentPage::print_body() {

########## Configure the Excerpting ##########

# Specify the termination character
var string stopchar = "^";

# Specify whether you want the termination character displayed in the excerpt or not
var bool showstopchar = false;

# Specify how many characters of the entry to search for a termination char before giving up and not including an excerpt
var int cutoff = 500;

###############################################

    if ($.nav.backward_url != "" or $.nav.forward_url != "") {
        println """<p class="content-nav">""";
        if ($.nav.backward_url != "") {
            println """<a href="$.nav.backward_url">"""+get_plural_phrase($.nav.backward_count, "text_skiplinks_back")+"</a>";
        }
        if ($.nav.backward_url != "" and $.nav.forward_url != "") {
            print " | ";
        }
        if ($.nav.forward_url != "") {
            println """<a href="$.nav.forward_url">"""+get_plural_phrase($.nav.forward_count, "text_skiplinks_forward")+"</a>";
        }
        println """</p>""";
    }

    # This is a tag-filtered view, so show an index of the entries
    var bool done = false;
    if ((size $this.data_links_order) > 0) {
        if ($this.data_link{"rss"}) {
            var Link dlink = $this.data_link{"rss"};
            if ($dlink.url->contains("?tag=")) {                
                print """<div class="entry"><div class="entry-content"><div class="entry-body"><ul class="entry-index">""";
                foreach var Entry e ($.entries) {
                    
                    print "<li>";
                    if ($e.poster.username != $e.journal.username) {
                        $e.poster->print(); " ";
                    }
                    "$e.security_icon";
                    print """<span class="index-link">""";
                    if ($e.subject != "") {
                        """ <a href="$e.permalink_url">$e.subject</a>""";
                    } else {
                        print """ <a href="$e.permalink_url" style="font-style: italic;">$*text_nosubject</a>""";
                    }
                    print "</span>\n";

                    if ($e.text_must_print_trusted == false) {
                        var string t = $e.text->substr(0, $cutoff);
                        var string summary = "";
                        foreach var string c ($t) {
                            if ($c == $stopchar) {
                                break;
                            }
                            $summary = $summary + $c;
                            continue;
                        }
                        # Stop char never found, so assume this entry not formatted for excerpting
                        if ($summary == $t) {
                            $summary = "";
                        }
                        if ($showstopchar and ($summary != "")) {
                            $summary = $summary + $stopchar;
                        }
                        print """<div class="index-summary">$summary</div>\n""";
                    }

                    print """<div class="index-meta">[ """;
                    if (size($e.tags) > 0) {
                        var int tcount = 0;
                        print """<span class="index-tags"><span class="index-tags-title">tags:</span> """;
                        foreach var Tag t ($e.tags) {
                            print """<a rel="tag" href="$t.url">$t.name</a>""";
                            $tcount++;
                            if ($tcount != size $e.tags) {
                                print ", ";
                            }
                        }
                        """</span> <span class="index-sep1">||</span> """;
                    }                    
                    var string edate = """<span class="index-date">""" + $e.time->date_format("%%yyyy%%-%%mm%%-%%dd%%") + """</span> <span class="index-sep2">|</span> <span class="index-time">""" + $e.time->time_format("short");
                    print $edate;
                    if ($e.comments.show_readlink) {
                        print """ <span class="index-sep2">|</span> <span class="index-comments">""";                        
                        $e.comments->print_readlink();
                        print "</span>";
                    }
                    " ]</div>\n";                   
                    "</li>\n";
                }
                print "</ul></div></div></div>";
                $done = true;
            }
        }
    }

    if ($done == false) {
    foreach var Entry e ($.entries) {
        if ($*opt_datehead and $e.new_day) {
            print """<h2 class="date-header">"""+$e.time->date_format("med")+"""</h2>""";
        }

        # Print the entry
        $this->print_entry($e);
        if ($e->viewer_sees_ebox()) {
            """<div align="center" style="margin-bottom: 20px;">""";
            $e->print_ebox();
            "</div>";
        }
    }
    }


    if ($.nav.backward_url != "" or $.nav.forward_url != "") {
        println """<p class="content-nav">""";
        if ($.nav.backward_url != "") {
            println """<a href="$.nav.backward_url">"""+get_plural_phrase($.nav.backward_count, "text_skiplinks_back")+"</a>";
        }
        if ($.nav.backward_url != "" and $.nav.forward_url != "") {
            print " | ";
        }
        if ($.nav.forward_url != "") {
            println """<a href="$.nav.forward_url">"""+get_plural_phrase($.nav.forward_count, "text_skiplinks_forward")+"</a>";
        }
        println """</p>""";
    }
}

Flexible Squares: Multilevel Tags with Catch-All

murklinstest — Mon, 05 Feb 2007 06:17:09 GMT

Sidebar

function print_sidebar_tags() {

#####   Config   #####

  # Specify your delimiter.  One char only -- extra chars get truncated.
  var string delimiter = ":";

  # Do you want to show the tag use counts? Set to true or false.
  var bool show_count = true;

  # Specify the text to show just before the use count, if any.
  var string pre_count = "[";

  # Specify the text to show just after the use count, if any.
  var string post_count = "]";

  # Specify the name of your catch-all pseudo-category. If you set this to an empty
  # string, top-level tags that have no sub-tags get tagged on to the end of the list
  # and sit at the top level instead of sitting under a catch-all category.
  var string catchall_title = "miscellaneous";

##### End Config #####

  var Page p = get_page();
  var string list = "";    
  
  if (size $p->visible_tag_list() > 0) { 
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    } 

    var TagDetail[] tag_list = $p->visible_tag_list();
    var string[] closing_html;
    var string[] prev_tags;
    var int tag_list_pos = 0;
    var bool list_started = false;
    var string tier_code = "";
    $closing_html[0] = "";
    $prev_tags[0] = "";

    # mt:20070204
    # vars for new catchall pseudo-category
    var TagDetail[] catchall;
    var int catch_count = 0;
    var string catchall_list = "";

    foreach var TagDetail t ($tag_list) {
      var string[] tags;
 
      if ($t.name) {  
        # mt:20050623
        # Split tags into array on delimiter. Oh god, my kingdom
        # for a function.  Stolen shamelessly from lj-user rane500.
        var int array_counter = 0;
        var string buffer = "";
        foreach var string char ($t.name) {
          if($char == $delimiter) {
            $tags[$array_counter] = $buffer;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;

        # mt:20070204
        # Filter out all top-level tags that have no subtags so they can 
        # be placed in a catchall pseudo-category.
        var bool no_subtags = true;
        if ($tag_list_pos < (size $tag_list - 1)) {
          var string next_tag = $tag_list[$tag_list_pos + 1].name;  
          var string tag_top = $tags[0] + $delimiter;        
          $no_subtags = not ($next_tag->starts_with($tag_top));
        }
 
        if (size $tags == 1 and $no_subtags) {
          $catchall[$catch_count] = $t;
          $catch_count = $catch_count + 1;
        }
        else {
  
        var int pos = 0;
        foreach var string tier($tags) {
          if (size $closing_html <= $pos) {
            # mt:20050623
            # $closing_html keeps track of html that is used to close off open
            # lists.  Its length must be kept >= to that of the current tag.
            $closing_html[$pos] = "";
          }   

          if (size $prev_tags <= $pos) {
            # mt:20050625
            # The current tag has more tiers than the previous tag.  To avoid array
            # ref errors when comparing the current tier to the previous one (which
            # is non-existent, of course) add empty string to $prev_tags.
            $prev_tags[$pos] = "";
          }
    
          # mt:20050623
          # If we're on a tag's last tier, we need to return a link to the tag,
          # otherwise plain text is returned.
          if (size $tags == ($pos + 1)) {
            $tier_code = """<a rel="tag" href="$t.url">$tier</a>""";
            if ($show_count) {
              $tier_code = $tier_code + """&nbsp;${pre_count}${t.use_count}${post_count}""";
            }
          }
          else {
            $tier_code = """$tier""";
          }

          # mt:20050625
          # $prev_tags stuffed with dummy empty string when it has fewer tiers than 
          # current tag.
          if ($prev_tags[$pos] == "") {     
            # mt:20050623
            # The current tag has more tiers than the previous tag, so a new
            # list must be opened.  
            if ($list_started == false) {
              # mt:20061216
              # The outermost ul is supplied later by print_sidebar_box,
              # so omit it from this stage.
              $list = $list + """<li class="sbaritem">$tier_code""";                  
              $closing_html[$pos] = "</li>";  
              $list_started = true;
            }
            else {
              $list = $list + """<ul><li class="sbaritem">$tier_code""";                  
              $closing_html[$pos] = "</li></ul>";
            }
          }
          elseif ($tags[$pos] != $prev_tags[$pos]) {   
            # mt:20050623
            # The current tag's tier is not the same as the previous tag's tier of  
            # the same level.  This means we may need to close some lists.
            var int i = size $closing_html;
            foreach var string html ($closing_html) {
              if ($i > $pos) {
                $list = $list + $closing_html[$i];                                 
                # mt:20050623: As we append the closing code, pop it off the array.
                $closing_html[$i] = "";
              }
              $i--;
            }                    
 
            if ($closing_html[$pos] == "") {          
              # mt:20050623
              # This is the first tier at this level, so open list.
              $list = $list + """<ul><li class="sbaritem">$tier_code""";
              $closing_html[$pos] = "</li></ul>";
            }
            else {              
              # mt:20050623
              # There have already been tiers added at this level, so just close the previous
              # list item before adding the new tier.
              $list = $list + """</li><li class="sbaritem">$tier_code""";
            }                    
          }
          else {
            # mt:20050623
            # The current tag's tier is exactly the same as the previous tag's tier at
            # this same level.  It has already been included in the list, so do nothing.
          }  
          # mt:20050623: Moving on to next tier in this tag!
          $pos++;
        }
        $prev_tags = $tags;           
      } 

      }
       
      # mt:20050623: Next tag in the list!
      $tag_list_pos++;
    }  

    # mt:20050623
    # All the tags have been added so close all outstanding lists.
    var int i = 0;
    var string remaining_html = "";
    foreach var string html ($closing_html) { 
      if ($html != "") {
        $remaining_html = $html + $remaining_html;
        $closing_html[$i] = "";
      }
      $i++;
    }
    $list = $list + $remaining_html;

    # mt:20070204
    # Build the catchall list.
    foreach var TagDetail t ($catchall) {
      $catchall_list = $catchall_list + """<li class="sbaritem"><a rel="tag" href="$t.url">$t.name</a>""";
      if ($show_count) {
        $catchall_list = $catchall_list + """&nbsp;${pre_count}${t.use_count}${post_count}""";
      }
      $catchall_list = $catchall_list + "</li>";
    }
    if ($catchall_list != "" and $catchall_title != "") {
      $catchall_list = """<li class="sbaritem">$catchall_title<ul>""" + $catchall_list + "</ul></li>";
    }
    $list = $list + $catchall_list;

    var string list_title = ($*text_sidebar_tags != "") ? "<li class='sbartitle'>$*text_sidebar_tags</li>" : "";
    print_sidebar_box("""$list_title""", $list, "sidebar_tags");

  }
}

Tags Page

function TagsPage::print_body {

#####   Config   #####

  # Specify your delimiter.  One char only -- extra chars get truncated.
  var string delimiter = ":";

  # Do you want to show the tag use counts? Set to true or false.
  var bool show_count = true;

  # Specify the page title. Defaults to the core layer's value for
  # the Tags Page title. Change to your text, surrounded by quotes, eg:
  # var string page_title = "My Tags List";
  var string page_title = $*text_tags_page_header;

  # Specify the name of your catch-all pseudo-category. If you set this to an empty
  # string, top-level tags that have no sub-tags get tagged on to the end of the list
  # and sit at the top level instead of sitting under a catch-all category.
  var string catchall_title = "miscellaneous";

##### End Config #####

  var string list = "";    
  
  if (size $this->visible_tag_list() > 0) { 
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    } 

    var TagDetail[] tag_list = $this->visible_tag_list();
    var string[] closing_html;
    var string[] prev_tags;
    var int tag_list_pos = 0;
    var bool list_started = false;
    var string tier_code = "";
    $closing_html[0] = "";
    $prev_tags[0] = "";

    # mt:20070204
    # vars for catchall pseudo-category
    var TagDetail[] catchall;
    var int catch_count = 0;
    var string catchall_list = "";

    foreach var TagDetail t ($tag_list) {
      var string[] tags;
 
      if ($t.name) {  
        # mt:20050623
        # Split tags into array on delimiter. Oh god, my kingdom
        # for a function.  Stolen shamelessly from lj-user rane500.
        var int array_counter = 0;
        var string buffer = "";
        foreach var string char ($t.name) {
          if($char == $delimiter) {
            $tags[$array_counter] = $buffer;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;

        # mt:20070204
        # Filter out all top-level tags that have no subtags so they can 
        # be placed in a catchall pseudo-category.
        var bool no_subtags = true;
        if ($tag_list_pos < (size $tag_list - 1)) {
          var string next_tag = $tag_list[$tag_list_pos + 1].name;  
          var string tag_top = $tags[0] + $delimiter;        
          $no_subtags = not ($next_tag->starts_with($tag_top));
        }
 
        if (size $tags == 1 and $no_subtags) {
          $catchall[$catch_count] = $t;
          $catch_count = $catch_count + 1;
        }
        else {
  
        var int pos = 0;
        foreach var string tier($tags) {
          if (size $closing_html <= $pos) {
            # mt:20050623
            # $closing_html keeps track of html that is used to close off open
            # lists.  Its length must be kept >= to that of the current tag.
            $closing_html[$pos] = "";
          }   

          if (size $prev_tags <= $pos) {
            # mt:20050625
            # The current tag has more tiers than the previous tag.  To avoid array
            # ref errors when comparing the current tier to the previous one (which
            # is non-existent, of course) add empty string to $prev_tags.
            $prev_tags[$pos] = "";
          }
    
          # mt:20050623
          # If we're on a tag's last tier, we need to return a link to the tag,
          # otherwise plain text is returned.
          if (size $tags == ($pos + 1)) {
            $tier_code = """<a rel="tag" href="$t.url">$tier</a>""";
            if ($show_count) {
              var string uses = get_plural_phrase($t.use_count, "text_tag_uses");
              $tier_code = $tier_code + """ - $uses""";
            }
          }
          else {
            $tier_code = """$tier""";
          }

          # mt:20050625
          # $prev_tags stuffed with dummy empty string when it has fewer tiers than 
          # current tag.
          if ($prev_tags[$pos] == "") {     
            # mt:20050623
            # The current tag has more tiers than the previous tag, so a new
            # list must be opened.  
            if (($tag_list_pos == 0) and ($pos == 0)) {
              # mt:20061216
              # The outermost ul is supplied later so omit it from this stage.
              $list = $list + """<li>$tier_code""";                  
              $closing_html[$pos] = "</li>";  
            }
            else {
              $list = $list + """<ul><li>$tier_code""";                  
              $closing_html[$pos] = "</li></ul>";
            }
          }
          elseif ($tags[$pos] != $prev_tags[$pos]) {   
            # mt:20050623
            # The current tag's tier is not the same as the previous tag's tier of  
            # the same level.  This means we may need to close some lists.
            var int i = size $closing_html;
            $i = ($i <= 0) ? 0 : $i - 1;
            foreach var string html ($closing_html) {
              if ($i > $pos) {
                $list = $list + $closing_html[$i];                                 
                # mt:20050623: As we append the closing code, pop it off the array.
                $closing_html[$i] = "";
              }
              $i--;
            }                    
 
            if ($closing_html[$pos] == "") {          
              # mt:20050623
              # This is the first tier at this level, so open list.
              $list = $list + """<ul><li>$tier_code""";
              $closing_html[$pos] = "</li></ul>";
            }
            else {              
              # mt:20050623
              # There have already been tiers added at this level, so just close the previous
              # list item before adding the new tier.
              $list = $list + """</li><li>$tier_code""";
            }                    
          }
          else {
            # mt:20050623
            # The current tag's tier is exactly the same as the previous tag's tier at
            # this same level.  It has already been included in the list, so do nothing.
          }  
          # mt:20050623: Moving on to next tier in this tag!
          $pos++;
        }
        $prev_tags = $tags;           
      }       

      }
 
      # mt:20050623: Next tag in the list!
      $tag_list_pos++;
    }  

    # mt:20050623
    # All the tags have been added so close all outstanding lists.
    var int i = 0;
    var string remaining_html = "";
    foreach var string html ($closing_html) { 
      if ($html != "") {
        $remaining_html = $html + $remaining_html;
        $closing_html[$i] = "";
      }
      $i++;
    }
    $list = $list + $remaining_html;

    # mt:20070204
    # Build the catchall list.
    foreach var TagDetail t ($catchall) {
      $catchall_list = $catchall_list + """<li><a rel="tag" href="$t.url">$t.name</a>""";
      if ($show_count) {
        var string uses = get_plural_phrase($t.use_count, "text_tag_uses");
        $catchall_list = $catchall_list + """ - $uses""";
      }
      $catchall_list = $catchall_list + "</li>";
    }    
    if ($catchall_list != "" and $catchall_title != "") {
      $catchall_list = """<li class="sbaritem">$catchall_title<ul>""" + $catchall_list + "</ul></li>";
    }
    $list = $list + $catchall_list;
  }

#### Print the tag list in an entry-like post ####
			             
	print """
	<div class="subcontent">
                <div class="datesubject">
				<div class="subject">
					$page_title
				</div>
			</div>
		<div class="entry">
			<div class="entry2">
			<div class="entry_text">
			<ul class="ljtaglist">$list</ul>			
                        </div>
                    </div>
		</div>
		<div class="separator"> &nbsp; </div>
		<div class="clear"> &nbsp; </div>
	</div>
	""";
}

[Flexible Squares] Diffs between old and new multilevel tags code

murklinstest — Sat, 27 Jan 2007 07:36:55 GMT

I released a new version of the Flexible Squares Multilevel Tags tutorial, which is quite different from the now obsolete original. Besides the addition of actual instructions, the code itself underwent some changes. They are detailed here in red comments for any interested parties.

Code


# mt:20070126
# Use the tags-specific function instead of print_sidebar to print out the tags

function print_sidebar_tags() {

#####   Config   #####

  # Specify your delimiter.  One char only -- extra chars get truncated.
  var string delimiter = ":";
  
  # mt:20070126
  # Some new configuration options to enable/disable the display of tag counts

  # Do you want to show the tag use counts? Set to true or false.
  var bool show_count = true;

  # Specify the text to show just before the use count, if any.
  var string pre_count = "[";

  # Specify the text to show just after the use count, if any.
  var string post_count = "]";

##### End Config #####

  var Page p = get_page();
  var string list = "";    
  
  if (size $p->visible_tag_list() > 0) { 
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    } 

    var string[] closing_html;
    var string[] prev_tags;
    var int tag_list_pos = 0;
    var string tier_code = "";
    $closing_html[0] = "";
    $prev_tags[0] = "";
    foreach var TagDetail t ($p->visible_tag_list()) {
      var string[] tags;
 
      if ($t.name) {  
        # mt:20050623
        # Split tags into array on delimiter. Oh god, my kingdom
        # for a function.  Stolen shamelessly from lj-user rane500.
        var int array_counter = 0;
        var string buffer = "";
        foreach var string char ($t.name) {
          if($char == $delimiter) {
            $tags[$array_counter] = $buffer;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;
  
        var int pos = 0;
        foreach var string tier($tags) {
          if (size $closing_html <= $pos) {
            # mt:20050623
            # $closing_html keeps track of html that is used to close off open
            # lists.  Its length must be kept >= to that of the current tag.
            $closing_html[$pos] = "";
          }   

          if (size $prev_tags <= $pos) {
            # mt:20050625
            # The current tag has more tiers than the previous tag.  To avoid array
            # ref errors when comparing the current tier to the previous one (which
            # is non-existent, of course) add empty string to $prev_tags.
            $prev_tags[$pos] = "";
          }
    
          # mt:20050623
          # If we're on a tag's last tier, we need to return a link to the tag,
          # otherwise plain text is returned.
          if (size $tags == ($pos + 1)) {
            # mt:20070126
            # Add in the rel attribute, to match the layer's default display of the tags list
            $tier_code = """<a rel="tag" href="$t.url">$tier</a>""";
            # mt:20070126
            # Include logic for showing the tag count, if enabled in the Config section
            if ($show_count) {
              $tier_code = $tier_code + """&nbsp;${pre_count}${t.use_count}${post_count}""";
            }
          }
          else {
            $tier_code = """$tier""";
          }
          
          # mt:20070126
          # The list now uses standard Flexible Squares sidebar classes. The outermost container,
          # which used to be an <li> to fit with the layout's sidebar list system, is now a <ul>,
          # to match the layer's current sidebar code. That outermost container's class used to
          # be tagBox, but it now gets the standard sbarlist  and sbarcontent classes, 
          # added when the tags list gets printed via print_sidebar_box. The inner <ul>
          # tags used to be of class tagList, but that is no longer necessary and they go classless.
          # The <li> tags used to be of class tagItem, but they now use the standard sidebar list
          # item class, sbaritem.

          # mt:20050625
          # $prev_tags stuffed with dummy empty string when it has fewer tiers than 
          # current tag.
          if ($prev_tags[$pos] == "") {     
            # mt:20050623
            # The current tag has more tiers than the previous tag, so a new
            # list must be opened.  
            if (($tag_list_pos == 0) and ($pos == 0)) {
              # mt:20061216
              # The outermost ul is supplied later by print_sidebar_box,
              # so omit it from this stage.
              $list = $list + """<li class="sbaritem">$tier_code""";                  
              $closing_html[$pos] = "</li>";  
            }
            else {
              $list = $list + """<ul><li class="sbaritem">$tier_code""";                  
              $closing_html[$pos] = "</li></ul>";
            }
          }
          elseif ($tags[$pos] != $prev_tags[$pos]) {   
            # mt:20050623
            # The current tag's tier is not the same as the previous tag's tier of  
            # the same level.  This means we may need to close some lists.
            # mt:20070126
            # Iterate through the list backward, since this makes more logical sense,
            # considering we are popping off closing tags to match earlier opening tags.
            var int i = size $closing_html;
            foreach var string html ($closing_html) {
              if ($i > $pos) {
                $list = $list + $closing_html[$i];                                 
                # mt:20050623: As we append the closing code, pop it off the array.
                $closing_html[$i] = "";
              }
              $i--;
            }                    
 
            if ($closing_html[$pos] == "") {          
              # mt:20050623
              # This is the first tier at this level, so open list.
              $list = $list + """<ul><li class="sbaritem">$tier_code""";
              $closing_html[$pos] = "</li></ul>";
            }
            else {              
              # mt:20050623
              # There have already been tiers added at this level, so just close the previous
              # list item before adding the new tier.
              $list = $list + """</li><li class="sbaritem">$tier_code""";
            }                    
          }
          else {
            # mt:20050623
            # The current tag's tier is exactly the same as the previous tag's tier at
            # this same level.  It has already been included in the list, so do nothing.
          }  
          # mt:20050623: Moving on to next tier in this tag!
          $pos++;
        }
        $prev_tags = $tags;           
      }        
      # mt:20050623: Next tag in the list!
      $tag_list_pos++;
    }  

    # mt:20050623
    # All the tags have been added so close all outstanding lists.
    var int i = 0;
    var string remaining_html = "";
    foreach var string html ($closing_html) { 
      if ($html != "") {
        $remaining_html = $html + $remaining_html;
        $closing_html[$i] = "";
      }
      $i++;
    }
    $list = $list + $remaining_html;
  }
  
  # mt:20070126
  # No longer enclose the list in an <li>, it needs a <ul> now, which will be 
  # supplied by print_sidebar_box, the function used to print out sidebar boxes.
  
  var string list_title = ($*text_sidebar_tags != "") ? "<li class='sbartitle'>$*text_sidebar_tags</li>" : "";
  print_sidebar_box("""$list_title""", $list, "sidebar_tags");

  # mt:20070126
  # No longer print out all the sidebar boxes in this tags code. That gets done in print_sidebar.
}

Bloggish: Multilevel Sidebar Tags

murklinstest — Wed, 10 Jan 2007 07:42:36 GMT

By naming your tags using a delimiter, for example animals:cats:tabbies or animals:cats:siamese, where the colon is the delimiter, this code allows you to display your tags as a hierarchical list.

Instructions

1. Make sure you have created a theme layer.

2. Do you already have the print_module_tags function in your layer? If so, then you need to delete that existing version from your layer. You can only have one version of a function in a layer, and keeping your old way of showing the sidebar tags list will prevent the multi-level list from showing up. If you need both styles of list to show up, or you are wary of deleting the existing function for some other reason, please make your layer viewable and comment here with the layer id or a link to the layer.

3. Copy and paste the following function into your layer:


function print_module_tags(string title) {

#####   Config   #####

  # Specify your delimiter.  One char only -- extra chars get truncated.
  var string delimiter = ":";

  # Do you want to show the tag use counts? Set to true or false.
  var bool show_count = true;

  # Specify the text to show just before the use count, if any.
  var string pre_count = "[";

  # Specify the text to show just after the use count, if any.
  var string post_count = "]";

##### End Config #####

  var Page p = get_page();
  var string list = "";

  if (size $p->visible_tag_list() > 0) { 
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    } 

    var string[] closing_html;
    var string[] prev_tags;
    var int tag_list_pos = 0;
    var string tier_code = "";
    $closing_html[0] = "";
    $prev_tags[0] = "";
    foreach var TagDetail t ($p->visible_tag_list()) {
      var string[] tags;
 
      if ($t.name) {  
        # mt:20050623
        # Split tags into array on delimiter. Oh god, my kingdom
        # for a function.  Stolen shamelessly from lj-user rane500.
        var int array_counter = 0;
        var string buffer = "";
        foreach var string char ($t.name) {
          if($char == $delimiter) {
            $tags[$array_counter] = $buffer;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;
  
        var int pos = 0;
        foreach var string tier($tags) {
          if (size $closing_html <= $pos) {
            # mt:20050623
            # $closing_html keeps track of html that is used to close off open
            # lists.  Its length must be kept >= to that of the current tag.
            $closing_html[$pos] = "";
          }   

          if (size $prev_tags <= $pos) {
            # mt:20050625
            # The current tag has more tiers than the previous tag.  To avoid array
            # ref errors when comparing the current tier to the previous one (which
            # is non-existent, of course) add empty string to $prev_tags.
            $prev_tags[$pos] = "";
          }
    
          # mt:20050623
          # If we're on a tag's last tier, we need to return a link to the tag,
          # otherwise plain text is returned.
          if (size $tags == ($pos + 1)) {
            $tier_code = """<a rel="tag" href="$t.url">$tier</a>""";
            if ($show_count) {
              $tier_code = $tier_code + """&nbsp;${pre_count}${t.use_count}${post_count}""";
            }
          }
          else {
            $tier_code = """$tier""";
          }

          # mt:20050625
          # $prev_tags stuffed with dummy empty string when it has fewer tiers than 
          # current tag.
          if ($prev_tags[$pos] == "") {     
            # mt:20050623
            # The current tag has more tiers than the previous tag, so a new
            # list must be opened.  
            if (($tag_list_pos == 0) and ($pos == 0)) {
              # mt:20061216
              # The outermost ul is supplied later so omit it from this stage.
              $list = $list + """<li class="module-list-item">$tier_code""";                  
              $closing_html[$pos] = "</li>";  
            }
            else {
              $list = $list + """<ul><li class="module-list-item">$tier_code""";                  
              $closing_html[$pos] = "</li></ul>";
            }
          }
          elseif ($tags[$pos] != $prev_tags[$pos]) {   
            # mt:20050623
            # The current tag's tier is not the same as the previous tag's tier of  
            # the same level.  This means we may need to close some lists.
            var int i = size $closing_html;
            foreach var string html ($closing_html) {
              if ($i > $pos) {
                $list = $list + $closing_html[$i];                                 
                # mt:20050623: As we append the closing code, pop it off the array.
                $closing_html[$i] = "";
              }
              $i--;
            }                    
 
            if ($closing_html[$pos] == "") {          
              # mt:20050623
              # This is the first tier at this level, so open list.
              $list = $list + """<ul><li class="module-list-item">$tier_code""";
              $closing_html[$pos] = "</li></ul>";
            }
            else {              
              # mt:20050623
              # There have already been tiers added at this level, so just close the previous
              # list item before adding the new tier.
              $list = $list + """</li><li class="module-list-item">$tier_code""";
            }                    
          }
          else {
            # mt:20050623
            # The current tag's tier is exactly the same as the previous tag's tier at
            # this same level.  It has already been included in the list, so do nothing.
          }  
          # mt:20050623: Moving on to next tier in this tag!
          $pos++;
        }
        $prev_tags = $tags;           
      }        
      # mt:20050623: Next tag in the list!
      $tag_list_pos++;
    }  

    # mt:20050623
    # All the tags have been added so close all outstanding lists.
    var int i = 0;
    var string remaining_html = "";
    foreach var string html ($closing_html) { 
      if ($html != "") {
        $remaining_html = $html + $remaining_html;
        $closing_html[$i] = "";
      }
      $i++;
    }
    $list = """<ul class="module-list">""" + $list + $remaining_html + "</ul>";

    open_module("categories", $title, "");
    println $list;
    close_module();
  }
}

4. Look in the ##### Config ##### section of the code you just added. There are several configuration options listed in green:

The delimiter: var string delimiter = ":";
By default, the code looks for colons in your tag names to figure out what the different tag levels are. You can change the blue text to a different character, such as | or ~. You must then use that character in your tag names, for instance the tag animals:cats:tabbies would become animals~cats~tabbies.

Showing the use counts: var bool show_count = true;
If you would like to show how many times a tag has been used beside each tag name, leave this set to true. To hide the count, change the blue text to false.

Text before the use counts: var string pre_count = "[";
If you chose to show use counts, this is the text that will display to the left of the count number. By default, the use count displays between square brackets. You can remove the blue text completely to get rid of the bracket, or replace it with other text of your choosing.

Text after the use counts: var string post_count = "]";
If you chose to show use counts, this is the text that will display to the right of the count number. By default, the use count displays between square brackets. You can remove the blue text completely to get rid of the bracket, or replace it with other text of your choosing.

5. Click the Save & Compile button and go check out your journal. Your tags should show up in the sidebar in a multilevel list. If the list is there, but it has only one level, make sure your tags are named using the delimiter you set in the previous step. Also make sure that your theme layer is in fact being applied to your journal.

6. You may want to decrease the default indentation of the list or make some other style changes. You can add style code to your journal in a variety of ways: in the Custom CSS section of Custom Options (the » Custom stylesheet box), in an external style sheet, in the Page::print_custom_head function. Pick one of these ways and then experiment with the CSS below, which affects the list indentation.

.module-categories .module-list ul {	
	margin: 0px; padding: 0px;
	list-style-type: none;
	}

.module-categories .module-list-item  ul li {
	margin: 0px; 
	padding: 0px 0px 0px 15px;
	}

Expressive: Multi-Level Sidebar Tags

murklinstest — Tue, 31 Oct 2006 08:08:19 GMT

For wistfuljane!

Adapted from my earlier versions for Flexible Squares (s2flexisquares tutorial) and Component (component_help tutorial).

This is code to display your tags in a sidebar box. By naming your tags using a delimiter, for example animals:cats:tabbies or animals:cats:siamese, where the colon is the delimiter, you can display a heirarchical list of tags.

Instructions

1. Create a theme layer. See Section 3: Creating A Custom Theme and Section 5: Using Your Custom Theme or Layer.

2. Make sure you've included your colour theme in this new layer, as directed in the previous step's linked post. For example:

set base_theme = "urban-green";

Note that anytime you want to change the base colour scheme, you'll have to edit this line in your theme layer to make the change.

3. Add the following code to your layer:

function print_module_tags(string title) {

#####   Config   #####

  # Specify your delimiter.  One char only -- extra chars get truncated.
  var string delimiter = ":";

  # Do you want to show the tag use counts?
  var bool show_count = true;

  # Specify the text to show just before the use count, if any
  var string pre_count = "[";

  # Specify the text to show just after the use count, if any
  var string post_count = "]";

##### End Config #####

  var Page p = get_page();
  var string list = "";    
  
  if (size $p->visible_tag_list() > 0) { 
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    } 

    var string[] closing_html;
    var string[] prev_tags;
    var int tag_list_pos = 0;
    var string tier_code = "";
    $closing_html[0] = "";
    $prev_tags[0] = "";
    foreach var TagDetail t ($p->visible_tag_list()) {
      var string[] tags;
 
      if ($t.name) {  
        # mt:20050623
        # Split tags into array on delimiter. Oh god, my kingdom
        # for a function.  Stolen shamelessly from lj-user rane500.
        var int array_counter = 0;
        var string buffer = "";
        foreach var string char ($t.name) {
          if($char == $delimiter) {
            $tags[$array_counter] = $buffer;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;
  
        var int pos = 0;
        foreach var string tier($tags) {
          if (size $closing_html <= $pos) {
            # mt:20050623
            # $closing_html keeps track of html that is used to close off open
            # lists.  Its length must be kept >= to that of the current tag.
            $closing_html[$pos] = "";
          }   

          if (size $prev_tags <= $pos) {
            # mt:20050625
            # The current tag has more tiers than the previous tag.  To avoid array
            # ref errors when comparing the current tier to the previous one (which
            # is non-existent, of course) add empty string to $prev_tags.
            $prev_tags[$pos] = "";
          }
    
          # mt:20050623
          # If we're on a tag's last tier, we need to return a link to the tag,
          # otherwise plain text is returned.
          if (size $tags == ($pos + 1)) {
            $tier_code = """<a href="$t.url">$tier</a>""";
            if ($show_count) {
              $tier_code = $tier_code + """&nbsp;${pre_count}${t.use_count}${post_count}""";
            }
          }
          else {
            $tier_code = """$tier""";
          }

          # mt:20050625
          # $prev_tags stuffed with dummy empty string when it has fewer tiers than 
          # current tag.
          if ($prev_tags[$pos] == "") {     
            # mt:20050623
            # The current tag has more tiers than the previous tag, so a new
            # list must be opened.                    
            $list = $list + """<ul class="tagList"><li class="tagItem">$tier_code""";
            $closing_html[$pos] = "</li></ul>";
          }
          elseif ($tags[$pos] != $prev_tags[$pos]) {   
            # mt:20050623
            # The current tag's tier is not the same as the previous tag's tier of  
            # the same level.  This means we may need to close some lists.
            var int i = 0;
            foreach var string html ($closing_html) {
              if ($i > $pos) {
                $list = $list + $closing_html[$i];                                 
                # mt:20050623: As we append the closing code, pop it off the array.
                $closing_html[$i] = "";
              }
              $i++;
            }                    
 
            if ($closing_html[$pos] == "") {          
              # mt:20050623
              # This is the first tier at this level, so open list.
              $list = $list + """<ul class="tagList"><li class="tagItem">$tier_code""";
              $closing_html[$pos] = "</li></ul>";
            }
            else {              
              # mt:20050623
              # There have already been tiers added at this level, so just close the previous
              # list item before adding the new tier.
              $list = $list + """</li><li class="tagItem">$tier_code""";
            }                    
          }
          else {
            # mt:20050623
            # The current tag's tier is exactly the same as the previous tag's tier at
            # this same level.  It has already been included in the list, so do nothing.
          }  
          # mt:20050623: Moving on to next tier in this tag!
          $pos++;
        }
        $prev_tags = $tags;           
      }        
      # mt:20050623: Next tag in the list!
      $tag_list_pos++;
    }  

    # mt:20050623
    # All the tags have been added so close all outstanding lists.
    var int i = 0;
    var string remaining_html = "";
    foreach var string html ($closing_html) { 
      if ($html != "") {
        $remaining_html = $html + $remaining_html;
        $closing_html[$i] = "";
      }
      $i++;
    }
    $list = $list + $remaining_html;
  }
  
  open_module("categories", $title, "");
  """$list""";
  var string tags_url = $p.journal->base_url() + "/tag/"; # TODO: Need Page.view_url{"tags"} which doesn't exist yet.
  print """<div class="widget-footer"><a href="$tags_url" title="$*text_sidebar_tags">$*text_sidebar_tags</a></div>\n""";
  close_module();
}

4. In the code you just added, look in the Config section and make any changes necessary.

5. Click Save & Compile and check your journal to see that your tags are displayed in your sidebar as a multi-level list.

My draft for suggestions

murklinstest — Wed, 21 Jun 2006 18:55:28 GMT

Edit 2006-06-28: Posted to suggestions. Let the ridicule begin. (Well, if it makes it past the maintainers.)

I made a post in lj_style the other day to find out whether other people think the current behaviour of entries with disabled comment posting is logically flawed. It was suggested that I take it to suggestions, and since that's rather a public forum, I thought I'd draft it here first so that people can do a little criticizing and I can do a little tweaking, hopefully lessening my chances of being slaughtered when I post over there. So comments much appreciated!

Title

Do not hide pre-existing comments when disabling comment posting

Short, concise description of the idea

Right now, if you disable comment posting on an entry, none of the comments are shown when you view that entry in the bml entry page (aka simple comment page) and in many S2 layout entry pages. The entry looks like it never received any comments, even if prior to the disabling it had received many.

I propose that entries that have had comment posting disabled should still display all the comments that were made prior to the disabling.

Full description of the idea

Entries that have had comment posting disabled should still display all the comments that were made prior to the disabling. Current behaviour is to hide all comments once comment posting is disabled.

This is odd behaviour that has some problems. First, it isn't really logical. The comments still exist, and when you decide to disable comment posting, you don't necessarily want to prevent people from reading existing comments, you may simply not want to receive any more responses. The assumption cannot really be made that everyone who disables comment posting also wants to hide all existing comments. Those are two separate actions. In fact, the second of those actions is generally done through comment screening.

Second, it is misleading. Right now, it is easy for people to assume that disabling comments is like screening comments, since the comments are not visible in most views; however, there are several S2 layouts (Bloggish, Dear Diary, Quite Lickable, Smooth Sailing, s1short) that display comments even on entries that have disabled comment posting. So if you switch your style to one of those, you can view the entry with style=mine and reveal all comments. Additionally, with a little bit of S2 knowledge and a paid account, you can edit any existing layout to make it mimic that same behaviour. This comment hiding is not really screening at all, and as such it is dangerously misleading. Post authors may assume that they've hidden comments from everyone, but there will still be people out there who can read them all.

When you come right down to it, disabling comments on a post is very like freezing a comment thread -- you are preventing the addition of any more replies. It should not have any kind of screening component, since that is a separate action entirely. If you want to hide comments, you should be screening them -- that's what screening is for.

An ordered list of benefits

1. Disabling comment posting will have the more logical result of doing only that one thing, with no additional side effects.

2. There will be more consistent behaviour between bml entry pages and custom S2 entry pages, as well as more consistent behaviour among the various S2 styles.

3. People will no longer be misled into thinking that disabling comments is a secure way of hiding comments from view.

An ordered list of problems/issues involved

1. I have been told that the original reason for this behaviour might be related to S1. In S1 you must show the post and read comments links together or not at all -- you cannot remove the post link without also removing the read link. Since disabling comments required removing the post link, then the read link had to go, too, and accordingly the comments were hidden on the entry page. To me, this seems like we are now catering to a flaw in S1 that really ought to be fixed, but I know very little about the workings of S1, so I'm not sure how feasible it would be to solve that. It may be that the only way to resolve this in S1 is to always show the read and post link whenever there are comments on a post, regardless of whether comment posting has been disabled, and then when someone clicks the post link, they are given an error message that comments have been disabled.

2. The usual issue exists, of course, of having someone go in and make all the necessary code changes.

3. It's possible that some people may be upset by:

a) Whatever is done to solve the S1 problem.
b) The new behaviour, since they are used to having comments be invisible (to *most*) when comment posting is disabled.

An organized list, or a few short paragraphs detailing suggestions for implementation

1. On the entry bml page, show any existing comments even when comment posting has been disabled. Likely will require quite a few modifications to the comment display and reply link logic.

2. In the S2 code, change the logic for setting the show_readlink variable so that it is set to true when public comments exist or when the viewer can see any screened comments -- remove the condition that comments must be enabled.

3. In the S2 system layouts, ensure that all the layouts use the show_readlink and show_postlink variables to determine when to show the read and post comment links, and also ensure that in the code for the custom entry pages the comments get displayed even when commenting has been disabled.

4. Deal with the S1 read and post links in some way.

Flexible Squares: Smilies in Posts and Comments

murklinstest — Fri, 19 May 2006 05:19:32 GMT

A tutorial for adding smilie images to entries and comments in Flexible Squares. Posted to s2flexisquares: [paid accounts] Smilies in Posts and Comments.

The Boxer: Smilies in Posts and Comments

murklinstest — Tue, 16 May 2006 05:31:07 GMT

The code in this tutorial will cause simple punctuation smilies like :) and :( to be replaced with images of your choosing when they are displayed in posts and comments. It is adapted (without permission) from absolut's component_help tutorial Adding Smilies to your post/comments. As in that original tutorial, the code here uses some search and replace code by mageboltrat that can be found here. This tutorial only works if you are viewing your journal in your own style. Your friends won't be able to see the images if they read your entry on their friend's list.

1. Find a set of smilie images and load them to an online host site.

2. Make sure you have created a theme layer. See the s2howto tutorial Creating and Using a Theme Layer and follow the instructions under the Creating a Theme Layer header.

Adding Smilies to your Posts

3. Do you already have the print_entry function in your theme layer? If not, go to The Boxer layer source, copy the print_entry function from there and paste it into your theme layer.

4. Find this line in the print_entry function:

$e->print_text();

Replace it with this code:

if ($e.text_must_print_trusted) {
  $e->print_text();
}
else {
  var string text = $e.text;
  var string value;
  var string{} emoticons =
  {
    # for each smiley you want to add, add a new line 
    # the format for adding new smilies should be something like this:
    # "[:smiley:]" => """<img src="[url of the smiley image]" alt="" width="" height="" />""",
    # note: for each line, there should be a comma at the very end, EXCEPT for the last line
    ":)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/smile.gif" alt="" width="15" height="15" />""",
    ";-)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/wink.gif" alt="" width="15" height="15" />""",
    ":("	=> """<img src="http://stat.livejournal.com/img/mood/classic/sad.gif" alt="" width="15" height="15" />"""
  };

  foreach var string key ($emoticons) {
    $value = $emoticons{$key};
		
    # from lj:mageboltrat's industrial nippon (id=533012)
    # see http://www.livejournal.com/community/s2layers/11106.html
    var string[] findarray;
    var int pos = 1;
    foreach var string findcharacter($key) {
      $findarray[$pos] = $findcharacter;
      $pos             = $pos + 1;
    }
    var int    place         = 1;
    var bool   found         = false;
    var string completedtext = "";
    var string foundtext     = "";
    foreach var string searchcharacter($text) {
      if  ($searchcharacter == $findarray[$place]) {
        if ($place == $key->length()) {
          $foundtext =  $value;
          $place     = 1;
        } 
        else {
          $foundtext = $foundtext + $searchcharacter;
          $place     = $place + 1;
        }
      } 
      else {
        $completedtext = $completedtext + $foundtext + $searchcharacter;
        $foundtext     = "";  
        $place         = 1;    
      }
    }
    $completedtext = $completedtext + $foundtext;
    $text = $completedtext;
  }
  """$text""";
}

5. Customize the code in red to the emoticons and image urls that you want to use.

Adding Smilies to your Comments

6. Do you already have the EntryPage::print_comment function in your theme layer? If not, go to The Boxer layer source, copy it from there and paste it into your theme layer.

7. Find these lines in the EntryPage::print_comment function:

"""
<p>"""; $c->print_text(); """</p><br>""";

Replace them with this code:

if ($c.text_must_print_trusted) {
  """<p>"""; $c->print_text(); """</p><br>""";
}
else {
  var string text = $c.text;
  var string value;
  var string{} emoticons =
  {
    # for each smiley you want to add, add a new line 
    # the format for adding new smilies should be something like this:
    # "[:smiley:]" => """<img src="[url of the smiley image]" alt="" width="" height="" />""",
    # note: for each line, there should be a comma at the very end, EXCEPT for the last line
    ":)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/smile.gif" alt="" width="15" height="15" />""",
    ";-)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/wink.gif" alt="" width="15" height="15" />""",
    ":("	=> """<img src="http://stat.livejournal.com/img/mood/classic/sad.gif" alt="" width="15" height="15" />"""
  };

  foreach var string key ($emoticons) {
    $value = $emoticons{$key};
		
    # from lj:mageboltrat's industrial nippon (id=533012)
    # see http://www.livejournal.com/community/s2layers/11106.html
    var string[] findarray;
    var int pos = 1;
    foreach var string findcharacter($key) {
      $findarray[$pos] = $findcharacter;
      $pos             = $pos + 1;
    }
    var int    place         = 1;
    var bool   found         = false;
    var string completedtext = "";
    var string foundtext     = "";
    foreach var string searchcharacter($text) {
      if  ($searchcharacter == $findarray[$place]) {
        if ($place == $key->length()) {
          $foundtext =  $value;
          $place     = 1;
        } 
        else {
          $foundtext = $foundtext + $searchcharacter;
          $place     = $place + 1;
        }
      } 
      else {
        $completedtext = $completedtext + $foundtext + $searchcharacter;
        $foundtext     = "";  
        $place         = 1;    
      }
    }
    $completedtext = $completedtext + $foundtext;
    $text = $completedtext;
  }
  """<p>$text</p><br>""";
}

8. Again, customize the code in red to the emoticons and image urls that you want to use.

Adding Smilies to your Reply Page and Outputting A List of Smilies

9. Do you already have the ReplyPage::print_body function in your theme layer? If not, copy the ReplyPage::print_body function from The Boxer layer source and paste it into your theme layer.

10. Paste this code into the very top of the ReplyPage::print_body function, in the line just after the first open curly brace, once again customizing the code in red to the emoticons and image urls that you want to use.

var string{} emoticons =
{
  # for each smiley you want to add, add a new line 
  # the format for adding new smilies should be something like this:
  # "[:smiley:]" => """<img src="[url of the smiley image]" alt="" width="" height="" />""",
  # note: for each line, there should be a comma at the very end, EXCEPT for the last line
  ":)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/smile.gif" alt="" width="15" height="15" />""",
  ";-)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/wink.gif" alt="" width="15" height="15" />""",
  ":("	=> """<img src="http://stat.livejournal.com/img/mood/classic/sad.gif" alt="" width="15" height="15" />"""
};

11. Find this line in the ReplyPage::print_body function:

print "<p>"; $.replyto->print_text(); "</p>"; print "<p>$metadata</p>";

Replace it with this code:

if ($.replyto.text_must_print_trusted) {
  print "<p>"; $.replyto->print_text(); "</p>"; print "<p>$metadata</p>";
}
else {
  var string text = $.replyto.text;
  var string value;

  foreach var string key ($emoticons) {
    $value = $emoticons{$key};
		
    # from lj:mageboltrat's industrial nippon (id=533012)
    # see http://www.livejournal.com/community/s2layers/11106.html
    var string[] findarray;
    var int pos = 1;
    foreach var string findcharacter($key) {
      $findarray[$pos] = $findcharacter;
      $pos             = $pos + 1;
    }
    var int    place         = 1;
    var bool   found         = false;
    var string completedtext = "";
    var string foundtext     = "";
    foreach var string searchcharacter($text) {
      if  ($searchcharacter == $findarray[$place]) {
        if ($place == $key->length()) {
          $foundtext =  $value;
          $place     = 1;
        } 
        else {
          $foundtext = $foundtext + $searchcharacter;
          $place     = $place + 1;
        }
      } 
      else {
        $completedtext = $completedtext + $foundtext + $searchcharacter;
        $foundtext     = "";  
        $place         = 1;    
      }
    }
    $completedtext = $completedtext + $foundtext;
    $text = $completedtext;
  }
  print "<p>$text</p>"; print "<p>$metadata</p>";
}

12. Copy the below section of code, which is used to display your list of smilie images, so that people commenting in your journal can see what images will be displayed for the different emoticons. If you would like this box to sit just above your reply text box, paste the following code just *before* the $.form->print(); line in your theme layer's ReplyPage::print_body function. If you would like this box to sit just below your reply text box, paste the following code just *after* the $.form->print(); line in your theme layer's ReplyPage::print_body function.

	"""
	<div class="emoticon_box">
		<a name="smileys"></a><b>Add a Smiley to your comment</b><br />
		(Hover over each smiley to get the code)<br />
	""";

	foreach var string key ($emoticons) {
		var string value = $emoticons{$key};
		"""<a href="#smileys" class="emoticoninfo">$value<span>$key</span></a> """;
	}
	"""</div>""";

13. Do you already have the Page::print_custom_head function in your theme layer? If not, add the following code to your layer:

function Page::print_custom_head() {
"""
<style type="text/css">

</style>
""";
}

14. Now add this css to your theme layer's Page::print_custom_head function, just before the </style> line:

.emoticon_box {
  text-align: center;
  margin: 10px;
  padding: 10px;
  background-color: $*entry_bg;
  color: $*entry_font;
  border: 1px solid $*entry_font;
}

a.emoticoninfo {
  position: relative; /*this is the key*/
  z-index: 24;
  background-color: $*entry_bg;
  color: $*entry_font;
  text-decoration: none;
}

a.emoticoninfo:hover {
  z-index:25; 
  background-color: transparent !important;
}

a.emoticoninfo img {
  border: none;
}

a.emoticoninfo span {
  display: none;
}

a.emoticoninfo:hover span { /*the span will display just on :hover state*/
  display: block;
  position: absolute;
  top: 2em; 
  left: 2em;
  width: 15em;
  border:1px solid $*entry_font;
  background-color: $*entry_bg;
  color: $*entry_font;
  text-align: center;
  text-decoration: none;
}

15. Compile your layer and check your journal to see that emoticons are being replaced by the correct images and that on the reply page your list of available images is appearing.

Important Note:
Avoid replacing ;) and :/ with images as doing so will screw up cut tags and all links and images. Try using ;-) and :-/ instead.

Flexible Squares: Sorted Multi-Level Tags in Sidebar

murklinstest — Mon, 13 Mar 2006 17:23:44 GMT

This code is currently a disaster, but it does seem to sort of work (always a challenge for me when I'm tossing around nested arrays). It's still full of clumsy debugging stuff, even, but I wanted to post it before I accidentally delete the layer. Basically allows you to specify a sort order for any levels of a multi-level tag list. Any levels that aren't specified in the custom sort order fall into alphabetical order after the custom sorted levels. Lord knows who would ever want to do this, but maybe one day someone will ask, and then at least I'll have some code to work with.

class MyUtils {
  # Recursively assemble the tag list
  function get_tag_list(string tagfrag, string[]{} ordered, string[]{} unordered, string{}{} realsubtags, TagDetail{}{} visibletags, string delimiter, string pre_count, string post_count, bool show_count) : string;

  # Print the tag list
  function print_tag_list();
}

function MyUtils::get_tag_list(string tagfrag, string[]{} ordered, string[]{} unordered, string{}{} realsubtags, TagDetail{}{} visibletags, string delimiter, string pre_count, string post_count, bool show_count) : string {
  var string list = "";
  # if there are no sub-tags of this tag level, return the accumulated list
  var bool no_ordered = true;
  var bool no_unordered = true;
  if ($ordered{$tagfrag}) {
    $no_ordered = false;
    if (size $ordered{$tagfrag} == 0) {
      $no_ordered = true;
    }
  }
  if ($unordered{$tagfrag}) {
    $no_unordered = false;
    if (size $unordered{$tagfrag} == 0) {
      $no_unordered = true;
    }
  }
  if ($no_unordered and $no_ordered) {
    return $list;
  }

  $list = $list + """<ul class="tagList">""";
  
  if ($ordered{$tagfrag}) {
  # Add the manually sorted subtags
  foreach var string tag ($ordered{$tagfrag}) {
    var string tagkey = $tagfrag + $tag;
    # Ignore non-existing tag fragments
    if ($realsubtags{$tagfrag}) {
      if ($realsubtags{$tagfrag}{$tag} == $tag) {
        if ($visibletags{$tagkey}) {
          # This is a tag
          var TagDetail t = $visibletags{$tagkey}{$tag};
          $list = $list + """<li class="tagItem"><a href="$t.url">$tag</a>""";
          if ($show_count) {
            $list = $list + """ ${pre_count}${t.use_count}${post_count}""";
          }
        }
        else {
          # Just a label      
          $list = $list + """<li class="tagItem">$tag""";
        }
        # Add the subtags
        $tagkey = $tagkey + $delimiter;
        $list = $list + $this->get_tag_list($tagkey, $ordered, $unordered, $realsubtags, $visibletags, $delimiter, $pre_count, $post_count, $show_count);
        $list = $list + "</li>";
      }
    }
  }
  }

  if ($unordered{$tagfrag}) {
  # Add the alphabetically sorted subtags
  foreach var string tag ($unordered{$tagfrag}) {
    var string tagkey = $tagfrag + $tag;
    if ($visibletags{$tagkey}) {
      # This is a real tag
      var TagDetail t = $visibletags{$tagkey}{$tag};
      $list = $list + """<li class="tagItem"><a href="$t.url">$tag</a>""";
      if ($show_count) {
        $list = $list + """ ${pre_count}${t.use_count}${post_count}""";
      }
    }
    else {
      # Just a label      
      $list = $list + """<li class="tagItem">$tag""";
    }
    # Add the subtags
    $tagkey = $tagkey + $delimiter;
    $list = $list + $this->get_tag_list($tagkey, $ordered, $unordered, $realsubtags, $visibletags, $delimiter, $pre_count, $post_count, $show_count);
    $list = $list + "</li>";
  }
  }

  $list = $list + "</ul>";
  return $list;
}

function MyUtils::print_tag_list() {

#####   Config   #####

  # Specify your delimiter.  One char only -- extra chars get truncated.
  var string delimiter = ":";

  # Specify the title of your tag box
  var string tag_title = "Tags";

  # Specify your top-level sort order
  # Add the top-level labels that you want sorted to the 
  # top of the list in the order you want them to display.
  # Example Tags: birds:budgies, cats:abyssinian, cats:persian, dogs
  # Desired Order: dogs, cats, all others in alphabetical order
  # Format: var string[] tagorder = ["dogs", "cats"];
  var string[] tagorder = ["layout", "tutorial", "test"];

  # Specify your subtag sort order
  # Add the sub tag fragments that you want sorted to the 
  # top of their sublist in the order you want them to display.
  # Example Tags: cats:abyssinian, cats:persian, cats:siamese, cats:tabbies
  # Desired Order: tabbies, siamese, all others in alphabetical order
  # Format: 
  # var string[]{} subtagorder = {
  #   "cats" => ["tabbies", "siamese"]
  # };
  var string[]{} subtagorder = {
    "code:" => ["hidingentries", "tagsbox", "stretchingentries"],
    "code:tagsbox:" => ["multi-level", "bundles"],
    "test:that:" => ["other"]
  };

  # Do you want to show the tag use counts?
  var bool show_count = true;

  # Specify the text to show just before the use count, if any
  var string pre_count = "[";

  # Specify the text to show just after the use count, is any
  var string post_count = "]";

##### End Config #####

  var Page p = get_page();
  var string list = "";
    
  if (size $p->visible_tag_list() > 0) { 

    # Turn the sort order into an associative array for easy access
    var string{} sorttoptags;
    var string{} realtoptags;
    foreach var string tagname ($tagorder) {
      $sorttoptags{$tagname} = $tagname;
    }
     
    # Turn the subtag sort order into an associative array for easy access
    var string{}{} sortsubtags;
    var string{}{} realsubtags;
    foreach var string toptagname ($subtagorder) {
      var string[] subtags = $subtagorder{$toptagname};
      var string{} subtag_hash;
      var bool{} realsubtag_hash;
      foreach var string tagname ($subtags) {
        $subtag_hash{$tagname} = $tagname;
        $realsubtag_hash{$tagname} = false;
      }
      $sortsubtags{$toptagname} = $subtag_hash;  
    }

    # Can't use delimiter longer than one char, so truncate if necessary.
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    }

    var string prev_top_level = "";
    var TagDetail{}{} visibletags;
    var string[] unordered;
    var string[]{} subunordered;
    var string{}{} subunordered_hash;
    foreach var TagDetail t ($p->visible_tag_list()) { 
            
      if ($t.name) {      
        # Split on delimiter     
        var string[] tags;
        var string parent_tags = "";
        var int array_counter = 0;
        var string buffer = "";
        foreach var string char ($t.name) {
          if($char == $delimiter) {
            $tags[$array_counter] = $buffer;
            $parent_tags = $parent_tags + $buffer + $delimiter;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;
                 
        # Add the tag to the asociative array of visible tags
        $visibletags{$t.name}{$tags[(size $tags) - 1]} = $t;

        # If tag is not in top-level sort order, add it to top unordered array
        if ($tags[0] != $prev_top_level) {
          if ($sorttoptags{$tags[0]} != $tags[0]) {
            $unordered[size $unordered] = $tags[0];
          }
          else {
            # This tag is in the sort array, so mark that sort array tag as being real
            $realtoptags{$tags[0]} = $tags[0];
          }
          $prev_top_level = $tags[0];
        }

        # If sub exists and is not in subtag sort order, add it to subtag unordered array
        var int next_level = 1;
        var string accumulated_level = "";
        foreach var string level ($tags) {
          if ($next_level < size $tags) {
            $accumulated_level = $accumulated_level + $level + $delimiter;

            var bool notinlist = false;
            if ($subunordered_hash{$accumulated_level}) {
              if ($subunordered_hash{$accumulated_level}{$tags[$next_level]} != $tags[$next_level]) {
                $notinlist = true;
              }
            }
            else {
              $notinlist = true;
            }

            if ($notinlist) {
              if ($sortsubtags{$accumulated_level}) {
                # This level has some ordered subtags 
                if ($sortsubtags{$accumulated_level}{$tags[$next_level]} != $tags[$next_level]) {
                  # But this particualr subtag is not one of them
                  $subunordered{$accumulated_level}[size $subunordered{$accumulated_level}] = $tags[$next_level];
                  $subunordered_hash{$accumulated_level}{$tags[$next_level]} = $tags[$next_level];
                }
                else {
                  # This one was found in the ordered array, so mark it as real
                  $realsubtags{$accumulated_level}{$tags[$next_level]} = $tags[$next_level];
                }
              }
              else {
                # This level has no ordered subtags
                $subunordered{$accumulated_level}[size $subunordered{$accumulated_level}] = $tags[$next_level];
                $subunordered_hash{$accumulated_level}{$tags[$next_level]} = $tags[$next_level];
              }
            }
          }
          $next_level++;
        }
      }  
    } 

    # Now every single level is accounted for, either in the ordered arrays or in the
    # alphabetically sorted unordered arrays.

    if (size $subtagorder == 0) { 
      $subtagorder{"1"} = ["hi"];
    }
    if (size $subunordered == 0) { 
      $subunordered{"2"} = ["hi"];
    }
    if (size $realsubtags == 0) { 
      $realsubtags{"1"} = {"1" => "1"};
    }
    if (size $visibletags == 0) { 
       var TagDetail td = new TagDetail;
      $visibletags{"1"} = {"1" => $td};
    }

    # Start the list.
    $list = $list + """<ul class="tagList">"""; 

    # Add top-level sorted tags to list first
    foreach var string tagname ($tagorder) {
      # Ignore any tag names in sort array that aren't actual tag fragments
      if ($realtoptags{$tagname} == $tagname) {
        if ($visibletags{$tagname}) {
          # This is a tag
          var TagDetail t = $visibletags{$tagname}{$tagname};
          $list = $list + """<li class="tagItem"><a href="$t.url">$tagname</a>""";
          if ($show_count) {
            $list = $list + """ ${pre_count}${t.use_count}${post_count}""";
          }
        }
        else {
          # Just a label
          $list = $list + """<li class="tagItem">$tagname""";
        }

        # Add the subtags
        $list = $list + $this->get_tag_list("""$tagname$delimiter""", $subtagorder, $subunordered, $realsubtags, $visibletags, $delimiter, $pre_count, $post_count, $show_count);

        $list = $list + "</li>";
      }
    }       

    # Add top-level unordered tags to list
    foreach var string tagname ($unordered) {
      if ($visibletags{$tagname}) {
        # This is a tag
        var TagDetail t = $visibletags{$tagname}{$tagname};
        $list = $list + """<li class="tagItem"><a href="$t.url">$tagname</a>""";
        if ($show_count) {
          $list = $list + """ ${pre_count}${t.use_count}${post_count}""";
        }
      }
      else {
        # Just a label 
        $list = $list + """<li class="tagItem">$tagname""";
      }

      # Add the subtags
      $list = $list + $this->get_tag_list("""$tagname$delimiter""", $subtagorder, $subunordered, $realsubtags, $visibletags, $delimiter, $pre_count, $post_count, $show_count);

      $list = $list + "</li>";
    }
    
    # Close the tag list
    $list = $list + "</ul>";

    # Enclose the entire list in an li tag as required by the layout.
    $list = """<li class="tagBox">""" + $list + """</li>""";

    # Add styling to box title.
    $tag_title = """<li class="sbartitle">$tag_title</li>""";

    # Print out the tagsbox
    print_sidebar_box($tag_title, $list);
  }
}

function print_sidebar() {
    
    var MyUtils mu = new MyUtils;

    print_userpic();
    print_sidebar_blurb();
    $mu->print_tag_list();
    print_sidebar_linklist();
    print_sidebar_calendar();

}

Opal: Smilies in Posts and Comments

murklinstest — Wed, 08 Mar 2006 17:15:47 GMT

Adapted from absolut's component_help tutorial Adding Smilies to your post/comments.

1. Review the Getting Smilies section of the component_help Adding Smilies to your post/comments tutorial.

2. Make sure you have created a theme layer. See the s2howto tutorial Creating and Using a Theme Layer and follow the instructions under the Creating a Theme Layer header.

Adding Smilies to your Posts

3. Do you already have the Page::print_entry function in your theme layer? If not, go to the Opal layer source, copy the Page::print_entry function from there and paste it into your theme layer.

4. Find this line in the Page::print_entry function:

"<p>"; $e->print_text(); "</p>";

Replace it with this code:

var string text = $e.text;
var string value;
var string{} emoticons =
{
	# for each smiley you want to add, add a new line 
	# the format for adding new smilies should be something like this:
	# "[:smiley:]" => """<img src="[url of the smiley image]" alt="" width="" height="" />""",
	# note: for each line, there should be a comma at the very end, EXCEPT for the last line
	":)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/smile.gif" alt="" width="15" height="15" />""",
	";-)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/wink.gif" alt="" width="15" height="15" />""",
	":("	=> """<img src="http://stat.livejournal.com/img/mood/classic/sad.gif" alt="" width="15" height="15" />"""
};

foreach var string key ($emoticons) {
	$value = $emoticons{$key};
		
	# from lj:mageboltrat's industrial nippon (id=533012)
	# see http://www.livejournal.com/community/s2layers/11106.html
	var string[] findarray;
	var int pos = 1;
	foreach var string findcharacter($key) {
		$findarray[$pos] = $findcharacter;
		$pos             = $pos + 1;
	}
	var int    place         = 1;
	var bool   found         = false;
	var string completedtext = "";
	var string foundtext     = "";
	foreach var string searchcharacter($text) {
	if  ($searchcharacter == $findarray[$place]) {
		if ($place == $key->length()) {
			$foundtext =  $value;
		        $place     = 1;
		} else {
			$foundtext = $foundtext + $searchcharacter;
		        $place     = $place + 1;
		}
		} else {
			$completedtext = $completedtext + $foundtext + $searchcharacter;
			$foundtext     = "";  
			$place         = 1;    
		}
	}
	$completedtext = $completedtext + $foundtext;
	$text = $completedtext;
}
"""<p>$text</p>""";

5. Customize the code in red to the emoticons and image urls that you want to use.

Adding Smilies to your Comments

6. Do you already have the EntryPage::print_comment function in your theme layer? If not, go to the Opal layer source, copy it from there and paste it into your theme layer.

7. Find this line in the EntryPage::print_comment function:

<p>$c.text</p>

Replace it with this code:

""";
var string text = $c.text;
var string value;
var string{} emoticons =
{
	# for each smiley you want to add, add a new line 
	# the format for adding new smilies should be something like this:
	# ":smiley:" => """<img src="" alt="" width="" height="" />""",
	# note: for each line, there should be a comma at the very end, EXCEPT for the last line
	":)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/smile.gif" alt="" width="15" height="15" />""",
	";-)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/wink.gif" alt="" width="15" height="15" />""",
	":("	=> """<img src="http://stat.livejournal.com/img/mood/classic/sad.gif" alt="" width="15" height="15" />"""
};

foreach var string key ($emoticons) {
	$value = $emoticons{$key};
		
	# from lj:mageboltrat's industrial nippon (id=533012)
	# see http://www.livejournal.com/community/s2layers/11106.html
	var string[] findarray;
	var int pos = 1;
	foreach var string findcharacter($key) {
		$findarray[$pos] = $findcharacter;
		$pos             = $pos + 1;
	}
	var int    place         = 1;
	var bool   found         = false;
	var string completedtext = "";
	var string foundtext     = "";
	foreach var string searchcharacter($text) {
	if  ($searchcharacter == $findarray[$place]) {
		if ($place == $key->length()) {
			$foundtext =  $value;
		        $place     = 1;
		} else {
			$foundtext = $foundtext + $searchcharacter;
		        $place     = $place + 1;
		}
		} else {
			$completedtext = $completedtext + $foundtext + $searchcharacter;
			$foundtext     = "";  
			$place         = 1;    
		}
	}
	$completedtext = $completedtext + $foundtext;
	$text = $completedtext;
}
"""
<p>$text</p>

8. Again, customize the code in red to the emoticons and image urls that you want to use.

Adding Smilies to your Reply Page and Outputting A List of Smilies

9. Do you already have the ReplyPage::print_body function in your theme layer? If not, copy the ReplyPage::print_body function from the Opal layer source and paste it into your theme layer.

10. Find this line in the ReplyPage::print_body function:

$e->print_text();

Replace it with this code:

var string text = $e.text;
var string value;
var string{} emoticons =
{
	# for each smiley you want to add, add a new line 
	# the format for adding new smilies should be something like this:
	# "[:smiley:]" => """<img src="[url of the smiley image]" alt="" width="" height="" />""",
	# note: for each line, there should be a comma at the very end, EXCEPT for the last line
	":)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/smile.gif" alt="" width="15" height="15" />""",
	";-)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/wink.gif" alt="" width="15" height="15" />""",
	":("	=> """<img src="http://stat.livejournal.com/img/mood/classic/sad.gif" alt="" width="15" height="15" />"""
};

foreach var string key ($emoticons) {
	$value = $emoticons{$key};
		
	# from lj:mageboltrat's industrial nippon (id=533012)
	# see http://www.livejournal.com/community/s2layers/11106.html
	var string[] findarray;
	var int pos = 1;
	foreach var string findcharacter($key) {
		$findarray[$pos] = $findcharacter;
		$pos             = $pos + 1;
	}
	var int    place         = 1;
	var bool   found         = false;
	var string completedtext = "";
	var string foundtext     = "";
	foreach var string searchcharacter($text) {
	if  ($searchcharacter == $findarray[$place]) {
		if ($place == $key->length()) {
			$foundtext =  $value;
		        $place     = 1;
		} else {
			$foundtext = $foundtext + $searchcharacter;
		        $place     = $place + 1;
		}
		} else {
			$completedtext = $completedtext + $foundtext + $searchcharacter;
			$foundtext     = "";  
			$place         = 1;    
		}
	}
	$completedtext = $completedtext + $foundtext;
	$text = $completedtext;
}
"""$text""";

11. Again, customize the code in red to the emoticons and image urls that you want to use.

12. Paste the following code just *before* the $.form->print(); line in your theme layer's ReplyPage::print_body function:

	"""
	<div class="emoticon_box">
		<a name="smileys"></a><b>Add a Smiley to your comment</b><br />
		(Hover over each smiley to get the code)<br />
	""";

	foreach var string key ($emoticons) {
		$value = $emoticons{$key};
		"""<a href="#smileys" class="info">$value<span>$key</span></a> """;
	}
	"""</div>""";

13. Do you already have the Page::print_custom_head function in your theme layer? If not, add the following code to your layer:

function Page::print_custom_head() {
"""
<style type="text/css">

</style>
""";
}

14. Now add this css to your theme layer's Page::print_custom_head function, just before the </style> line:

.emoticon_box {
  text-align: center;
  margin: 10px;
  padding: 10px;
  background-color: $*color_fg;
  color: $*color_fg_font;
  border: 1px solid $*color_fg_font;
}

a.info {
  position: relative; /*this is the key*/
  z-index: 24;
  background-color: $*color_fg;
  color: $*color_fg_font;
  text-decoration: none;
}

a.info:hover {
  z-index:25; 
  background-color: transparent !important;
}

a.info img {
  border: none;
}

a.info span {
  display: none;
}

a.info:hover span { /*the span will display just on :hover state*/
  display: block;
  position: absolute;
  top: 2em; 
  left: 2em;
  width: 15em;
  border:1px solid $*color_fg_font;
  background-color: $*color_fg;
  color: $*color_fg_font;
  text-align: center;
  text-decoration: none;
}

Flexible Squares: Super-Sorted Bi-Level Tags in Sidebar

murklinstest — Wed, 01 Mar 2006 21:47:49 GMT

Urg. Second attempt. Allows for sorting of second level tags as well, which I think was todeskun's actual s2flexisquares request. See how I miss the obvious. Again, is this code any good? I honestly can't tell anymore. One thing I do know: it's horrendously long.

function print_sidebar() {

#####   Config   #####

  # Specify your delimiter.  One char only -- extra chars get truncated.
  var string delimiter = ":";

  # Specify the title of your tag box
  var string tag_title = "Tags";

  # Specify your top-level sort order
  # Add the top-level labels that you want sorted to the 
  # top of the list in the order you want them to display.
  # Example Tags: birdes:budgies, cats:abyssinian, cats:persian, dogs
  # Desired Order: dogs, cats, all others in alphabetical order
  # Format: var string[] tagorder = ["dogs", "cats"];
  var string[] tagorder = [];

  # Specify your subtag sort order
  # Add the sub tag fragments that you want sorted to the 
  # top of their sublist in the order you want them to display.
  # Example Tags: cats:abyssinian, cats:persian, cats:siamese, cats:tabbies
  # Desired Order: tabbies, siamese, all others in alphabetical order
  # Format: 
  # var string[]{} subtagorder = {
  #   "cats" => ["tabbies", "siamese"]
  # };
  var string[]{} subtagorder;

  # Do you want to show the tag use counts?
  var bool show_count = true;

  # Specify the text to show just before the use count, if any
  var string pre_count = "[";

  # Specify the text to show just after the use count, if any
  var string post_count = "]";

##### End Config #####

  var Page p = get_page();
  var string list = "";
    
  if (size $p->visible_tag_list() > 0) { 

    # Turn the sort order into an associative array for easy access
    var string{} sorttoptags;
    foreach var string tagname ($tagorder) {
      $sorttoptags{$tagname} = $tagname;
    }
     
    # Turn the subtag sort order into an associative array for easy access
    var string{}{} sortsubtags;
    foreach var string toptagname ($subtagorder) {
      var string[] subtags = $subtagorder{$toptagname};
      var string{} subtag_hash;
      foreach var string tagname ($subtags) {
        $subtag_hash{$tagname} = $tagname;
      }
      $sortsubtags{$toptagname} = $subtag_hash; 
    }

    # Can't use delimiter longer than one char, so truncate if necessary.
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    }

    var string prev_top_level = "";
    var TagDetail{}{} visibletags;
    var string[] unordered;
    var string[]{} subunordered;
    foreach var TagDetail t ($p->visible_tag_list()) { 
            
      if ($t.name) {      
        # Split once on delimiter   
        var string[] tags;
        var int array_counter = 0;
        var string buffer = "";
        var bool found_delimiter = false;
        foreach var string char ($t.name) {
          if (($found_delimiter == false) and ($char == $delimiter)) {
            $found_delimiter = true;
            $tags[$array_counter] = $buffer;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;
                 
        if (size $tags == 1) {
          # This tag has no subtag
          $visibletags{$tags[0]}{$tags[0]} = $t;
        }
        else {
          var string subtag = $tags[0] + "sub";
          $visibletags{$subtag}{$tags[1]} = $t;
        }

        # If tag is not in top-level sort order, add it to top unordered array
        if ($tags[0] != $prev_top_level) {
          if ($sorttoptags{$tags[0]} != $tags[0]) {
            $unordered[size $unordered] = $tags[0];
          }
          $prev_top_level = $tags[0];
        }

        # If sub exists and is not in subtag sort order, add it to subtag unordered array
        if (size $tags > 1) {
          if ($sortsubtags{$tags[0]}) {
            # This top-level tag has some ordered subtags 
            if ($sortsubtags{$tags[0]}{$tags[1]} != $tags[1]) {
              # But this particualr subtag is not one of them
              $subunordered{$tags[0]}[size $subunordered{$tags[0]}] = $tags[1];
            }
          }
          else {
            # This top-level tag has no ordered subtags
            $subunordered{$tags[0]}[size $subunordered{$tags[0]}] = $tags[1];
          }
        }

      }  
    } 

    # Start the list.
    $list = """<ul class="tagList">"""; 

    # Add top-level sorted tags to list first
    foreach var string tagname ($tagorder) {
      # Ignore any tag names in sort array that aren't in the visible tag list
      if ($visibletags{$tagname} or $visibletags{"${tagname}sub"}) {

        if ($visibletags{$tagname}) {
          # This is a top-level tag
          var TagDetail t = $visibletags{$tagname}{$tagname};
          $list = $list + """<li class="tagItem"><a href="$t.url">$tagname</a>""";
          if ($show_count) {
            $list = $list + """&nbsp;${pre_count}${t.use_count}${post_count}""";
          }
        }
        else {
          # These subtags just have a top-level label
          $list = $list + """<li class="tagItem">$tagname""";
        }

        # Add the subtags
        if ($visibletags{"${tagname}sub"}) {
          $list = $list + """<ul class="tagList">""";
   
          # Add ordered subtags first
          if ($subtagorder{$tagname}) {
            foreach var string subtagname ($subtagorder{$tagname}) {
              var TagDetail t = $visibletags{"${tagname}sub"}{$subtagname};
              $list = $list + """<li class="tagItem"><a href="$t.url">$subtagname</a>""";
              if ($show_count) {
                $list = $list + """&nbsp;${pre_count}${t.use_count}${post_count}""";
              }
              $list = $list + "</li>";
            }
          }
          # Now add unordered subtags
          if ($subunordered{$tagname}) {
            foreach var string subtagname ($subunordered{$tagname}) {
              var TagDetail t = $visibletags{"${tagname}sub"}{$subtagname};
              $list = $list + """<li class="tagItem"><a href="$t.url">$subtagname</a>""";
              if ($show_count) {
                $list = $list + """&nbsp;${pre_count}${t.use_count}${post_count}""";
              }
              $list = $list + "</li>";
            }
          }
          $list = $list + "</ul>";
        }

        # Close the top-level item
        $list = $list + "</li>";
      }
    }

    # Add alphabetically sorted tags to the list
    foreach var string tagname ($unordered) {
      # Ignore any tag names in sort array that aren't in the visible tag list
      if ($visibletags{$tagname} or $visibletags{"${tagname}sub"}) {

        if ($visibletags{$tagname}) {
          # This is a top-level tag
          var TagDetail t = $visibletags{$tagname}{$tagname};
          $list = $list + """<li class="tagItem"><a href="$t.url">$tagname</a>""";
          if ($show_count) {
            $list = $list + """&nbsp;${pre_count}${t.use_count}${post_count}""";
          }
        }
        else {
          # These subtags just have a top-level label
          $list = $list + """<li class="tagItem">$tagname""";
        }

        # Add the subtags
        if ($visibletags{"${tagname}sub"}) {
          $list = $list + """<ul class="tagList">""";
   
          # Add ordered subtags first
          if ($subtagorder{$tagname}) {
            foreach var string subtagname ($subtagorder{$tagname}) {
              var TagDetail t = $visibletags{"${tagname}sub"}{$subtagname};
              $list = $list + """<li class="tagItem"><a href="$t.url">$subtagname</a>""";
              if ($show_count) {
                $list = $list + """&nbsp;${pre_count}${t.use_count}${post_count}""";
              }
              $list = $list + "</li>";
            }
          }
          # Now add unordered subtags
          if ($subunordered{$tagname}) {
            foreach var string subtagname ($subunordered{$tagname}) {
              var TagDetail t = $visibletags{"${tagname}sub"}{$subtagname};
              $list = $list + """<li class="tagItem"><a href="$t.url">$subtagname</a>""";
              if ($show_count) {
                $list = $list + """&nbsp;${pre_count}${t.use_count}${post_count}""";
              }
              $list = $list + "</li>";
            }
          }
          $list = $list + "</ul>";
        }

        # Close the top-level item
        $list = $list + "</li>";
      }
    }

    
    # Close the tag list
    $list = $list + "</ul>";

    # mt:20050625: Enclose the entire list in an li tag as required by the layout.
    $list = """<li class="tagBox">""" + $list + """</li>""";

    # mt:20050623: Add styling to box title.
    $tag_title = """<li class="sbartitle">$tag_title</li>""";
  }

##### Specify Box Order #####
 
    # Print out all your sidebar boxes in the order you 
    # want, including a call for this one -- print_sidebar_box($tag_title, $list) --
    # nested within an if statement to prevent tags box from printing in the event 
    # of no visible tags.
    print_userpic();
    print_sidebar_blurb();  
    if ($list != ""){print_sidebar_box($tag_title, $list);}
    print_sidebar_linklist();
    print_sidebar_calendar();

#####   End Box Order   #####

}

Flexible Squares: Sorted Bi-Level Tags in Sidebar

murklinstest — Wed, 01 Mar 2006 19:19:44 GMT

This is a first effort towards answering todeskun's s2flexisquares post. Not sure if it's the best way, and there may be some unecessary inefficiency in there. Could interested parties please give it a once-over? If you had better ideas for solving this problem, I'd like to know about them, and implement those instead. I have been known to overlook the obvious. :)

ETA: I think this code doesn't allow enough sorting -- it only sorted top-level tags. Please see Attempt #2.

function print_sidebar() {

#####   Config   #####

  # Specify your delimiter.
  # One char only -- extra chars get truncated.
  var string delimiter = ":";

  # Specify the title of your tag box
  var string tag_title = "Tags";

  # Specify your sort order.
  # Add the top-level labels that you want to sort to the 
  # top of the list in the order you want them to display.
  # Format: var string[] tagorder = ["dogs", "cats", "birds"];
  var string[] tagorder = [];

  # Do you want to show the tag use counts?
  var bool show_count = true;

  # Specify the text to show just before the use count, if any
  var string pre_count = "[";

  # Specify the text to show just after the use count, is any
  var string post_count = "]";

##### End Config #####

  var Page p = get_page();
  var string list = "";
    
  if (size $p->visible_tag_list() > 0) { 
     
    # Turn the sort order into an associative array for easy access
    var string{} sorttags;
    foreach var string tagname ($tagorder) {
      $sorttags{$tagname} = $tagname;
    }

    # Can't use delimiter longer than one char, so truncate if necessary.
    if ($delimiter->length() > 1) {
      $delimiter = $delimiter->substr(0, 1);
    }

    var string prev_top_level = "";
    var TagDetail{}[]{} visibletags;
    var string[] unordered = [];
    foreach var TagDetail t ($p->visible_tag_list()) { 
            
      if ($t.name) {      
        # Split once on delimiter   
        var string[] tags;
        var int array_counter = 0;
        var string buffer = "";
        var bool found_delimiter = false;
        foreach var string char ($t.name) {
          if (($found_delimiter == false) and ($char == $delimiter)) {
            $found_delimiter = true;
            $tags[$array_counter] = $buffer;
            $array_counter = $array_counter + 1;
            $buffer = "";
          }
          else {
            $buffer = $buffer + $char;
          } 
        }  
        $tags[$array_counter] = $buffer;
                 
        if (size $tags == 1) {
          # This tag has no subtag
          $visibletags{$tags[0]}[size $visibletags{$tags[0]}] = {$tags[0] => $t};
        }
        else {
          var string subtag = $tags[0] + "sub";
          $visibletags{$subtag}[size $visibletags{$subtag}] = {$tags[1] => $t};
        }

        if ($tags[0] != $prev_top_level) {
          if ($sorttags{$tags[0]} != $tags[0]) {
            # If tag is not in sort order, add it to unsorted array
            $unordered[size $unordered] = $tags[0];
          }
          $prev_top_level = $tags[0];
        }
      }  
    } 

    # Start the list.
    $list = """<ul class="tagList">"""; 

    # Add sorted tags to list first
    foreach var string tagname ($tagorder) {
      # Ignore any tag names in sort array that aren't in the visible tag list
      if ($visibletags{$tagname} or $visibletags{"${tagname}sub"}) {

        if ($visibletags{$tagname}) {
          # This is a top-level tag
          var TagDetail t = $visibletags{$tagname}[0]{$tagname};
          $list = $list + """<li class="tagItem"><a href="$t.url">$tagname</a>""";
          if ($show_count) {
            $list = $list + """&nbsp;${pre_count}${t.use_count}${post_count}""";
          }
        }
        else {
          # These subtags just have a top-level label
          $list = $list + """<li class="tagItem">$tagname""";
        }

        # Add the subtags
        if ($visibletags{"${tagname}sub"}) {
        $list = $list + """<ul class="tagList">""";
        foreach var TagDetail{} subtag ($visibletags{"${tagname}sub"}) {
          foreach var string name ($subtag) {
            var TagDetail t =  $subtag{$name};
            $list = $list + """<li class="tagItem"><a href="$t.url">$name</a>""";
            if ($show_count) {
              $list = $list + """&nbsp;${pre_count}${t.use_count}${post_count}""";
            }
            $list = $list + "</li>";
          }
        }
        $list = $list + "</ul>";
        }

        # Close the top-level item
        $list = $list + "</li>";
      }
    }

    # Add alphabetically sorted tags to the list
    foreach var string tagname ($unordered) {
      # Ignore any tag names in sort array that aren't in the visible tag list
      if ($visibletags{$tagname} or $visibletags{"${tagname}sub"}) {

        if ($visibletags{$tagname}) {
          # This is a top-level tag
          var TagDetail t = $visibletags{$tagname}[0]{$tagname};
          $list = $list + """<li class="tagItem"><a href="$t.url">$tagname</a>""";
          if ($show_count) {
            $list = $list + """&nbsp;${pre_count}${t.use_count}${post_count}""";
          }
        }
        else {
          # These subtags just have a top-level label
          $list = $list + """<li class="tagItem">$tagname""";
        }

        # Add the subtags
        if ($visibletags{"${tagname}sub"}) {
        $list = $list + """<ul class="tagList">""";
        foreach var TagDetail{} subtag ($visibletags{"${tagname}sub"}) {
          foreach var string name ($subtag) {
            var TagDetail t =  $subtag{$name};
            $list = $list + """<li class="tagItem"><a href="$t.url">$name</a>""";
            if ($show_count) {
              $list = $list + """&nbsp;${pre_count}${t.use_count}${post_count}""";
            }
            $list = $list + "</li>";
          }
        }
        $list = $list + "</ul>";
        }

        # Close the top-level item
        $list = $list + "</li>";
      }
    }
    
    # Close the tag list
    $list = $list + "</ul>";

    # mt:20050625: Enclose the entire list in an li tag as required by the layout.
    $list = """<li class="tagBox">""" + $list + """</li>""";

    # mt:20050623: Add styling to box title.
    $tag_title = """<li class="sbartitle">$tag_title</li>""";
  }

##### Specify Box Order #####
 
    # Print out all your sidebar boxes in the order you 
    # want, including a call for this one -- print_sidebar_box($tag_title, $list) --
    # nested within an if statement to prevent tags box from printing in the event 
    # of no visible tags.
    print_userpic();
    print_sidebar_blurb();  
    if ($list != ""){print_sidebar_box($tag_title, $list);}
    print_sidebar_linklist();
    print_sidebar_calendar();

#####   End Box Order   #####

}

Passing bool{} and bool[]

murklinstest — Mon, 27 Feb 2006 23:50:21 GMT

Am I crazy or does trying to declare a function that accepts an argument of type bool{} or bool[] always cause a compilation error?

ETA: No! Not crazy. Ticket #936.

Semi-Threaded Comments

murklinstest — Thu, 16 Feb 2006 07:48:28 GMT

So a recent post in Flexible Squares got me to thinking once again about the problem of long comment threads either expanding too far to the right in Firefox, requiring lots of horizontal scrolling, or becoming terminally squished in IE since it doesn't understand min-width. I was wondering if the primary format of long threads is a single long chain, where each comment has only one reply. If that's the case, why does each comment in that chain need indentation? If it isn't branching off into new threads, shouldn't it be just as easy to understand if no indentation were used at all? Thus I created a semi-threaded comment display, which indents a comment only when it is not the only reply to its parent*.

Hmm, reading this over, I find my own description entirely useless. Best link to an example. This comment has some fairly long chains, leading to a bit of comment squish. Viewed with semi-threading, though, it exhibits far less squish. But is the comment progression still understandable?

* Actually, that is the slightly simplified logic. It also always indents depth 2 comments to allow all the top level comments to be easily identified.

Smooth Sailing: Adaptation of c_h Smilies Tutorial

murklinstest — Sun, 12 Feb 2006 18:45:42 GMT

Over at component_help, absolut wrote the Adding Smilies to your post/comments tutorial, which has code for translating typed smilies into custom images. This tutorial here does not reproduce or improve on that code, it simply tells you how to adapt the steps in the tutorial to make the code work in a Smooth Sailing theme layer.

1. Review the Getting Smilies section of the component_help Adding Smilies to your post/comments tutorial.

2. Make sure you have created a theme layer.

Adding Smilies to your posts (theme layer)

3. Do you already have the Entry::lay_print function in your theme layer? If not, go to the Smooth Sailing layer source, copy the Entry::lay_print function from there and paste it into your theme layer.

4. Now look at the Adding Smilies to your post/comments tutorial, in the section Adding Smilies to your posts (theme layer). There, it asks you to replace the following line in print_entry with the emoticons code:

""" $e.text """;

In Smooth Sailing, find this line in Entry::lay_print instead:

"""<div class="entryText">"""; print $.text; """</div>""";

Add in some new lines to make it look like this:

"""<div class="entryText">""";

print $.text;

"""</div>""";

Now replace the print $.text; line with the emoticons code from the tutorial. Customize the code in red to the emoticons and image urls that you want to use.

5. The first line of the code you just added from the component_help tutorial looks like this:

var string text = $e.text;

You need to replace it with this line:

var string text = $.text;

Adding Smilies to your comments (theme layer)

6. Do you already have the EntryPage::print_comment and the EntryLite::lay_print functions in your theme layer? If not, go to the Smooth Sailing layer source, copy them from there and paste them into your theme layer.

7. Now look at the Adding Smilies to your post/comments tutorial, in the section Adding Smilies to your comments (theme layer). There, it asks you to replace the following lines in print_comment with the emoticons code:

"""
<div style="margin-left: 5px">$comment.text</div>""";

In Smooth Sailing, replace this line of EntryPage::print_comment instead:

"""<div class="commentText">$comment.text</div>""";

8. The last line of the code you just added from the component_help tutorial looks like this:

<div style="margin-left: 5px">$text</div>""";

You need to replace it with this line:

<div class="commentText">$text</div>""";

9. Again, customize the code in red to the emoticons and image urls that you want to use.

10. Also replace this line of EntryLite::lay_print with the emoticons code:

"""<div class="commentText">$.text</div>""";

11. The first line of the code you just added from the component_help tutorial looks like this:

var string text = $comment.text;

You need to replace it with this line:

var string text = $.text;

12. The last line of the code you just added from the component_help tutorial looks like this:

<div style="margin-left: 5px">$text</div>""";

You need to replace it with this line:

<div class="commentText">$text</div>""";

13. Again, customize the code in red to the emoticons and image urls that you want to use.

Outputting A List of Smilies (theme layer)

14. Do you already have the ReplyPage::print_body function in your theme layer? If not, copy the ReplyPage::print_body function from the Smooth Sailing layer source and paste it into your theme layer.

15. Paste the following code just *before* the $.form->print(); line in your layer's ReplyPage::print_body function:

        var string value;
	var string{} emoticons =
	{
		# for each smiley you want to add, add a new line 
		# the format for adding new smilies should be something like this:
		# ":smiley:" => """<img src="" alt="" width="" height="" />""",
		# note: for each line, there should be a comma at the very end, EXCEPT for the last line
		":)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/smile.gif" alt="" width="15" height="15" />""",
		";-)"	=> """<img src="http://stat.livejournal.com/img/mood/classic/wink.gif" alt="" width="15" height="15" />""",
		":("	=> """<img src="http://stat.livejournal.com/img/mood/classic/sad.gif" alt="" width="15" height="15" />"""
	};

	"""
	<div class="emoticon_box">
		<a name="smileys"></a><b>Add a Smiley to your comment</b><br />
		(Hover over each smiley to get the code)<br />
	""";

	foreach var string key ($emoticons) {
		$value = $emoticons{$key};
		"""<a href="#smileys" class="info">$value<span>$key</span></a> """;
	}
	"""</div>""";

16. As before, you need to modify the red code to use your chosen emoticons and corresponding image urls.

17. Do you already have the Page::print_custom_head function in your theme layer? If not, add the following code to your layer:

function Page::print_custom_head() {
"""
<style type="text/css">

</style>
""";
}

18. Now add this css to your theme layer's Page::print_custom_head function, just before the </style> line:

.emoticon_box {
  text-align: center;
  margin: 10px;
  padding: 10px;
  background-color:$*color_body_background;
  color:$*color_body_text;
  border: 1px solid $*color_body_text;
}

a.info {
  position:relative; /*this is the key*/
  z-index:24;
  background-color:$*color_body_background;
  color:$*color_body_text;
  text-decoration:none;
}

a.info:hover {
  z-index:25; 
  background-color: transparent;
}

a.info img {
  border: none;
}

a.info span {
  display: none;
}

a.info:hover span { /*the span will display just on :hover state*/
  display:block;
  position:absolute;
  top:2em; 
  left:2em;
  width:15em;
  border:1px solid $*color_body_text;
  background-color:$*color_body_background;
  color:$*color_body_text;
  text-align: center;
  text-decoration: none;
}

19. Compile your layer and check your journal to see that emoticons are being replaced by the correct images and that on the reply page your list of available images is appearing.

Important Note:
Avoid replacing ;) and :/ with images as doing so will screw up cut tags and all links and images. Try using ;-) and :-/ instead.

murklinstest — Sat, 11 Feb 2006 18:06:40 GMT

Does anyone else think it's funny that in light of the site-wide CSS changes made recently Flexible Squares layouts *benefited* from the bug that causes custom css to print out twice? Hee.

IE 7 Beta 2 Preview

murklinstest — Wed, 01 Feb 2006 18:33:17 GMT

IE 7 Beta 2 Preview was released to the public yesterday. Works on Win XP SP2. Have done some very quick tests with the as yet unreleased Flexible Squares code to see if there's much improvement over IE6. Oh IE! So close and yet... not really. Still, much better than before. At least wide content escapes divs rather than stretching them to accommodate:

Unfortunately, that wide content still won't overlap an adjacent floated div, which in Flexible Squares forces the wide image down to where the sidebar ends:

ETA1: Just like in IE6, the gap happens whether the sidebar is on the left or the right. But please tell me I'm wrong about the disappearing text bug resurfacing in IE7:

ETA2: Ooo, but I think max-width works! Not min-width, though? Weird.

murklinstest — Tue, 17 Jan 2006 19:38:47 GMT

Huh. I have not logged in as murklinstest in *two* days. Some kind of record, considering I have had uninterrupted internet access. I even had to go earlier on my Friends page. I still am not here for reals (Recent Comments will have to wait until later), but I did want to note, after reading allsorts46's post in lj_style, that if there is an up-to-date record somewhere of all S2's undocumented features, I would love to know about it. And maybe link to it from somewhere in s2flexisquares, so that people interested in learning S2 can get the full story. If such a record does not exist, someone should make one. I'm just sayin'...

S2 is Love

murklinstest — Fri, 02 Dec 2005 07:03:27 GMT

isa and as! O glorious day!

*eyes knocking code menacingly*

Commentbar (why won't you die?)

murklinstest — Wed, 30 Nov 2005 17:25:11 GMT

I was thinking about the new incarnation of the commentbar function and the associated get_link_array function, and wondering what a paid user would need to do to get image buttons working. So I made a theme layer, since I can't work these things out sufficiently in my head, and I made some code that I like. In this code, I theorize the possibility that while there are some links that have associated images, there could always be one or two that must be shown as text (especially given that new entry linkbar links can be displayed automatically but custom buttons might not be available for them yet). In that case, I'd stick all the buttons on one side of the comment bar and all the text links on the other side since that is the most visually appealing approach.

Then I noticed that the buttons don't need separators but the text links do. So I made a new version of commentbar() that accepts an additional $separator parameter, so that you can use different separators depending on the side. In the layout layer, we would pass $*comment_sep to both sides, but if a paid user wanted to have buttons without separators between them, that would be easy to implement without giving up the separator between text links.

Theme Layer
Test Style -- this entry should show the text link separator in action.

Arg! Quickreply

murklinstest — Fri, 18 Nov 2005 19:52:10 GMT

Note to self: Quickreply box sits inside the commentbar div when you click the "Leave a comment" link. Looks sort of strange. Is it on purpose?

Thinking Out Loud (but also silently)

murklinstest — Thu, 17 Nov 2005 00:02:43 GMT

On Reply page, Peekaboo bug was fixed by having the box that follows the entry not clear the userpic. Basically, it is the clear: left on .box that causes the bug in the current system code. Might want to consider adding the .clear and .seperator divs to the Reply page, to mimic the Entry page and make sure the reply box's border doesn't get overlapped by the userpic. Actually, it is probably the presence of those divs on the Entry page that prevent Peekaboo, even though .box is still clearing left there. So that would be another way to fix it, I guess.

Why can't I remember how was it fixed on the Recent Entries page? Or even how to trigger it there?