S2 Layers

Легко настраиваемый дизайн

2007-12-14T12:29:55Z

Итак. Хотелось бы предложить идею, так как на реализацию таковой у меня не хватит (совсем) ни знаний ни опыта. Искренне надеюсь, что на нее обратит внимание кто нибудь из создателей стилей и (очень надеюсь!) camomiletea.

Так вот. Сколько бы я не искал, но нет среди предложенных даже для платных аккаунтов такого стиля при котором можно бы было максимально контролировать собственный дизайн не обладая при этом какими либо знаниями в программировании и т.п.

Долго думал я и ковырялся, и вот нашел некоторую систему:

Так или иначе любой стиль в жж (да и вообще в сети) чаще всего имеет схему:
1) topbanner
2) sidebar
3) contentbox

sidebar в свою очередь помимо всего прочего имеет внутри себя (как правило) некий linkbox в которых и находится все что душеньке угодно, от ссылок до счетчиков, инфоблоков и прочая прочая прочая.

см. рисунок

Теперь перейду собственно к задумке.
А вот хорошо бы было, что бы пользователь (даже самый непонятливый) имел возможность в настройке своего стиля указывать следующие параметры:

Общие:
1.общий фон - задать цвет или загрузить картинку
2.topbanner - задать размер в высоту, загрузить картинку
3.общая таблица - задать цвет и толщину бордюра

sidebar:
1. установить количество linkbox
2. выбрать цвет(и или) картинку для параметров 1-9 linkbox см.картинку

выбрать расположение usermenu (левый верхний угол topbanner, другие его углы, полоска под topbanner (и местоположение на ней) или один из linkbox в sidebar)

выбрать шрифт и размер для заголовка и подзаголовка. (хорошо бы было если бы было два topbanner один над другим, тогда некоторые платные пользователи могли бы размещать там свой баннер с рекламой или название жж или еще что нибудь что угодно))

выбрать шрифт и размер для линков и текста в sidebar, заголовков тем, текста тела сообщения, даты и прочь.

Добавить постоянную подпись в сообщение.

Ну и хорошо бы было так же настраисать и тело сообщений, расположение аватара, настроений, цвет подложки для заголовка.... и так далее.

Спасибо за внимание, надеюсь желающие реализовать эту идею найдутся.
Если что обращайтесь за идеями ко мне )))

Вопрос про редактируемый sidebar | Question about edited sidebar,

2007-10-25T12:17:45Z

S2 платный - Родительский слой - собственный на основе Style Contest/Cleanstyle Black and White
Не уверен, что мне тут помогут, но....
Ситуация следующая: Style Contest мною был выбран в следствии долгих экспериментов, по причине того, что это единственный родительский слой, в котором прописаны полностью адреса к css файлам оформлений. И единственный слой, в котором внесение мной незначительных изменений изменений дало именно тот результат, который я хотел. В ситуации с Expressive, например, даже внесение своего css файла в custome css давала результат в виде отображение жж вообще без дизайна или с дизайном по умолчению взятом из weblog.css

Так вот:
Есть S2 родительский слой названный мною LiderBlog на основе, как я уже говорил Style Contest
То, чего в нем не реализовано - это внесение изменений в sidebar. Зато это очень красиво реализовано в Digital Multiplex (OSWD).

Внимание вопрос: Какие части кода нужно перенести из Digital Multiplex (OSWD) в мой LiderBlog, что бы эти функции там заработали?
Сразу скажу, что тупой перенос группы

propgroup sidebar

результата не дают. В настройках стиля эта фишка появляется, но вносимые изменения в силу не вступают. Тоже самое относится и к "Entry footer HTML"

Еще один ворос:
Как в принципе работает "Entry footer HTML"? То есть, что дает внесение в это окошко html кода и где он в итоге отображается.

S2 Paid - the Parental layer - own on a basis Style Contest/Cleanstyle Black and White
It is not confident, that to me here will help, but....
Situation following: Style Contest me has been chosen in consequence(investigation) of long experiments for the reason that it is a unique parental layer in which addresses to css to files of registrations are registered completely. And a unique layer in which entering of minor alterations of changes by me has given(allowed) that result which I wanted. In a situation with Expressive, for example, even entering of the css a file in custome css gave result as display жж in general without design or with design by default taken of weblog.css

And so:
Is S2 a parental layer named me LiderBlog on a basis how I already spoke Style Contest
What in it(him) it is not realized is a modification in sidebar. But it is very beautifully realized in Digital Multiplex (OSWD) .

Attention a question: What parts of a code need to be transferred from Digital Multiplex (OSWD) to mine LiderBlog, what these functions there would earn?
At once I shall tell, that stupid(blunt) carry of group

  propgroup   sidebar

result do not give. In adjustments(options) of style this chesspiece appears, but brought changes valid do not enter. Too most concerns and to " Entry footer HTML "

One more question:
How basically works " Entry footer HTML "? That is, that entering into it окошко html gives a code and where it(he) in a result is displayed.

Beforehand I apologize, that I use the electronic translator - English I do not own :(

[theme] - [tranqii] - [sticky entry]

2007-04-01T14:11:58Z

in response to sdlucly's comment in jdark's s2tranquility2 post.

# -------------------------------
# main page display entries and
# footer
# -------------------------------
function RecentPage::print_body () {
  var bool   enable_sticky      = true;
  var string sticky_subject     = ""; # Welcome
  var string sticky_date        = ""; # Apr. 1st, 2007
  var string sticky_location    = ""; # San Francisco, CA
  var string sticky_mood        = ""; # creative
  var string sticky_music       = ""; # Mirrors on Shoes - LiveJournal
  var string sticky_permalink   = ""; # http://exampleusername.livejournal.com/289.html
  var string sticky_posturl     = ""; # http://exampleusername.livejournal.com/289.html?mode=reply
  var string sticky_poster      = ""; # exampleusername
  var string sticky_userpic     = ""; # http://stat.livejournal.com/img/goat-normal.gif
  var string sticky_userpic_alt = ""; # $.journal.username

  var bool   print_sticky = (not $this isa FriendsPage) and ($.nav.skip == 0) and $enable_sticky;

  # print all entries
  """
  <div id="entries">""";

  if($print_sticky) {
    var string sticky_meta = "";
    if($sticky_subject == "") {
      $sticky_subject = """<i class="nosubject">$*text_nosubject</i>""";
    }
    foreach var string k (["location", "mood", "music"]) {
      var string text = lang_metadata_title($k);
      var string val  = "";
      if($k == "location") {
        $val = $sticky_location;
        if($val != "") {
          $val = """<a href="http://maps.google.com/maps?q=$sticky_location">$sticky_location</a>""";
        }
      } elseif ($k == "mood") {
        $val = $sticky_mood;
      } elseif ($k == "music") {
        $val = $sticky_music;
      }
      if($val != "") {
        $sticky_meta = $sticky_meta + "\n" + "        <b>" + $text + ":</b> " + $val + "<br />";
      }
    }
    if($sticky_poster != "") {
      var UserLite u = UserLite($sticky_poster);
      $sticky_poster = $u->ljuser();
      if($u.username != $.journal.username) {
        $sticky_poster = $sticky_poster + " in " + $.journal->as_string();
      }
      $sticky_poster = "\n" + "        " + $sticky_poster;
    }
    if($sticky_userpic != "") {
      $sticky_userpic = """
      <h3 class="userpic"><img border="0" src="$sticky_userpic" alt="$sticky_userpic_alt" title="$sticky_userpic_alt" /></h3>""";
    }

    """
    <div id="entry_sticky" class="ind-entry">""";

    print $sticky_userpic;

    """
      <h2>$sticky_subject</h2>""";

    var bool h4 = ($sticky_date != "") or ($sticky_meta != "") or ($sticky_poster != "");
    if($h4) {
      """
      <h4>""";
      if($sticky_date != "") {
        """
        <b>$sticky_date</b><br />""";
      }

      print $sticky_meta;

      print $sticky_poster;

      """
      </h4>""";
    }

    """
      <div class="entry-item">""";

    """
        Entry text here
    """;

    """
      </div>""";

    $h4 = ($sticky_permalink != "") or (($sticky_permalink != "") and ($sticky_posturl != ""));

    if($h4) {
      """
      <h4>""";
      "\n";
      "        ";
      var bool print_permalink = get_permalink($sticky_permalink) != "";
      var bool print_posturl   = $sticky_posturl != "";
      if($print_permalink) {
        print get_permalink($sticky_permalink);
      }
      if($print_permalink and $print_posturl) {
        " | ";
      }
      if($print_posturl) {
        """<a href="$sticky_posturl" class="comments" title="$*text_post_comment">$*text_post_comment</a>""";
      }
      """
      </h4>""";
    }

    """
    </div>""";
  }

  foreach var Entry e ( $.entries ) {
    $this->print_entry($e);
    if ($e->viewer_sees_ebox()) {
      """
    <div class="ind-entry"><table align="center"><tr><td>""";
      $e->print_ebox();
      "</td></tr></table></div>";
    }
  }
  """
    </div>""";

  var string range = "most recent entries";
  if ( $.nav.skip > 0 ) {
    $range = "$.nav.skip entries back";
  }

  """
    <div id="footer">
      <p>
        <b>viewing:</b> $range<br />""";

  # go forward/backward if possible
  if ( $.nav.forward_url != "" or $.nav.backward_url != "" ) {
    var string sep;
    var string back;
    var string forward;
    if ( $.nav.backward_url != "" ) {
      $back = """<a href="$.nav.backward_url" title="go earlier">earlier</a>""";
    }
    if ( $.nav.forward_url != "" ) {
      $forward = """<a href="$.nav.forward_url" title="go later">later</a>""";
    }
    if ( $back != "" and $forward != "" ) {
      $sep = " | ";
    }
    """
        <b>go</b>: $back$sep$forward<br />""";
  }
  """
      </p>
    </div>""";
}

[theme] - [expressive] - [tagspage: limited list of tags]

2007-03-02T21:52:03Z

in response to wasd's s2expressive post.

class MyClass {
  function quicksort(string[] list, int start, int end) : string[];
  function quicksort(string[] list)                     : string[];
}

###############
# <quicksort> #
###############
#// These two functions perform sorting capabilities
#//
#// Credit goes to 'Tony Chang <tychang1 [at] uiuc [dot] edu>'
#// See: http://www.livejournal.com/customize/advanced/layersource.bml?id=54714
#// % Partitions then recursively calls.
#// % Tested up to 172 sortable elements in a string array
function MyClass::quicksort(string[] list, int start, int end) : string[] {
  if ($end <= $start) {
    return $list;
  }
  
  #// Pick a pivot and move to the front
  var int pivot  = rand($start, $end);
  var string tmp = $list[$start];
  $list[$start]  = $list[$pivot];
  $list[$pivot]  = $tmp;
  
  #// Now Partition
  var int left  = ($start + 1);
  var int right = $end;
  
  foreach var int i ($start .. ($end - 2)) {
    if ($list[$left] > $list[$start]) {
      #// Swap the left and the right, then move the right back
      $tmp          = $list[$left];
      $list[$left]  = $list[$right];
      $list[$right] = $tmp;
      $right--;
    } else {
      $left++;
    }
  }

  # put the pivot back in the middle
  if ($list[$start] < $list[$left]) {
    #// Swap $start and ($left - 1)
    $tmp               = $list[$start];
    $list[$start]      = $list[($left - 1)];
    $list[($left - 1)] = $tmp;
    $pivot             = ($left - 1);
  } else {
    #// Swap $start and $left
    $tmp          = $list[$start];
    $list[$start] = $list[$left];
    $list[$left]  = $tmp;
    $pivot        = $left;
  }
  
  #// Sort either side of the pivot
  $list = $this->quicksort($list, $start,       ($pivot - 1));
  $list = $this->quicksort($list, ($pivot + 1), $end);
  
  return $list;
}

#// Recursing Function
function MyClass::quicksort(string[] list) : string[] {
  return $this->quicksort($list, 0, size $list - 1);
}
################
# </quicksort> #
################

function TagsPage::print_body() {
  var TagDetail[]   tags      = $this->visible_tag_list(); # get available tags
  var TagDetail[]{} my_tags   = {};                        # repackage tags, group by use count
  var string{}{}    cloud     = {};                        # final package for individual tags
  var string[]      tag_names = [];                        # keep track of tag names that are in final set
  var int           max_count = 0;                         # keep track of max number of uses for any tag
  var int           max_list  = 20;                        # max number of tags to list

  # print opening to Expressive's TagsPage
  print safe """<h2 class="asset-name page-header2">$*text_tags_page_header</h2>""";

  # cycle thru tags
  foreach var TagDetail t ($tags) {
    # get highest count
    if($t.use_count > $max_count) {
      $max_count = $t.use_count;
    }

    # get existing set of tags for this use count
    var TagDetail[] array  = $my_tags{$t.use_count};

    # add this tag
    $array[size($array)]   = $t;

    # save
    $my_tags{$t.use_count} = $array;
  }

  # cycle thru sorted tags
  foreach var int i (0 .. $max_count) {
    # get tag group by use count
    var TagDetail[] ts = $my_tags{$max_count - $i};

    # if this use count has tags
    if($ts) {
      # cycle thru tags with this use count
      foreach var TagDetail t ($ts) {
        var string{} hash = {};
        $hash{"url"}                 = $t.url;            # copy url
        $hash{"uses"}                = $t.use_count + ""; # copy use count
        $hash{"sec"}                 = $t.visibility;     # copy security/visibility
        $hash{"size"}                = ($t.use_count > 1) ? (((($t.use_count * 16) / $max_count) + 7) + "") : "7"; # calculate font size
        $cloud{$t.name}              = $hash;   # add hash to cloud
        $tag_names[size($tag_names)] = $t.name; # add tag name to final set record

        # decrement max list var because we've added a tag to the final set
        $max_list--;

        # if we're at the end of the list, stop adding more
        if($max_list <= 0) {
          break;
        }
      }
    }

    # if we're at the end of the list, stop adding more
    if($max_list <= 0) {
      break;
    }
  }

  # instantiate MyClass object
  var MyClass mc = new MyClass;

  # sort tag names
  $tag_names = $mc->quicksort($tag_names);

  # cycle thru final set
  foreach var string name ($tag_names) {
    var string{} hash = $cloud{$name}; # get tag data
    var string   url  = $hash{"url"};  # get url
    var string   uses = $hash{"uses"}; # get uses
    var string   sec  = $hash{"sec"};  # get security/visibility
    var string   size = $hash{"size"}; # get font size
    var string   alt  = $uses + " use" + (int($uses) != 1 ? "s" : "") + ", " + $sec; # built alt string

    # put it all together
    """<a href="$url" alt="$alt" title="$alt" style="font-size: ${size}px;">$name</a> """;
  }
}

[user/theme] - [smoothsailing] - [multi-level tags in sidebar]

2007-02-14T03:04:16Z

this code is a quick'n'dirty conversion of s2flexisquared's s2flexisquares multi-level tags in sidebar.
the following set commands should be added to your user layer and replace any that are currently in there.

set layout_sidebox_profile_visibility     = "1";
set layout_sidebox_latestmonth_visibility = "2";
set layout_sidebox_links_visibility       = "3";
set layout_sidebox_summary_visibility     = "4";
set layout_sidebox_multisearch_visibility = "5";
set layout_sidebox_freetext_2_visibility  = "6";
set layout_sidebox_tags_visibility        = "hide";

the following function overrides should be placed into a theme layer. if you are using one of the system-provided theme layers, you'll need to move those set commands for the colors into your user layer, create a new theme layer, place this code into it, and attach the new theme layer to your style.

function Page::print_custom_head()
{

    """
    <style type="text/css">

    /* List Alignment */
    /* Styles to ensure that the tag list is correctly aligned beneath the sidebox title */
    li.tagBox  {padding-left: 0;    margin-left: 0; list-style: none;}
    ul.tagList {padding-left: 0;    margin-left: 0; list-style: none;}
    li.tagItem {padding-left: 15px;                 list-style: none;}
    
    /* Vertical Scroll */
    /* Need to shrink the list width to prevent horizontal scrollbar in Firefox. */
    /* Note this won't prevent it if your tags are super long, it will only */
    /* prevent it from displaying unnecessarily. */
    ul.tagList {width: 90%;}

    </style>
    """;
}

function Page::lay_print_sidebar_freetextbox_2() {

#####   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 title of your tag box!
  var string tag_title = "Tags";

##### 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 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.
            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;
  }

  if ($list != ""){
    $this->lay_print_sidebox_top($tag_title);
    print """<ul>""" + $list + """</ul>""";
    $this->lay_print_sidebox_bottom();
  }
}

[theme] - [linkbar/metadata handling]

2006-12-05T20:25:55Z

to make sure that these work, make sure that the function that prints entries calls Entry::print_linkbar() and Entry::print_metadata(). also make sure that Entry::print_comment(Comment c) calls Comment::print_linkbar().

function Comment::print_linkbar() {
  var bool     add_links     = false;
  var bool     first_sep     = false;
  var bool     last_sep      = false;
  var string   img_id        = "";
  var string   link_key      = "";
  var string   link_link     = "";
  var string   link_sep      = "";
  var string   print         = "";
  var string[] link_keyseq   = [];
  var string{} link_captions = {};
  var string{} link_images   = {};
  var string{} link_urls     = {};
  var Link     link          = new Link;

  # add a sep before the links?
  $first_sep = true;

  # add a sep after the links?
  $last_sep  = false;

  # define the sep
  $link_sep  = """ <span class="separator">|</span> """;

  # define the link order
  #   comment_reply    : reply to comment
  #   comment_parent   : parent of comment
  #   comment_thread   : comment thread
  #   delete_comment   : delete comment
  #   freeze_thread    : freeze thread
  #   permalink        : permalink of comment
  #   screen_comment   : screen comment
  #   unfreeze_thread  : unfreeze thread
  #   unscreen_comment : unscreen comment
  #   unwatch_thread   : untrack/unwatch thread
  #   watch_thread     : track/watch thread
  #   watching_parent  : tracking/watching parent of comment
  $link_keyseq = [ # comment_reply, comment_parent, comment_thread, permalink, delete_comment, freeze_thread, screen_comment, unscreen_comment, unfreeze_thread, unwatch_thread, watch_thread, watching_parent
                  "comment_reply",
                  "comment_parent",
                  "comment_thread",
                  "permalink",
                  "delete_comment",
                  "freeze_thread",
                  "screen_comment",
                  "unscreen_comment",
                  "unfreeze_thread",
                  "unwatch_thread",
                  "watch_thread",
                  "watching_parent",
                 ];

  # define the link images
  $link_images = {
                  "permalink"        => "http://mike.mm1swebcreations.com/lj/silk/link.png",

                  "nav_prev"         => "http://mike.mm1swebcreations.com/lj/silk/arrow_left.png",
                  "edit_entry"       => "http://mike.mm1swebcreations.com/lj/silk/pencil.png",
                  "edit_tags"        => "http://mike.mm1swebcreations.com/lj/silk/tag_blue_edit.png",
                  "mem_add"          => "http://mike.mm1swebcreations.com/lj/silk/disk.png",
                  "tell_friend"      => "http://mike.mm1swebcreations.com/lj/silk/email_go.png",
                  "watch_comments"   => "http://mike.mm1swebcreations.com/lj/silk/map_add.png",
                  "unwatch_comments" => "http://mike.mm1swebcreations.com/lj/silk/map_delete.png",
                  "nav_next"         => "http://mike.mm1swebcreations.com/lj/silk/arrow_right.png",

                  "comment_frozen"   => "http://mike.mm1swebcreations.com/lj/silk/comment_frozen.png",
                  "comment_parent"   => "http://mike.mm1swebcreations.com/lj/silk/arrow_up.png",
                  "comment_reply"    => "http://mike.mm1swebcreations.com/lj/silk/comment_add.png",
                  "comment_thread"   => "http://mike.mm1swebcreations.com/lj/silk/comment.png",
                  "delete_comment"   => "http://mike.mm1swebcreations.com/lj/silk/cancel.png",
                  "freeze_thread"    => "http://mike.mm1swebcreations.com/lj/silk/lightbulb_off.png",
                  "screen_comment"   => "http://mike.mm1swebcreations.com/lj/silk/eye_cross.png",
                  "unscreen_comment" => "http://mike.mm1swebcreations.com/lj/silk/eye.png",
                  "unfreeze_thread"  => "http://mike.mm1swebcreations.com/lj/silk/lightbulb.png",
                  "unwatch_thread"   => "http://mike.mm1swebcreations.com/lj/silk/map_delete.png",
                  "watch_thread"     => "http://mike.mm1swebcreations.com/lj/silk/map_add.png",
                  "watching_parent"  => "http://mike.mm1swebcreations.com/lj/silk/map_magnify.png",
                 };

  # define permalink data
  $link_key                  = "permalink";
  $link_captions{$link_key}  = $*text_permalink;
  $link_urls{$link_key}      = $.permalink_url;

  # define reply link data
  $link_key                  = "comment_reply";
  $link_captions{$link_key}  = $.frozen ? $*text_comment_frozen : $*text_comment_reply;
  $link_images{$link_key}    = $.frozen ? $link_images{"comment_frozen"} : $link_images{"comment_reply"};
  $link_urls{$link_key}      = $.frozen ? "" : $.reply_url;

  # define parent link data
  $link_key                  = "comment_parent";
  $link_captions{$link_key}  = $*text_comment_parent;
  $link_urls{$link_key}      = $.parent_url;

  # define thread link data
  $link_key                  = "comment_thread";
  $link_captions{$link_key}  = $*text_comment_thread;
  $link_urls{$link_key}      = $.thread_url;

  # if there aren't any links defined in the array, let's add 'em
  $add_links = (size($link_keyseq) < 1);

  # cycle thru links and gather data
  foreach $link_key ($.link_keyseq) {
    $link                            = $this->get_link($link_key);
    $link_captions{$link_key}        = $link_captions{$link_key} != "" ? $link_captions{$link_key} : $link.caption;
    $link_images{$link_key}          = $link_images{$link_key}   != "" ? $link_images{$link_key}   : $link.icon.url;
    $link_urls{$link_key}            = $link_urls{$link_key}     != "" ? $link_urls{$link_key}     : $link.url;

    # if we're adding links
    if($add_links) {
      # add it to the array
      $link_keyseq[size($link_keyseq)] = $link_key;
    }
  }

  # give linkbar a css class
  $print = $print + """<span class="comment-linkbar">""";

  # if we've got links to process
  if(size($link_keyseq) > 0) {
    # if we're adding a first sep
    if($first_sep) {
      # add it
      $print = $print + $link_sep;
    }

    # cycle thru links
    foreach $link_key ($link_keyseq) {
      var bool have_img = $link_images{$link_key} != ""; # do we have an image?
      var bool have_url = $link_urls{$link_key}   != ""; # do we have a url?
      var bool is_reply = $link_key == "comment_reply";  # is this the reply link?

      if($have_url or $is_reply) {                       # if we have a url or it's the reply link
        if($have_url or ($is_reply and not $have_url)) { #   if we have a url, or it's the reply link without a url
          $link_link = $link_captions{$link_key};        #     set the link text
          if($have_img) {                                #     if we have an image
            if($link_key->contains("freeze")) {          #       if it's the [un]freeze link
              $img_id = "fuf";                           #         set img id prefix of "fuf"
            } elseif ($link_key->contains("screen")) {   #       if it's the [un]screen link
              $img_id = "sus";                           #         set img id prefix of "sus"
            } elseif ($link_key->contains("watch")) {    #       if it's the [un]track/watch link
              $img_id = "tut";                           #         set img id prefix of "tut"
            } else {                                     #       else, we're not doing a special image
              $img_id = "";                              #         set img id prefix of nothing
            }

            if($img_id != "") {                          #       if we have an img id prefix
              $img_id = " id=\"${img_id}_${.talkid}\"";  #         set it up
            }

            # add the image
            $link_link = """<img$img_id src="$link_images{$link_key}" alt="$link_link" title="$link_link" border="0" />""";
          }

          # if we have a url, apply it
          if($have_url) {
            $link_link = """<a href="$link_urls{$link_key}">$link_link</a>""";
          }

          # add a link sep
          $print     = $print + $link_link + $link_sep;

        } else {

          # else, we're doing the reply link with a url

          print $print; # print what we've got
          $print = "";  # set print var to nothing

          # create array for QR reply link
          var string{} opts = {};

          # if we have an image
          if($have_img) {
            $opts{"img_url"} = $link_images{$link_key};   # set image url
            $opts{"alt"}     = $link_captions{$link_key}; # set image alt
            $opts{"title"}   = $link_captions{$link_key}; # set image title
          } else {
            # else, we don't have an image
            $opts{"linktext"} = $link_captions{$link_key}; # set linktext
          }

          # set url
          $opts{"reply_url"} = $link_urls{$link_key};

          # print QR reply link
          $this->print_reply_link($opts);

          # add a link sep
          $print = $print + $link_sep;
        }
      }
    }

    # if we don't have a sep on the end
    if(not $last_sep) {
      # hack it off
      $print = $print->substr(0, $print->length() - $link_sep->length());
    }
  }

  # close span
  $print = $print + "</span>";

  # print linkbar
  print $print;

  # print reply container
  $this->print_reply_container();
}

function CommentInfo::print() {
  # define a link sep
  var string link_sep = """ <span class="separator">|</span> """;

  var bool show_readlink = $.show_readlink;                   # are we showing the  link to read   comments?
  var bool show_postlink = $.show_postlink;                   # are we showing the  link to post a comment?
  var bool show_sep      = $show_readlink and $show_postlink; # are we showing both and therefore need a sep?

  # give comment links a css class
  """<span class="entry-commentlinks">""";

  # if we're showing the readlink
  if($show_readlink) {
    # print it
    $this->print_readlink();
  }

  # if we're showing both links
  if($show_sep) {
    # print a sep
    print $link_sep;
  }

  # if we're showing the postlink
  if($show_postlink) {
    # print it
    $this->print_postlink();
  }

  "</span>";
}

function CommentInfo::print_postlink() {
  # get page handle
  var Page   p         = get_page();

  # define image url for postlink
  var string image_url = "http://mike.mm1swebcreations.com/lj/silk/comments_add.png";

  # get postlink url
  var string url       = $.post_url;

  # get postlink text
  var string text      = get_plural_phrase(0, "text_post_comment" + ($p.view == "friends" ? "_friends" : ""));

  # if we've reached max comments
  if($.maxcomments) {
    $url  = "";                  # clear url
    $text = $*text_max_comments; # set max comments text
  }

  # if we have a url
  if($url != "") {
    # open it
    """<a href="$url">""";
  }

  # if we have an image
  if($image_url != "") {
    # print it
    """<img src="$image_url" alt="$text" title="$text" border="0" />""";
  } else {
    # else, print text
    print $text;
  }

  # if we have a url
  if($url != "") {
    # close it
    """</a>""";
  }

}

function CommentInfo::print_readlink() {
  # get page handle
  var Page   p         = get_page();

  # define image url for readlink
  var string image_url = "http://mike.mm1swebcreations.com/lj/silk/comments.png";

  # get readlink url
  var string url       = $.read_url;

  # get readlink text
  var string text      = get_plural_phrase($.count, "text_read_comments" + ($p.view == "friends" ? "_friends" : ""));

  # if we have a url
  if($url != "") {
    # open it
    """<a href="$url">""";
  }

  # if we have an image
  if($image_url != "") {
    # print it
    """<img src="$image_url" alt="$text" title="$text" border="0" />""";
  } else {
    # else, print text
    print $text;
  }

  # if we have a url
  if($url != "") {
    # close it
    """</a>""";
  }

}

function Entry::print_linkbar() {
  var Page     p             = get_page();

  var bool     add_links     = false;
  var bool     first_sep     = false;
  var bool     interentry    = ($p.view == "entry") or ($p.view == "reply");
  var bool     last_sep      = false;
  var string   link_key      = "";
  var string   link_link     = "";
  var string   link_sep      = "";
  var string   print         = "";
  var string[] link_keyseq   = [];
  var string{} link_captions = {};
  var string{} link_images   = {};
  var string{} link_urls     = {};
  var Link     link          = new Link;

  # add a sep before the links?
  $first_sep = true;

  # add a sep after the links?
  $last_sep  = false;

  # define the sep
  $link_sep  = """ <span class="separator">|</span> """;

  # define the link order
  #   edit_entry       : edit entry
  #   edit_tags        : edit tags
  #   mem_add          : add to memories
  #   nav_next         : next entry
  #   nav_prev         : previous entry
  #   permalink        : permalink of entry
  #   tell_friend      : tell a friend
  #   unwatch_comments : untrack/unwatch comments
  #   watch_comments   : track/watch comments
  $link_keyseq = [ # permalink, nav_prev, edit_entry, edit_tags, mem_add, tell_friend, watch_comments, unwatch_comments, nav_next
                  "permalink",
                  "nav_prev",
                  "edit_entry",
                  "edit_tags",
                  "mem_add",
                  "tell_friend",
                  "watch_comments",
                  "unwatch_comments",
                  "nav_next",
                 ];

  # define the link images
  $link_images = {
                  "permalink"        => "http://mike.mm1swebcreations.com/lj/silk/link.png",

                  "nav_prev"         => "http://mike.mm1swebcreations.com/lj/silk/arrow_left.png",
                  "edit_entry"       => "http://mike.mm1swebcreations.com/lj/silk/pencil.png",
                  "edit_tags"        => "http://mike.mm1swebcreations.com/lj/silk/tag_blue_edit.png",
                  "mem_add"          => "http://mike.mm1swebcreations.com/lj/silk/disk.png",
                  "tell_friend"      => "http://mike.mm1swebcreations.com/lj/silk/email_go.png",
                  "watch_comments"   => "http://mike.mm1swebcreations.com/lj/silk/map_add.png",
                  "unwatch_comments" => "http://mike.mm1swebcreations.com/lj/silk/map_delete.png",
                  "nav_next"         => "http://mike.mm1swebcreations.com/lj/silk/arrow_right.png",

                  "comment_parent"   => "http://mike.mm1swebcreations.com/lj/silk/arrow_up.png",
                  "comment_reply"    => "http://mike.mm1swebcreations.com/lj/silk/comment_add.png",
                  "comment_thread"   => "http://mike.mm1swebcreations.com/lj/silk/comment.png",
                  "delete_comment"   => "http://mike.mm1swebcreations.com/lj/silk/cancel.png",
                  "freeze_thread"    => "http://mike.mm1swebcreations.com/lj/silk/lightbulb_off.png",
                  "screen_comment"   => "http://mike.mm1swebcreations.com/lj/silk/eye_cross.png",
                  "unscreen_comment" => "http://mike.mm1swebcreations.com/lj/silk/eye.png",
                  "unfreeze_thread"  => "http://mike.mm1swebcreations.com/lj/silk/lightbulb.png",
                  "unwatch_thread"   => "http://mike.mm1swebcreations.com/lj/silk/map_delete.png",
                  "watch_thread"     => "http://mike.mm1swebcreations.com/lj/silk/map_add.png",
                  "watching_parent"  => "http://mike.mm1swebcreations.com/lj/silk/map_magnify.png",
                 };

  # if there aren't any links defined in the array, let's add 'em
  $add_links = (size($link_keyseq) < 1);

  # define permalink data
  $link_key                  = "permalink";
  $link_captions{$link_key}  = $*text_permalink;
  $link_urls{$link_key}      = $.permalink_url;

  # if we're viewing an entry
  if($interentry) {
    # get previous entry link data
    $link_key                        = "nav_prev";
    $link                            = $this->get_link($link_key);
    $link_captions{$link_key}        = $link_captions{$link_key} != "" ? $link_captions{$link_key} : $link.caption;
    $link_images{$link_key}          = $link_images{$link_key}   != "" ? $link_images{$link_key}   : $link.icon.url;
    $link_urls{$link_key}            = $link_urls{$link_key}     != "" ? $link_urls{$link_key}     : $link.url;

    # if we're adding links
    if($add_links) {
      # add it to the array
      $link_keyseq[size($link_keyseq)] = $link_key;
    }
  }

  # cycle thru links and gather data
  foreach $link_key ($.link_keyseq) {
    $link                            = $this->get_link($link_key);
    $link_captions{$link_key}        = $link_captions{$link_key} != "" ? $link_captions{$link_key} : $link.caption;
    $link_images{$link_key}          = $link_images{$link_key}   != "" ? $link_images{$link_key}   : $link.icon.url;
    $link_urls{$link_key}            = $link_urls{$link_key}     != "" ? $link_urls{$link_key}     : $link.url;

    # if we're adding links
    if($add_links) {
      # add it to the array
      $link_keyseq[size($link_keyseq)] = $link_key;
    }
  }

  # if we're viewing an entry
  if($interentry) {
    # get next entry link data
    $link_key                        = "nav_next";
    $link                            = $this->get_link($link_key);
    $link_captions{$link_key}        = $link_captions{$link_key} != "" ? $link_captions{$link_key} : $link.caption;
    $link_images{$link_key}          = $link_images{$link_key}   != "" ? $link_images{$link_key}   : $link.icon.url;
    $link_urls{$link_key}            = $link_urls{$link_key}     != "" ? $link_urls{$link_key}     : $link.url;

    # if we're adding links
    if($add_links) {
      # add it to the array
      $link_keyseq[size($link_keyseq)] = $link_key;
    }
  }

  # give linkbar a css class
  $print = $print + """<span class="entry-linkbar">""";

  # if we've got links to process
  if(size($link_keyseq) > 0) {
    # if we're adding a first sep
    if($first_sep) {
      # add it
      $print = $print + $link_sep;
    }

    # cycle thru links
    foreach $link_key ($link_keyseq) {
      var bool have_img = $link_images{$link_key} != ""; # do we have an image?
      var bool have_url = $link_urls{$link_key}   != ""; # do we have a url?

      # if we have a url
      if($have_url) {
        # set the link text
        $link_link = $link_captions{$link_key};

        # if we have an image
        if($have_img) {
          # add the image
          $link_link = """<img src="$link_images{$link_key}" alt="$link_link" title="$link_link" border="0" />""";
        }
        
        # if we have a url, apply it
        $link_link = """<a href="$link_urls{$link_key}">$link_link</a>""";

        # add a link sep
        $print     = $print + $link_link + $link_sep;
      }
    }

    # if we don't have a sep on the end
    if(not $last_sep) {
      # hack it off
      $print = $print->substr(0, $print->length() - $link_sep->length());
    }
  }

  # close span
  $print = $print + "</span>";

  # print linkbar
  print $print;
}

function Entry::print_metadata() {
  var string[] metadata    = [];
  var string{} meta_images = {};
  var string{} meta_labels = {};

  # define the meta order
  #   location : current location
  #   mood     : current mood
  #   music    : current music
  #   tags     : current tags
  $metadata    = [ # location, mood, music, tags
                  "location",
                  "mood",
                  "music",
                  "tags"
                 ];

  # define the meta labels
  $meta_labels = {
                  "location"        => lang_metadata_title("location"),
                  "mood"            => lang_metadata_title("mood"),
                  "music"           => lang_metadata_title("music"),
                  "picture_keyword" => "Picture Keyword:",
                  "tags"            => "Current Tags:",
                 };

  # define the meta images
  $meta_images = {
                  "location"        => "http://mike.mm1swebcreations.com/lj/silk/map_magnify.png",
                  "mood"            => "http://mike.mm1swebcreations.com/lj/silk/user.png",
                  "music"           => "http://mike.mm1swebcreations.com/lj/silk/music.png",
                  "picture_keyword" => "",
                  "tags"            => "http://mike.mm1swebcreations.com/lj/silk/tag_blue.png",
                 };

  var string   currents_open    = """<div class="entry-metadata">"""; # html to open  metadata container
  var string   meta_label_open  = """<div><b>""";                     # html to open  metadata label
  var string   meta_label_close = """</b>""";                         # html to close metadata label
  var string   meta_val_open    = " ";                                # html to open  metadata value
  var string   meta_val_close   = """</div>""";                       # html to close metadata value
  var string   currents_close   = """</div>""";                       # html to close metadata container
  var bool     vanilla_loc      = false;                              # strip current location value?

  var bool     have_meta        = (size($.metadata) > 0);                # do we have meta?
  var bool     have_tags        = ((size($.tags) > 0) and $*tags_aware); # do we have tags?
  var int      tcount           = 0;
  var string   currents         = "";
  var string   image            = "";
  var string   k                = "";
  var string   label            = "";
  var string   meta             = "";
  var string   tag              = "";
  var string   val              = "";
  var Tag      t                = new Tag;

  # if we have meta or we have tags
  if($have_meta or $have_tags) {
    # add opening of metadata container
    $currents = $currents + $currents_open;


    # cycle thru meta
    foreach $k ($metadata) {
      $label = $meta_labels{$k} != "" ? $meta_labels{$k} : lang_metadata_title($k); # get label
      $image = $meta_images{$k} != "" ? $meta_images{$k} : "";                      # get image
      $val   = $.metadata{$k};                                                      # get value

      # if we have an image
      if($image != "") {
        # add it
        $label = """<img src="$image" alt="$label" title="$label" />""";
      }

      # if we're doing the location and we're stripping t
      if(($k == "location") and $vanilla_loc) {
        # do it
        $val = striphtml($val);
      }

      # this piece of meta has a specific class
      $meta_label_open = """<div class="current$k"><b>""";

      # if we're doing tags
      if($k == "tags") {
        # clear val
        $val = "";

        # if we have tags
        if($have_tags) {
          # cycle thru tags
          foreach $t ($.tags) {
            $tag = """<a href="$t.url">$t.name</a>"""; # build tag
            $val = $val + $tag;                        # add tag to val
            $tcount++;                                 # increment tag counter

            # if current count is less than the size of the tags
            if($tcount < size($.tags)) {
              # add a sep
              $val = $val + ", ";
            }
          }
        }
      }

      # if we have a val
      if($val != "") {
        # build meta row
        $meta   = $meta_label_open + $label + $meta_label_close + $meta_val_open + $val + $meta_val_close;
      }

      # add meta
      $currents = $currents + $meta;
    }

    # add closing of metadata container
    $currents = $currents + $currents_close;
  }

  # print metadata
  print $currents;
}

[theme] - [lickable] - [multi-level tags]

2006-12-03T22:50:55Z

in response to sreya's s2lickable post.

function Page::lay_print_custom_paraphernalia() {
    var string id      = "";
    var string header  = "";
    var string content = "";
    
    # tagslist

    #####   Config   #####

    # Specify your delimiter!  One char only -- extra chars get truncated.
    # Making the delimiter an empty string will result in an un-tiered list, 
    # which may be what you prefer, but this code is serious overkill for 
    # that purpose.
    var string delimiter = ":";

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

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

    var Page p = get_page();
    var string list = "";
    
    # mt:20050627
    # Replaced erroneous return code with if statement (otherwise
    # entire sidebar not printed at all if no visible tags!).
    if (size $this->visible_tag_list() > 0) { 
        # mt:20050624
        # Can't use delimiter longer than one char, so truncate if necessary.
        if ($delimiter->length() > 1) {
            $delimiter = $delimiter->substr(0, 1);
        }

        var bool list_started = false;
        var string list_item = "";
        var string[] prev_tags = ["", ""];

        # mt:20050624: Start the list.
        $list = """<ul class="tagList">"""; 
        
        foreach var TagDetail t ($this->visible_tag_list()) {        
            var string[] tags;
             
            if ($t.name) {  
                # mt:20050624
                # Split tags into a 1- or 2-element array on delimiter. Oh god, my
                # kingdom for a function.  Adapted from lj-user rane500's explode 
                # function to only care about first instance of the delimiter.
                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;
                
                # mt:20050624: Now examine the tags array to determine how to display the tag.
                if (size $tags == 1) {
                    # mt:20050624: This tag has no subtag.
        
                    if ($list_started) {
                        # mt:20050624: Previous tag had a subtag, so must close its outstanding list. 
                        $list = $list + """</ul>""";
                        $list_started = false;
                    }
                    if ($prev_tags[0] != "") {
                        # mt:20050624: This is not the very first tag in the list, so close off previous tag.
                        $list = $list + """</li>""";
                    }
                    # mt:20050624: Now add the new tag.
                    $list = $list + """<li class="tagItem"><a href="$t.url">$tags[0]</a>""";
                } else {   
                    # mt:20050624: This tag has a subtag.
        
                    $list_item = """<li class="tagItem"><a href="$t.url">$tags[1]</a></li>""";
                   
                    if (($tags[0] == $prev_tags[0]) and ($list_started)) {
                        # mt:20050624
                        # This tag fits under the previous tag's tier, and it is not the first item in that tier.
                        $list = $list + $list_item;
                    } elseif (($tags[0] == $prev_tags[0]) and ($list_started == false)) {
                        # mt:20050624
                        # This tag fits under the previous tag's tier, and it is the very first item in that tier.
                        $list = $list + """<ul class="tagList">""" + $list_item;
                        $list_started = true;
                    } elseif (($tags[0] != $prev_tags[0]) and ($list_started)) {
                        # mt:20050624: This tag initializes a new tier and must also close off the previous tag's list.
                        # $list_started retains its true state.
                        $list = $list + """</ul></li><li class="tagItem">$tags[0]<ul class="tagList">""" + $list_item;
                    } elseif (($tags[0] != $prev_tags[0]) and ($list_started == false)) {
                        # mt:20050624: This tag initializes a new tier but does not have to close off a list.
                        
                        if ($prev_tags[0] != "") {
                            # mt:20050624: This is not the very first tag in the list, so close off previous tag.
                            $list = $list + """</li>""";
                        }
                        
                        # mt:20050624: Now add the new tag.
                        $list = $list + """<li class="tagItem">$tags[0]<ul class="tagList">""" + $list_item;
                        $list_started = true;
                    }
                }       
                $prev_tags = $tags;           
            }        
            # mt:20050623: Next tag in the list!
        } 
    
        # mt:20050624: Close any outstanding lists.
        if ($list_started) {
            $list = $list + """</ul>""";
        }	   
    	$list = $list + """</li></ul>""";
	   
        $list = """<div class="tagBox">""" + $list + """</div>""";
    }

    $header  = $tag_title;
    $id      = "tagslist";
    $content = $list;

    paraphernalia_box_open ($id, $header);
    print $content;
    paraphernalia_box_close($id, $header);
}

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

  /* List Alignment */
  /* Styles to ensure that the tag list is correctly aligned beneath the sidebox title */
  li.tagBox {
    padding-left: 0;
    margin-left:  0;
    list-style:   none;
  }
  ul.tagList {
    padding-left: 0;
    margin-left:  0;
    list-style:   none;
  }
  li.tagItem {
    padding-left: 15px;
    list-style:   none;
  }
    
  /* Vertical Scroll */
  /* Need to shrink the list width to prevent horizontal scrollbar in Firefox. */
  /* Note this won't prevent it if your tags are super long, it will only */
  /* prevent it from displaying unnecessarily. For the pleasure of IE users */
  /* you can also colour any resulting scrollbars as you desire. */ 
  ul.tagList {
    width: 90%;
  }
  .tagBox {
    height:                     200px;
    overflow:                   auto;
    scrollbar-arrow-color:      #dae3b2;
    scrollbar-base-color:       #ffffcc;
    scrollbar-face-color:       #ffffcc;
    scrollbar-highlight-color:  #dae3b2;
    scrollbar-darkshadow-color: #dae3b2;
    scrollbar-shadow-color:     #dae3b2;
  }
  </style>
  """;
}

[theme - quitelickable - mood icon to left of metadata]

2006-09-01T17:28:32Z

This code is kunzite1's code for Boxer, just tweaked a teensy bit by me to work with Quite Lickable. So just credit him with it. I was just saving him the trouble. Thanks.

function Entry::lay_print_metadata() {
var string tags_header         = "Tags"; # text for tags header,    "Current Tags"
var string tags_joiner         = "";            # text for tags joiner,    ":"
var string tags_sep            = ", ";           # text for tags separator, ", "
var bool   show_edit_tags_link = false;          # set to true if you want edit tags link as tags header
var string currents_open       = """<div class="metadata">"""; # html for opening of currents container
var string currents_close      = """</div>"""; # html for closing of currents container
var bool   loc_after_mood      = false;               # set to true to print location after mood
var bool   vanilla_loc         = false;               # set to true to delinkify location
# if you need data specific to the meta to be in these strings you'll have to set those individually down further
# one example is provided with meta_label_open
var string meta_label_open     = """<strong>""";   # html for opening of metadata label
var string meta_label_close    = """</strong>: """; # html for closing of metadata label
var string meta_val_open       = "";               # html for opening of metadata value
var string meta_val_close      = """<br />""";     # html for closing of metadata value
var Link   edit_tags           = $this->get_link("edit_tags"); # helper var to see if remote user can edit tags
if ((size $.metadata > 0) or ((size $.tags > 0) and ($*tags_aware))){
if($.metadata{"mood"} == "" and $loc_after_mood) {
# if we're printing loc after mood but we have no mood, set loc_after_mood to false
$loc_after_mood = false;
}
var string currents = "";             # make var for printing
$currents           = $currents_open; # add opening of currents container
if(defined $.mood_icon) {
var Image i = $.mood_icon;
$currents = $currents + """<table border="0"><tr><td><img src="$i.url" _fcksavedurl="$i.url" width="$i.width" height="$i.height" alt="$.metadata{"mood"}" title="$.metadata{"mood"}" /></td><td>""";
}
foreach var string k ($.metadata){  # step thru metadata
var string text = $k;             # set text to key
var string val  = $.metadata{$k}; # get val
if ($k == "mood"){                # if mood, set text to mood property
$text = $*text_meta_mood;
}
elseif ($k == "music") {          # if music, set text to music property
$text = $*text_meta_music;
} elseif ($k == "location") {     # if location, set text to loc variable
$text = $*text_meta_location;
if($vanilla_loc) {              # if vanilla loc, striphtml() it
$val = striphtml($val);
}
}
if(not ($k == "location" and $loc_after_mood)) {
# if we're doing loc right now and printing loc after mood, skip it
# if we're doing loc right now and we're not printing loc after mood, print it now
# if we're not doing loc right now, print this piece of meta
# add the meta
$currents = $currents + """$meta_label_open$text$meta_label_close$meta_val_open$val$meta_val_close""";
}
if($k == "mood" and $loc_after_mood) {
# if we just now did the mood and we're printing loc after mood, print the loc
$k    = "location";           # set meta key to "location"
$text = $*text_meta_location; # set text to loc variable
$val  = $.metadata{$k};       # get val
# if we have a loc, do stuff
if($val != "") {
# if vanilla loc, striphtml() it
if($vanilla_loc) {
$val = striphtml($val);
}
# add the meta
$currents         = $currents + """$meta_label_open$text$meta_label_close$meta_val_open$val$meta_val_close""";
}
}
}
if ((size $.tags > 0) and $*tags_aware) {
var string k      = "tags"; # set key to "tags"
var int tcount = 0; # set counter for tags
if($edit_tags.url != "" and $show_edit_tags_link) { # if remote user can edit tags, let's give them a link
$tags_header = """<a href="$edit_tags.url" _fcksavedurl="$edit_tags.url">$tags_header</a>""";
}
# add text, open val container
$currents = $currents + """$meta_label_open$tags_header$tags_joiner$meta_label_close$meta_val_open""";
# build tag list
foreach var Tag t ($.tags) {
$currents = $currents + """<a rel="tag" href="$t.url" _fcksavedurl="$t.url">$t.name</a>""";
$tcount++;
# if we haven't hit the last tag, add a separator
if ($tcount != size $.tags) { $currents = $currents + $tags_sep; }
}
# close val container
$currents = $currents + $meta_val_close;
}
if(defined $.mood_icon) {
$currents = $currents + """</td></tr></table>""";
}
# close currents container
$currents = $currents + $currents_close;
# print currents
println "$currents";
}
}

TO CUSTOMIZE CSS:

.metadata{ 
list-style: none; 
display: block; 
}

note to kunzite1 :
I hope that this was okay :) and if it looks horrible, feel free to delete and repost it. I just wanted to share it. thanks.</div>

[theme] - [smoothsailing] - [mood icon to left of metadata]

2006-08-20T02:01:06Z

# add colons because hard-coding it is silly
set text_meta_location          = "Location:";
set text_meta_mood              = "Mood:";
set text_meta_music             = "Music:";
set layout_arrangement_metadata = "block";

function Entry::print_metadata() {
  var string tags_header         = "Tags"; # text for tags header,    "Current Tags"
  var string tags_joiner         = ":";            # text for tags joiner,    ":"
  var string tags_sep            = ", ";           # text for tags separator, ", "
  var bool   show_edit_tags_link = false;          # set to true if you want edit tags link as tags header

  var string currents_open       = """<div class="entryMetadata"><ul>"""; # html for opening of currents container
  var string currents_close      = """</ul></div>"""; # html for closing of currents container

  var bool   loc_after_mood      = false;               # set to true to print location after mood
  var bool   vanilla_loc         = false;               # set to true to delinkify location

  # if you need data specific to the meta to be in these strings you'll have to set those individually down further
  # one example is provided with meta_label_open
  var string meta_label_open     = """<li><span class="entryMetadata-label">""";   # html for opening of metadata label
  var string meta_label_close    = """</span>"""; # html for closing of metadata label
  var string meta_val_open       = """<span class="entryMetadata-content">""";               # html for opening of metadata value
  var string meta_val_close      = """</span></li>""";     # html for closing of metadata value

  var Link   edit_tags           = $this->get_link("edit_tags"); # helper var to see if remote user can edit tags

  if (((size $.metadata > 0) or ((size $.tags > 0) and ($*tags_aware))) and ($.itemid != int($*layout_guestbook_entryid))) {
    if($.metadata{"mood"} == "" and $loc_after_mood) {
      # if we're printing loc after mood but we have no mood, set loc_after_mood to false
      $loc_after_mood = false;
    }
    var string currents = "";             # make var for printing

    if(defined $.mood_icon) {
      var Image i = $.mood_icon;
      $currents = $currents + """<table border="0"><tr><td><img src="$i.url" width="$i.width" height="$i.height" alt="$.metadata{"mood"}" title="$.metadata{"mood"}" /></td><td>""";
    }

    $currents           = $currents + $currents_open; # add opening of currents container

    foreach var string k ($.metadata){  # step thru metadata
      var string text = $k;             # set text to key
      var string val  = $.metadata{$k}; # get val
      if ($k == "mood"){                # if mood, set text to mood property
        $text = $*text_meta_mood;
      } 
      elseif ($k == "music") {          # if music, set text to music property
        $text = $*text_meta_music;
      } elseif ($k == "location") {     # if location, set text to loc variable
        $text = $*text_meta_location;
        if($vanilla_loc) {              # if vanilla loc, striphtml() it
          $val = striphtml($val);
        }
      }
      if(not ($k == "location" and $loc_after_mood)) {
        # if we're doing loc right now and printing loc after mood, skip it
        # if we're doing loc right now and we're not printing loc after mood, print it now
        # if we're not doing loc right now, print this piece of meta

        # add the meta
        $currents = $currents + """$meta_label_open$text$meta_label_close$meta_val_open$val$meta_val_close""";
      }

      if($k == "mood" and $loc_after_mood) {
        # if we just now did the mood and we're printing loc after mood, print the loc
        $k    = "location";           # set meta key to "location"
        $text = $*text_meta_location; # set text to loc variable
        $val  = $.metadata{$k};       # get val

        # if we have a loc, do stuff
        if($val != "") {

          # if vanilla loc, striphtml() it
          if($vanilla_loc) {
            $val = striphtml($val);
          }

          # in this layout, each piece of meta gets its own class
          $meta_label_open  = """<div class="current$k"><strong>""";

          # add the meta
          $currents         = $currents + """$meta_label_open$text$meta_label_close$meta_val_open$val$meta_val_close""";
        }
      }
    }
    if ((size $.tags > 0) and ($*tags_aware) and ($*layout_position_entrytags == "metadata")) {
      var string k      = "tags"; # set key to "tags"

      var int tcount = 0; # set counter for tags
      if($edit_tags.url != "" and $show_edit_tags_link) { # if remote user can edit tags, let's give them a link
        $tags_header = """<a href="$edit_tags.url">$tags_header</a>""";
      }

      # add text, open val container
      $currents = $currents + """$meta_label_open$tags_header$tags_joiner$meta_label_close$meta_val_open""";

      # build tag list
      foreach var Tag t ($.tags) {
        $currents = $currents + """<a rel="tag" href="$t.url">$t.name</a>""";
        $tcount++;

        # if we haven't hit the last tag, add a separator
        if ($tcount != size $.tags) { $currents = $currents + $tags_sep; }
      }

      # close val container
      $currents = $currents + $meta_val_close;
    }

    # close currents container
    $currents = $currents + $currents_close;

    if(defined $.mood_icon) {
      $currents = $currents + """</td></tr></table>""";
    }

    # print currents
    println "$currents";
  }
}

[theme - generator - mood icon to left of metadata]

2006-08-15T07:02:10Z

function Entry::print_metadata() {
  var string tags_header         = "Current Tags"; # text for tags header,    "Current Tags"
  var string tags_joiner         = ":";            # text for tags joiner,    ""
  var string tags_sep            = ", ";           # text for tags separator, ", "
  var bool   show_edit_tags_link = false;          # set to true if you want edit tags link as tags header

  var string currents_open       = """<table cellspacing="0" cellpadding="0" border="0" summary="">"""; # html for opening of currents container
  var string currents_close      = """</table><br />"""; # html for closing of currents container

  var bool   loc_after_mood      = false;               # set to true to print location after mood
  var bool   vanilla_loc         = false;               # set to true to delinkify location

  # if you need data specific to the meta to be in these strings you'll have to set those individually down further
  # one example is provided with meta_label_open
  var string meta_label_open     = """<tr><td class="meta">[</td><td class="meta" align="right"><b>"""; # html for opening of metadata label
  var string meta_label_close    = """</b></td><td class="meta" align="center">|</td>"""; # html for closing of metadata label
  var string meta_val_open       = """<td class="meta">"""; # html for opening of metadata value
  var string meta_val_close      = """</td><td class="meta">]</td></tr>"""; # html for closing of metadata value

  var Link   edit_tags           = $this->get_link("edit_tags"); # helper var to see if remote user can edit tags

  var string currents = "";             # make var for printing

  if ((size $.metadata > 0) or ((size $.tags > 0) and ($*tags_aware))){
    if(defined $.mood_icon) {
      var Image i = $.mood_icon;
      $currents = $currents + """<table border="0"><tr><td><img src="$i.url" width="$i.width" height="$i.height" alt="$.metadata{"mood"}" title="$.metadata{"mood"}" /></td><td>""";
    }
    if($.metadata{"mood"} == "" and $loc_after_mood) {
      # if we're printing loc after mood but we have no mood, set loc_after_mood to false
      $loc_after_mood = false;
    }
    $currents           = $currents + $currents_open; # add opening of currents container

    foreach var string k ($.metadata){  # step thru metadata
      var string text = $k;             # set text to key
      var string val  = $.metadata{$k}; # get val
      if ($k == "mood"){                # if mood, set text to mood property
        $text = $*text_meta_mood;
      } 
      elseif ($k == "music") {          # if music, set text to music property
        $text = $*text_meta_music;
      } elseif ($k == "location") {     # if location, set text to loc variable
        $text = $*text_meta_location;
        if($vanilla_loc) {              # if vanilla loc, striphtml() it
          $val = striphtml($val);
        }
      }
      if(not ($k == "location" and $loc_after_mood)) {
        # if we're doing loc right now and printing loc after mood, skip it
        # if we're doing loc right now and we're not printing loc after mood, print it now
        # if we're not doing loc right now, print this piece of meta

        # add the meta
        $currents = $currents + """$meta_label_open$text$meta_label_close$meta_val_open$val$meta_val_close""";
      }

      if($k == "mood" and $loc_after_mood) {
        # if we just now did the mood and we're printing loc after mood, print the loc
        $k    = "location";           # set meta key to "location"
        $text = $*text_meta_location; # set text to loc variable
        $val  = $.metadata{$k};       # get val

        # if we have a loc, do stuff
        if($val != "") {

          # if vanilla loc, striphtml() it
          if($vanilla_loc) {
            $val = striphtml($val);
          }

          # add the meta
          $currents         = $currents + """$meta_label_open$text$meta_label_close$meta_val_open$val$meta_val_close""";
        }
      }
    }
    if ((size $.tags > 0) and $*tags_aware) {
      var string k      = "tags"; # set key to "tags"

      var int tcount = 0; # set counter for tags
      if($edit_tags.url != "" and $show_edit_tags_link) { # if remote user can edit tags, let's give them a link
        $tags_header = """<a href="$edit_tags.url">$tags_header</a>""";
      }

      # add text, open val container
      $currents = $currents + """$meta_label_open$tags_header$tags_joiner$meta_label_close$meta_val_open""";

      # build tag list
      foreach var Tag t ($.tags) {
        $currents = $currents + """<a rel="tag" href="$t.url">$t.name</a>""";
        $tcount++;

        # if we haven't hit the last tag, add a separator
        if ($tcount != size $.tags) { $currents = $currents + $tags_sep; }
      }

      # close val container
      $currents = $currents + $meta_val_close;
    }

    if(defined $.mood_icon) {
      $currents = $currents + """</table></td></tr>""";
    }

    # close currents container
    $currents = $currents + $currents_close;

    # print currents
    println "$currents";
  }
}

K1's LJ Tools

2006-07-26T19:58:58Z

i'm moving my domain hosting. it shall take a few days to propogate.

this means that the neat toys i have will be intermittently available for a bit.

they can also be found here.

[theme] - [smooth sailing] - [use TagsPage to print special content]

2006-06-09T05:15:04Z

in response to geisha_doll's s2smoothsailing post. uses TagCloud as example for "special page."

function TagsPage::view_title : string {
  # get special page type
  var string page = $.args{"page"};

  # set special page titles
  var string{} pages = {
                        "one"      => "One",      # "one"      page title
                        "two"      => "Two",      # "two"      page title
                        "tagcloud" => "TagCloud", # "tagcloud" page title
                       };

  # if we are doing a special page, get special page title
  #  else, return normal page title
  #  change this to "Tags Page" if not using Smooth Sailing
  return $pages{$page} != "" ? $pages{$page} : $*text_tags_pagetitle;
}

function TagsPage::print_body() {
  # get special page type
  var string page = $.args{"page"};

  # "one" page content
  if($page == "one") {
    # <one>

    "one";

    # </one>

  # "two" page content
  } elseif ($page == "two") {
    # <two>

    "two";

    # </two>

  # "tagcloud" page content
  } elseif ($page == "tagcloud") {
    # <tagcloud>

    var string      header      = $this->view_title();
    var string      datetime    = $.time->date_format($*text_format_entry_date_and_time);
    var string      content     = "";

    var int         int_groups  =   5; # number of groups
    var int         int_percent =  20; # perecentage difference for each interval

    var int         adjust      = 0; # font size adjustment
    var int         factor      = 0; # factor of font size adjustment
    var int         interval    = 0; # tag use count interval per group
    var int         max         = 1; # max number of tag uses
    var TagDetail[] my_tags     = $this->visible_tag_list(); # list of visible tags

    # implement cloudstyle ala delicious, etc
    if ($my_tags) {
      $content = $content + """
      <table name="taglist" width="100%" cellpadding="3">
        <tr>
          <td>
      """;

      # get max
      foreach var TagDetail t ($my_tags) {
        if($t.use_count > $max) {
          $max = $t.use_count;
        }
      }

      # now we get tag use count interval per group
      $interval = $max / $int_groups;

      # now print each item, and adjust its
      # fontsize as a function of where in the
      # continuum of $int_groups intervals it is
      foreach var TagDetail t ($my_tags) {
        # if we're not going to divide by 0
        if($interval > 0) {
          # get the proportion based on use_count and interval
          $factor = $t.use_count / $interval;
        } else {
          # if we're dividing by 0, set factor to 0
          $factor = 0;
        }
        $adjust  = ($factor * $int_percent) + 100;
        $content = $content + """<span style="font-size: ${adjust}%"><a rel="tag" href="$t.url">$t.name</a></span> """;
      }
      $content = $content + """
          </td>
        </tr>
      </table>
      """;
    } else {
      $content = $content + """<p>There are currently no tags or categories for this journal.</p>""";
    }
    """
    <div class="entryHolder">
      <div class='entryHeader'>
        <span class="entryHeaderDate">$datetime</span><span class="entryHeaderSubject"> - $header</span>
      </div>
      <table width="100%" cellpadding="0" cellspacing="0" border="0">
        <tr valign="top">
          <td>""";

    if ($*layout_position_userinfo_entry == "left" or $*layout_wrapping_userinfo_entry) {
      if(defined $.journal.default_pic) {
        """
            <table border="0" cellspacing="0" cellpadding="0" align="left" class="entryUserinfo">
              <tr>
                <td>
                  <div class="entryUserinfo-usericon"><a href="$.journal.userpic_listing_url"><img src="$.journal.default_pic.url" alt="$.journal.name" title="$.journal.name" height="$.journal.default_pic.height" width="$.journal.default_pic.width" /></a></div>
                </td>
              </tr>
            </table>""";
        if (not $*layout_wrapping_userinfo_entry) {
          """
          </td>
          <td width="100%">""";
        }
      }
    }

    """
            <div class="entryText">
              $content
            </div>""";

    if ($*layout_position_userinfo_entry == "right" and not $*layout_wrapping_userinfo_entry) {
      if(defined $.journal.default_pic) {
        """
            </td>
            <td>
              <table border="0" cellspacing="0" cellpadding="0" align="left" class="entryUserinfo">
                <tr>
                  <td>
                    <div class="entryUserinfo-usericon"><a href="$.journal.userpic_listing_url"><img src="$.journal.default_pic.url" alt="$.journal.name" title="$.journal.name" height="$.journal.default_pic.height" width="$.journal.default_pic.width" /></a></div>
                  </td>
                </tr>
              </table>""";
      }
    }

    """
          </td>
        </tr>
      </table>
    </div>""";

    # </tagcloud>

  # no special page
  #  print as normal
  #  existing TagsPage::print_body() goes here
  } else {
    # <normal>

    if(size $.tags > 0) {
      if ($*layout_tagspage == "table") {
        $this->lay_print_tagstable();
      } elseif($*layout_tagspage == "list") {
        $this->lay_print_tagslist();
      }
    } else {
      """<center>$*text_tags_none</center>""";
    }

    # </normal>
  }
}

[theme] - [flexisquares] - [ajax/qr/timezone support]

2006-06-06T23:51:16Z

in response to didaio's s2flexisquares post.

function Comment::print_linkbar() {
  var string   link_seperator = "";

  # initialize array/hashes
  var string[] link_keyseq  = [""];
  var string{} link_url     = {"" => ""};
  var string{} link_caption = {"" => ""};
  var string{} link_image   = {"" => ""};

  var string print          = "";

  # gather current linkbar
  foreach var string link_key ($.link_keyseq) {
    var Link  link                   = $this->get_link($link_key);
    $link_url{$link_key}             = $link.url;
    $link_caption{$link_key}         = $link.caption;
    $link_image{$link_key}           = $link.icon.url;
    $link_keyseq[size($link_keyseq)] = $link_key; # add this to new link_keyseq array
  }

  # set new linkbar images
  var Color delete_comment   = $*entry_bgcolor;
  var Color screen_comment   = $*entry_bgcolor;
  var Color unscreen_comment = "#ffaaaa";
  var Color freeze_thread    = $*entry_bgcolor;
  var Color unfreeze_thread  = "#aaaaff";
  $link_image = {
                 "delete_comment"   => palimg_tint("boxer/delete.gif",   $delete_comment),
                 "screen_comment"   => palimg_tint("boxer/screen.gif",   $screen_comment),
                 "unscreen_comment" => palimg_tint("boxer/unscreen.gif", $unscreen_comment),
                 "freeze_thread"    => palimg_tint("boxer/freeze.gif",   $freeze_thread),
                 "unfreeze_thread"  => palimg_tint("boxer/unfreeze.gif", $unfreeze_thread),
                };

  # loop thru linkbar and add links to print var
  foreach var string link_key ($link_keyseq) {

    # if we can do performed action, url will be present
    if($link_url{$link_key} != "") {
      $print = $print + """<a href="$link_url{$link_key}">""";

      # if image url available, use it
      if($link_image{$link_key} != "") {

        # build an id for the image
        var string id = "";

        # if we're screening, add screen handle ("sus_#", where '#' is the comment talkid) to image
        if($link_key->contains("screen")) {
          $id = "sus_";
        }

        # if we're freezing, add freeze handle ("fuf_#", where '#' is the comment talkid) to image
        if($link_key->contains("freeze")) {
          $id = "fuf_";
        }

        $id = "$id$.talkid";
        $print = $print + """<img id="$id" src="$link_image{$link_key}" alt="$link_caption{$link_key}" title="$link_caption{$link_key}" border="0" />""";

      } else {
        # else, just use text
        $print = $print + "$link_caption{$link_key}";

      }

      # add a seperator
      $print = $print + "</a>$link_seperator";
    }
  }

  # hack off last seperator
  $print = $print->substr(0, $print->length() - $link_seperator->length());

  # we're done! let's print it!
  print $print;
}

function EntryPage::print_comment (Comment comment) {
  # set colors for comments
  var Color color_comment_bar_screened         = "#ffaaaa";
  var Color color_comment_bar_screened_fgcolor = "#000000";
  var Color color_comment_bar_frozen           = "#aaaaff";
  var Color color_comment_bar_frozen_fgcolor   = "#000000";
  var Color bgcolor                            = $*entrytitle_bgcolor;
  var Color fgcolor                            = $*entry_fgcolor;

  if($comment.screened) {
    $bgcolor = $color_comment_bar_screened;
    $fgcolor = $color_comment_bar_screened_fgcolor;
  }
  if($comment.frozen) {
    $bgcolor = $color_comment_bar_frozen;
    $fgcolor = $color_comment_bar_frozen_fgcolor;
  }

  var string  subject   = $comment.subject ? $comment.subject : """<i class="nosubject">$*text_nosubject</i>""";
  var string  poster    = isnull $comment.poster ? $*text_poster_anonymous : $comment.poster->as_string();
  var string  reply     = "";
  var string  parent    = "";
  var string  thread    = "";

  $subject = """<span class="commentsubject">$subject</span>""";

  if($comment.subject_icon.url != "") {
    $subject = "$comment.subject_icon $subject";
  }
	
  #Comment Userpic
  """
  <div class="datesubjectcomment" id="cmtbar$comment.talkid" style="background-color: $bgcolor; color: $fgcolor;">""";
  if (defined $comment.userpic and $*show_entry_userpic) {
    var int    w   = $comment.userpic.width;
    var int    h   = $comment.userpic.height; 
    var string alt = $comment.metadata{"picture_keyword"};
    if ($*comment_userpic_style == "small") {
      $w = $w / 2;
      $h = $h / 2;
    }  
    if ($alt != "") {
      $alt = ": " + $alt;
    }
    """
    <img class="userpiccomment" src="$comment.userpic.url" width="$w" height="$h" alt="$comment.poster.name$alt" title="$comment.poster.name$alt" />""";
  }

  print $poster;

  # use Comment::time_display()
  print " on " + $comment->time_display();

  """<br />
    $subject<br />""";

  if ($comment.metadata{"poster_ip"}) {
    var string ip = $comment.metadata{"poster_ip"};
    """<br />
    $*text_comment_ipaddr($ip)<br />""";
  }

  # use Comment::print_text()
  """
  </div>
  <div class="commentreply">"""; $comment->print_text(); """</div>""";

  var string alignlinks = "";
  if ($*userpic_position == "left") {
    $alignlinks = "right";
  } else {
    $alignlinks = "left";
  }

  """
    <div style="margin-top: 3px; font-size: smaller; text-align: $alignlinks;">""";

  $reply = $*text_comment_reply;
    
  if ($comment.frozen) {
    $reply = $*text_comment_frozen;
  }
  if ($.entry.comments.maxcomments) {
    $reply = $*text_max_comments;
  }
    
  if ($comment.parent_url != "") {
    $parent = """(<a href="$comment.parent_url">$*text_comment_parent</a>) """;
  }
    
  if ($comment.thread_url != "") { 
    $thread = """(<a href="$comment.thread_url">$*text_comment_thread</a>) """;
  }

  # print reply link
  print "(";
  if($reply == $*text_comment_reply) {
    $comment->print_reply_link({"linktext" => $reply});
  } else {
    print $reply;
  }
  print ") ";

  """$parent$thread(<a href="$comment.permalink_url">$*text_permalink</a>)""";

  """<div style="padding: 10px; text-align: $alignlinks;">""";
  if ($this.multiform_on) {
    """<label for="ljcomsel_$comment.talkid">$*text_multiform_check</label>""";
    $comment->print_multiform_check();
  }

  $comment->print_linkbar();

  """
    </div>""";

  # print reply container
  $comment->print_reply_container();

  """
  </div>""";
}

function EntryPage::print_body() {
  # set colors for comments
  var Color color_comment_bar_screened         = "#ffaaaa";
  var Color color_comment_bar_screened_fgcolor = "#000000";
  var Color color_comment_bar_frozen           = "#aaaaff";
  var Color color_comment_bar_frozen_fgcolor   = "#000000";

  # set new linkbar images
  var Color delete_comment   = $*entry_bgcolor;
  var Color screen_comment   = $*entry_bgcolor;
  var Color unscreen_comment = "#ffaaaa";
  var Color freeze_thread    = $*entry_bgcolor;
  var Color unfreeze_thread  = "#aaaaff";
  var string{} link_image = {
                             "delete_comment"   => palimg_tint("boxer/delete.gif",   $delete_comment),
                             "screen_comment"   => palimg_tint("boxer/screen.gif",   $screen_comment),
                             "unscreen_comment" => palimg_tint("boxer/unscreen.gif", $unscreen_comment),
                             "freeze_thread"    => palimg_tint("boxer/freeze.gif",   $freeze_thread),
                             "unfreeze_thread"  => palimg_tint("boxer/unfreeze.gif", $unfreeze_thread),
                            };

  # change bgcolor/fgcolor and images of screened comments
  set_handler("screen_comment_#",   [
                                     [ "set_image",     "sus_#",   $link_image{"unscreen_comment"},       ],
                                     [ "style_bgcolor", "cmtbar#", "$color_comment_bar_screened",         ],
                                     [ "style_color",   "cmtbar#", "$color_comment_bar_screened_fgcolor", ],
                                    ]);
  set_handler("unscreen_comment_#", [
                                     [ "set_image",     "sus_#",   $link_image{"screen_comment"},   ],
                                     [ "style_bgcolor", "cmtbar#", "$*entrytitle_bgcolor",          ],
                                     [ "style_color",   "cmtbar#", "$*entry_fgcolor",               ],
                                    ]);

  # change bgcolor/fgcolor and images of frozen comments
  set_handler("freeze_comment_#",   [
                                     [ "set_image",     "fuf_#",   $link_image{"unfreeze_thread"},      ],
                                     [ "style_bgcolor", "cmtbar#", "$color_comment_bar_frozen",         ],
                                     [ "style_color",   "cmtbar#", "$color_comment_bar_frozen_fgcolor", ],
                                    ]);
  set_handler("unfreeze_comment_#", [
                                     [ "set_image",     "fuf_#",   $link_image{"freeze_thread"}, ],
                                     [ "style_bgcolor", "cmtbar#", "$*entrytitle_bgcolor",       ],
                                     [ "style_color",   "cmtbar#", "$*entry_fgcolor",            ],
                                    ]);

  $this->print_entry($.entry);

  if ($.multiform_on and $.entry.comments.enabled and $.comment_pages.total_subitems > 0) {
    $this->print_multiform_start();
  }

  if ($.entry.comments.enabled) {
    """
    <div class="box">
      <center>""";

    $.comment_pages->print();

    # print reply link
    """
        <b>( """; $this->print_reply_link({"linktext" => $*text_post_comment, "target" => "topcomment"}); """ )</b>""";

    # print reply container
    $this->print_reply_container({"target" => "topcomment"});

    """
      </center>""";

    $this->print_comments($.comments);

    if(size($.comments) > 0) {
      """
      <center>""";

      $.comment_pages->print();

      # print reply link
      """
        <b>( """; $this->print_reply_link({"linktext" => $*text_post_comment, "target" => "bottomcomment"}); """ )</b>""";

      # print reply container
      $this->print_reply_container({"target" => "bottomcomment"});

      """
      </center>""";
    }

    """
    </div>""";
  }
    
  if ($this.multiform_on and $.entry.comments.enabled and ($.entry.comments.count > 0 or $.entry.comments.screened)) {
    """
    <div class="box">""";

    $this->print_multiform_actionline();
    $this->print_multiform_end(); 

    """
      <center>""";

    $.comment_pages->print();

    """
        <br />
      </center>
    </div>""";
  }
}

[theme] - [flexisquares] - [page summary]

2006-05-12T22:54:12Z

in response to epigram's s2flexisquares post.

in addition to using this code, you'll have to override print_entry() and include the following near the top of the function:

"""<a name="$e.journal.username$e.itemid" id="$e.journal.username$e.itemid"></a>""";

class MyUtils {
  function num_comments_in_thread(Comment[] comments) : int;
}

function MyUtils::num_comments_in_thread (Comment[] comments)  : int {
  var int total = 0;
  foreach var Comment c ($comments) {
    $total = $total + 1;
    if (size $c.replies > 0) {
      $total = $total + $this->num_comments_in_thread($c.replies);
    }
  }
  return $total;
}

function YearPage::print_month(YearMonth m) {
  if (not $m.has_entries) {
    return; 
  }

  var string month = $m->month_format();
  """
  <a name="month$m.month" id="month$m.month"></a>
  <table class="yeartable" align="center">
    <tr>
      <td colspan="4" class="yearmonth" align="left">$month</td>
      <td colspan="3" class="yearmonth" align="right"><a href="$m.url">$*text_view_month</a></td>
    </tr>
    <tr>""";
    foreach var int d (weekdays()) {
        """
      <td width="50px" class="yearday">"""+$*lang_dayname_short[$d]+"</td>\n";
    }
    """
    </tr>""";
    foreach var YearWeek w ($m.weeks) {
      $w->print();
    }
    """
  </table>
  <br />
  <br />
  <br />""";
}

function MonthPage::print_body {
  """
  <form method='post' action='$.redir.url'>
    <center><br />""";
  $.redir->print_hiddens();
  if ($.prev_url != "") { 
    "[<a href='$.prev_url'>&lt;&lt;&lt;</a>]\n"; 
  }
  if (size $.months > 1) {
    "<select name='redir_key'>\n";
    foreach var MonthEntryInfo mei ($.months) {
      var string sel;
      if ($mei.date.year == $.date.year and $mei.date.month == $.date.month) {
        $sel = " selected='selected'";
      }
      "<option value='$mei.redir_key'$sel>" + $mei.date->date_format($*lang_fmt_month_long) + "</option>";
    }
    "</select>\n<input type='submit' value='View' />";
  }
  if ($.next_url != "") { 
    "\n[<a href='$.next_url'>&gt;&gt;&gt;</a>]\n"; 
  }
  """
    </center>
  </form><br />
  <br />
  <div class="subcontent">
    <div class="entry">
      <dl>""";
  foreach var MonthDay d ($.days) {
    if ($d.has_entries) {
      var string day = lang_ordinal($d.day);
      """
        <dt>
          <a name="day$d.day" id="day$d.day" href="$d.url">
            <b>$day</b>
          </a>
        </dt>
        <dd>""";
      $d->print_subjectlist();
      """
        </dd>""";
    }
  }
  """
      </dl>
    </div>
  </div>""";
}

function print_sidebar() {
  # create helper vars for sidebar boxes
  var string k1Sheader      = "";
  var string k1Sheader_one  = """<li class="sbartitle">""";
  var string k1Sheader_two  = "</li>";
  var string k1Scontent     = "";
  var string k1Scontent_one = """<li class="sbaritem">""";
  var string k1Scontent_two = "</li>";

  # create var for header of summary box
  var string    summary_header = "Page Summary";

  # create helper vars for summary sidebar box
  var Page      p        = get_page();
  var Comment[] comments = [];
  var Entry[]   entries  = [];
  var int       items    = 0;
  var string    summary  = "";

  # if we're on a RecentPage or FriendsPage
  if($p isa RecentPage) {
    var RecentPage rp = $p as RecentPage;

    # grab the entries and number of them
    if(size($rp.entries) > 0) {
      $entries = $rp.entries;
      $items   = size($entries);
    }
  }

  # if we're on a YearPage
  if($p isa YearPage) {
    var YearPage yp    = $p as YearPage;
    var string   month = "";
    foreach var YearMonth m ($yp.months) {
      if($m.has_entries) {
        $month   = """<a href="#month$m.month">""" + $m->month_format() + """</a>""";
        $month   = "$k1Scontent_one$month$k1Scontent_two";
        $summary = $summary + $month + "\n";
      }
    }
  }

  # if we're on a MonthPage
  if($p isa MonthPage) {
    var MonthPage mp  = $p as MonthPage;
    var string    day = "";
    foreach var MonthDay d ($mp.days) {
      if($d.num_entries > 0) {
        $day     = """<a href="#day$d.day">""" + $d.date->date_format("long") + """</a>""";
        $day     = "$k1Scontent_one$day$k1Scontent_two";
        $summary = $summary + $day + "\n";
      }
    }
  }

  # if we're on a DayPage
  if($p isa DayPage) {
    var DayPage dp = $p as DayPage;
    if(size($dp.entries) > 0) {
      $entries = $dp.entries;
      $items   = size($entries);
    }
  }

  # if we're on an EntryPage
  if($p isa EntryPage) {
    var EntryPage ep = $p as EntryPage;
    if(size($ep.comments) > 0) {

      # grab the comments and number of them
      $comments = $ep.comments;
      $items    = size($comments);
    }
  }

  # if we got entries from Recent/Friends/DayPage
  if(size($entries) > 0) {
    var string security = "";
    var string subject  = "";
    var string poster   = "";
    var string journal  = "";
    var string count   = "";
    var string item     = "";

    # cycle thru entries
    foreach var Entry e ($entries) {
      $security = "";
      $subject  = "";
      $poster   = "";
      $journal  = "";
      $count    = "";
      $item     = "";

      # get security icon
      if($e.security_icon.url != "") {
        $security = $e.security_icon + " ";
      }

      # get subject
      if($e.subject != "") {
        $subject = striphtml($e.subject);
      } else {
        $subject = """<i class="nosubject">$*text_nosubject</i>""";
      }

      # get journal
      if($p.view == "friends" and (not ($e.poster->equals($e.journal)))) {
        $journal = "$e.journal ::<br />";
      }

      # get poster
      if($p.view == "friends" or  (not ($e.poster->equals($e.journal)))) {
        $poster = "$e.poster :<br />";
      }

      # get comment count
      $count   = """ [<a href="$e.permalink_url">+$e.comments.count</a>]""";

      # put it all together
      $item    = """$security$journal$poster<a href="#$e.journal.username$e.itemid">$subject</a>$count""";

      # format it for a sidebar box line item
      $item    = "$k1Scontent_one$item$k1Scontent_two";

      # add it to the summary var
      $summary = $summary + $item + "\n";
    }
  }

  # if we got comments from EntryPage
  if(size($comments) > 0) {
    var MyUtils mu      = new MyUtils;
    var string  subject = "";
    var string  icon    = "";
    var string  poster  = "";
    var string  count   = "";
    var string  item    = "";

    # cycle thru comments
    foreach var Comment c ($comments) {
      $subject = "";
      $icon    = "";
      $poster  = "";
      $count   = "";
      $item    = "";

      # get subject icon
      $icon    = $c.subject_icon.url != "" ? $c.subject_icon + " " : "";

      # get subject
      $subject = $c.subject != "" ? $c.subject : """<i class="nosubject">$*text_nosubject</i>""";
      $subject = "$subject";

      # get poster
      $poster  = $c.poster.username  != "" ? $c.poster + "" : """<i class="noposter">$*text_poster_anonymous</i>""";
      $poster  = $poster + " :<br />";

      # get reply count
      $count   = """ [<a href="$c.permalink_url">+""" + $mu->num_comments_in_thread($c.replies) + """</a>]""";

      # put it all together
      $item    = """$icon$poster<a href="#t$c.talkid">$subject</a>$count""";

      # format it for a sidebar box line item
      $item    = "$k1Scontent_one$item$k1Scontent_two";

      # add it to the summary var
      $summary = $summary + $item + "\n";
    }
  }

  # if we've got a summary
  if($summary != "") {
    # set header
    $k1Sheader  = $summary_header;

    # set content
    $k1Scontent = $summary;

    # print sidebar box
    print_sidebar_box("$k1Sheader_one$k1Sheader$k1Sheader_two", "$k1Scontent_one$k1Scontent$k1Scontent_two");
  }

  sidebar_order($*sidebar_order_1);
  sidebar_order($*sidebar_order_2);
  sidebar_order($*sidebar_order_3);
  sidebar_order($*sidebar_order_4);
}

[theme] - [change info icons via css]

2006-05-02T21:54:35Z

in response to troublesrollby's s2flexisquares post.

this works in browsers that support attribute selectors.
browsers that don't support attribute selectors will use the new image that you set for personal journals.

function Page::print_custom_head() {

# create an order of account types
var string[] types_order = ["personal", "community", "syndicated", "news", "identity", "sponcomm"];

# original URLs used by livejournal
var string{} old_urls = {
                         "personal"      => "http://p-stat.livejournal.com/img/userinfo.gif",
                         "community"     => "http://p-stat.livejournal.com/img/community.gif",
                         "syndicated"    => "http://stat.livejournal.com/img/syndicated.gif",
                         "news"          => "http://p-stat.livejournal.com/img/newsinfo.gif",
                         "identity"      => "http://p-stat.livejournal.com/img/openid-profile.gif",
                         "sponcomm"      => "http://p-stat.livejournal.com/img/sponcomm.gif",
                        };

# original widths used by livejournal
var string{} old_widths = {
                           "personal"    => "17",
                           "community"   => "16",
                           "syndicated"  => "16",
                           "news"        => "16",
                           "identity"    => "16",
                           "sponcomm"    => "16",
                          };

# original heights used by livejournal
var string{} old_heights = {
                            "personal"   => "17",
                            "community"  => "16",
                            "syndicated" => "16",
                            "news"       => "16",
                            "identity"   => "16",
                            "sponcomm"   => "16",
                           };

# new URLs to your images
# if you don't have an image for a specific type, leave it blank to use the original
var string{} new_urls = {
                         "personal"      => "http://pics.livejournal.com/kunzite1/pic/000x8y5d.gif",
                         "community"     => "http://pics.livejournal.com/kunzite1/pic/000x7th0.gif",
                         "syndicated"    => "http://pics.livejournal.com/kunzite1/pic/000x6cww.gif",
                         "news"          => "http://pics.livejournal.com/kunzite1/pic/000x5pdc.gif",
                         "identity"      => "http://pics.livejournal.com/kunzite1/pic/0026r895.gif",
                         "sponcomm"      => "http://pics.livejournal.com/kunzite1/pic/002asx0e.gif",
                        };

# new widths for your images
# if you don't have an image for a specific type, leave it blank to use the original
var string{} new_widths = {
                           "personal"    => "17",
                           "community"   => "16",
                           "syndicated"  => "15",
                           "news"        => "17",
                           "identity"    => "16",
                           "sponcomm"    => "16",
                          };

# new heights for your images
# if you don't have an image for a specific type, leave it blank to use the original
var string{} new_heights = {
                            "personal"   => "17",
                            "community"  => "16",
                            "syndicated" => "18",
                            "news"       => "16",
                            "identity"   => "16",
                            "sponcomm"   => "16",
                           };

var string ie_url    = $new_urls{"personal"};
var string ie_width  = $new_widths{"personal"};
var string ie_height = $new_heights{"personal"};
"""
<style type="text/css">
.ljuser img { 
  width:             0;
  height:            0;
  background-repeat: no-repeat;

  /* so that IE users will still see an image */
  background-image: url($ie_url); 
  padding:          ${ie_height}px ${ie_width}px 0 0;
}
""";

foreach var string type ($types_order) {
  var string old_url    = $old_urls{$type};
  var string new_url    = $new_urls{$type}    != "" ? $new_urls{$type}    : $old_url;
  var string new_width  = $new_widths{$type}  != "" ? $new_widths{$type}  : $old_widths{$type};
  var string new_height = $new_heights{$type} != "" ? $new_heights{$type} : $old_heights{$type};
  """
.ljuser img[src="$old_url"] {
  background-image: url($new_url);
  padding:          ${new_height}px ${new_width}px 0 0;
}
  """;
}
"""
</style>
""";

}

Base64

2006-05-01T05:30:22Z

Simple one this time: Generation of Base64 and data: URLs. With a little hacking, you can embed little (dynamically-generated? hmmmm) images and stuff directly into your layout using this, no hosting needed.

# -----------------------------------------------------------------------------
#   S2 Base64 routines                                     v0.01 - 04/30/2006
#   Copyright (c) 2006 Patrick Walton but freely redistributable
# -----------------------------------------------------------------------------

function BSFEncodeBase64(int[] data) : string
{
    var string mapString =
        "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/";
    var string[] map;
    var int i = 0;
    foreach var string ch ($mapString) {
        $map[$i] = $ch;
        $i++;
    }

    var string result = "";
    var int val = 0;

    $i = 0;
    foreach var int octet ($data) {
        if ($i == 0) {          # 000000 00
            $val = $octet / 4;
            $result = $result + $map[$val];
            $val = $octet % 4;
            $i++;
        } elseif ($i == 1) {    # 001111 1111
            $val = $val * 16 + $octet / 16;
            $result = $result + $map[$val];
            $val = $octet % 16;
            $i++;
        } else {                # 111122 222222
            $val = $val * 4 + $octet / 64;
            $result = $result + $map[$val];
            $val = $octet % 64;
            $result = $result + $map[$val];
            $i = 0;
        }
    }

    if ($i == 1) {              # one input byte remaining
        $val = $val * 16;
        $result = $result + $map[$val] + "==";
    } elseif ($i == 2) {        # two input bytes remaining
        $val = $val * 4;
        $result = $result + $map[$val] + "=";
    }

    return $result;
}

function BSFGenerateDataURL(int[] data, string mimeType) : string
{
    return "data:" + $mimeType + ";base64," + BSFEncodeBase64($data);
}

# -- End of Base64 package ----------------------------------------------------

EntryPage is hosed after Timezone Support Update

2006-04-29T20:11:09Z

those of you using the code in this entry or those of you who have overridden Page::print_entry(Entry e) or EntryPage::print_comment(Comment e) are prolly getting errors when you view entries or reply to comments. the following edits should fix that.

in EntryPage::print_comment(Comment e):

    if (not $e.full) {
        # Collapsed mode

        "<div class='comment collapsed-comment'"+($e.dom_id ? " id='$e.dom_id'" : "")+">\n";
        "<div class='comment-footer'>";
        var string subject = $e.subject;
        if ($subject == "") { $subject = $*text_nosubject; }
        "<a href='$e.permalink_url' class='collapsed-comment-link'>$subject</a> <span class='separator'>-</span> ";
#       print lang_posted_by_date_and_time($e.poster, $e.time, true, true, true);
        print lang_posted_by_date_and_time($e, $e.poster, $e.time, true, true, true);
        "</div>";
        "</div>";

        return;
    }

also in EntryPage::print_comment(Comment e):

    var string sep = "<span class='separator'>|</span>";
 
#   print lang_posted_by_date_and_time($e.poster, $e.time, true, true, true)+" $sep ";
    print lang_posted_by_date_and_time($e, $e.poster, $e.time, true, true, true)+" $sep ";
 
    "<a class='permalink' href='$e.permalink_url'>$*text_permalink</a>";

in Page::print_entry(Entry e):

         if ($showdate or $showtime or $showposter) {
#            print lang_posted_by_date_and_time($e.poster, $e.journal, $e.time, $showposter, $showdate, $showtime)+" $sep ";
             print lang_posted_by_date_and_time($e, $e.poster, $e.journal, $e.time, $showposter, $showdate, $showtime)+" $sep ";
         }
         "<a class='permalink' href='$e.permalink_url'>$*text_permalink</a>";

Unicode character functions (chr/fromCharCode and ord/charCodeAt)

2006-04-18T01:31:58Z

As some of you may have noticed, S2's Unicode support is rather buggy. I've written a little package to convert S2 strings to and from their Unicode character numbers. If you've programmed Perl, this is the equivalent of chr() and ord(). If you've programmed Java or JavaScript, this is the same as fromCharCode() and charCodeAt(). I've tested it on input from a variety of sources, and it seems to work in all cases.

Hopefully this'll add a little sanity to S2's handling of Unicode.

Be sure your browser's encoding is set correctly before copying this into your layer. There are some funky characters here, and if they don't copy correctly things will break badly!

# -----------------------------------------------------------------------------
#   UC - S2 Unicode package                                v0.02 - 04/18/2006
#   Copyright (c) 2006 Patrick Walton but freely redistributable
# -----------------------------------------------------------------------------

# Converts the given 32-bit integer to a binary string.
function UCIntToBinaryString(int n) : string
{
    var string str = "";

    var int power = 32768;
    foreach var int i (0..31) {
        if ($n >= $power) {
            $n = $n - $power;
            $str = $str + "1";
        } else {
            $str = $str + "0";
        }

        $power = $power / 2; 
    }

    foreach var int i (0..2) {
        if ($str->starts_with("00000000")) {
            $str = $str->substr(8, $str->length() - 8);
        }
    }

    return $str;
}

# Converts the given binary string to an integer.
function UCBinaryStringToInt(string str) : int
{
    var int n = 0;
    var int power = 1;

    var string reversedStr = reverse $str;
    foreach var string bit ($reversedStr) {
        if ($bit == "1") {
            $n = $n + $power;
        }

        $power = $power * 2;
    }

    return $n;
}

# Like Java String.toCharArray(), turns a string into an array of Unicode code
# points.
function UCConvertStringToCodePoints(string str) : int[]
{
    var int{} baseCharPoints = {
        " " => 32, "," => 44, "-" => 45, "." => 46, "/" => 47, "0" => 48, 
        "1" => 49, "2" => 50, "3" => 51, "4" => 52, "5" => 53, "6" => 54, 
        "7" => 55, "8" => 56, "9" => 57, ":" => 58, "A" => 65, "B" => 66, 
        "C" => 67, "D" => 68, "E" => 69, "F" => 70, "G" => 71, "H" => 72, 
        "I" => 73, "J" => 74, "K" => 75, "L" => 76, "M" => 77, "N" => 78, 
        "O" => 79, "P" => 80, "Q" => 81, "R" => 82, "S" => 83, "T" => 84, 
        "U" => 85, "V" => 86, "W" => 87, "X" => 88, "Y" => 89, "Z" => 90, 
        "\\" => 92, "_" => 95, "a" => 97, "b" => 98, "c" => 99, "d" => 100, 
        "e" => 101, "f" => 102, "g" => 103, "h" => 104, "i" => 105, "j" => 106, 
        "k" => 107, "l" => 108, "m" => 109, "n" => 110, "o" => 111, "p" => 112, 
        "q" => 113, "r" => 114, "s" => 115, "t" => 116, "u" => 117, "v" => 118, 
        "w" => 119, "x" => 120, "y" => 121, "z" => 122
    };

    var string{} hexNibbles = {
        "0" =>  "0000", "1" =>  "0001", "2" =>  "0010", "3" =>  "0011",
        "4" =>  "0100", "5" =>  "0101", "6" =>  "0110", "7" =>  "0111",
        "8" =>  "1000", "9" =>  "1001", "A" =>  "1010", "B" =>  "1011",
        "C" =>  "1100", "D" =>  "1101", "E" =>  "1110", "F" =>  "1111"
    };

    var int[] translatedString = [];
    var string bitString = "";

    foreach var string ch ($str) {
        var int codePoint;

        var bool wasBase = false;
        if ($baseCharPoints{$ch}) {
            if ($bitString == "") { # ugly but S2 has no exists on hashes, sigh
                $codePoint = $baseCharPoints{$ch};
                $translatedString[size $translatedString] = $codePoint;
                $wasBase = true;
            }
        }

        if (not $wasBase) {
            var string hexString = eurl($ch);   # and magic happens!

            var string thisBitString = "";
            foreach var string nibble ($hexString) {
                if (($nibble >= "0" and $nibble <= "9") or
                    ($nibble >= "A" and $nibble <= "F")) {
                    $thisBitString = $thisBitString + $hexNibbles{$nibble};
                }
            }

            # Add a null high nibble if needed
            if ($thisBitString->length() % 8 == 4) {
                $thisBitString = "0000" + $bitString;
            }

            $bitString = $bitString + $thisBitString;

            var bool finished = false;
            if ($bitString->starts_with("0")) {         # 0xxxxxxx
                $finished = true;
            } elseif ($bitString->starts_with("110") and $bitString->length()
                == 16) {                                # 110zzzzx 10xxxxxx
                $finished = true;
                $bitString =    $bitString->substr(3, 5) +
                                $bitString->substr(10, 6);
            } elseif ($bitString->starts_with("1110") and $bitString->length()
                == 24) {                                # 1110zzzz ...
                $finished = true;
                $bitString =    $bitString->substr(4, 4) +
                                $bitString->substr(10, 6) +
                                $bitString->substr(18, 6);
            } elseif ($bitString->starts_with("11110") and $bitString->length()
                == 32) {
                $finished = true;
                $bitString =    $bitString->substr(5, 3) +
                                $bitString->substr(10, 6) +
                                $bitString->substr(18, 6) +
                                $bitString->substr(26, 6);
            }

            if ($finished) {
                $codePoint = UCBinaryStringToInt($bitString);
                $translatedString[size $translatedString] = $codePoint;
                $bitString = "";
            } 
        }
    }

    return $translatedString;
}

# Like "ord" in Perl and "String.charCodeAt()" in Java and JavaScript, returns
# the Unicode code point that represents character pos in string str.
function UCGetCodePointAt(string str, int pos) : int
{
    var int[] translatedString = UCConvertStringToCodePoints($str);
    return $translatedString[$pos]; 
}

# Like String.fromCharArray() in Java, takes an array of code points and
# returns an S2 string.
function UCConvertCodePointsToString(int[] codePoints) : string
{
    # To say that this function is hacky is an understatement. The theory is
    # that this string contains every single legal UTF-8 byte. We then cut up
    # this string, Frankenstein-style, to piece together the result string.

    var string fundamentalString = 
	" \n  !\"#\$%" +
	"&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM" +
	"NOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrst" +
	"uvwxyz{|}~ ĀāĂăĄąĆćĈĉĊċČčĎďĐđĒēĔĕĖėĘęĚěĜ" +
	"ĝĞğĠġĢģĤĥĦħĨĩĪīĬĭĮįİıĲĳĴĵĶķĸĹĺĻļĽľĿÉĉŉƉ" +
	"ǉȉɉʉˉ͉̉ΉωЉщ҉ӉԉՉ։׉؉ىډۉ܉݉މ߉ခ 、䀁倁态瀁老送ꀁ뀁쀁퀁" +
	"       ";

    # Change the code points into an array of UTF-8 bytes.
    var int[] utf8Bytes = [];
    foreach var int codePoint ($codePoints) {
        if ($codePoint <= 127) {
            $utf8Bytes[size $utf8Bytes] = $codePoint;
        } else {
            var string binaryString = UCIntToBinaryString($codePoint);
            if ($binaryString->starts_with("00000")) {
                $utf8Bytes[size $utf8Bytes] = UCBinaryStringToInt("110" +
                    $binaryString->substr(5, 5));
                $utf8Bytes[size $utf8Bytes] = UCBinaryStringToInt("10" +
                    $binaryString->substr(10, 6));
            } else {
                $utf8Bytes[size $utf8Bytes] = UCBinaryStringToInt("1110" +
                    $binaryString->substr(0, 4));
                $utf8Bytes[size $utf8Bytes] = UCBinaryStringToInt("10" +
                    $binaryString->substr(4, 6));
                $utf8Bytes[size $utf8Bytes] = UCBinaryStringToInt("10" +
                    $binaryString->substr(10, 6));
            }
        }
    }

    var string convertedString = "";
    foreach var int utf8Byte ($utf8Bytes) {
        # Find the position we want in the fundamental string.
        var int fsIndex;
        if ($utf8Byte == 0) {
            $fsIndex = 0;
        } elseif ($utf8Byte <= 127) {
            $fsIndex = $utf8Byte - 1;
        } elseif ($utf8Byte <= 191) {
            $fsIndex = 127 + ($utf8Byte - 128)*2 + 1;
        } elseif ($utf8Byte <= 193) {
            $fsIndex = 0;
        } elseif ($utf8Byte <= 223) {
            $fsIndex = 127 + ($utf8Byte - 130)*2;
        } elseif ($utf8Byte <= 224) {
            $fsIndex = 0;
        } elseif ($utf8Byte <= 239) {
            $fsIndex = 309 + ($utf8Byte - 223)*3;
        } elseif ($utf8Byte <= 240) {
            $fsIndex = 0;
        } else {
            $fsIndex = 0;
        }

        # Navigate to that position and insert the character.
        var int i = 0;
        foreach var string ch ($fundamentalString) {
            if ($i == $fsIndex) {
                $convertedString = $convertedString + $ch;
            }

            $i++;
        }
    }

    return $convertedString;
}

# Like Java and JavaScript String.fromCharCode and Perl chr, converts the given
# Unicode code point to a string.
function UCConvertCodePointToString(int codePoint) : string
{
    var int[] cps = [ $codePoint ];
    return UCConvertCodePointsToString($cps);
}

# -- End of S2 Unicode routines -----------------------------------------------

[theme] - [opal] - [tags redirect]

2006-04-14T17:52:08Z


############################################
# LiveJournal Tags List and Redirector     #
# by lj:kunzite1, posted by lj:xtomxfallsx #
# Component: component-help/873563         #
# Opal:      s2layers/64439                #
############################################ 

  var string      k1TRheader    = "Tags In This Journal"; # set the boxheader text, you can change this to whatever you want
  var string      k1TRbutton    = "Go";                   # button text, change it to whatever you want
  var bool        k1TRblank     = true;                   # set to true to create a blank option at top the list, or false not to

  # No need to change anything below this line (unless you know what you are doing!)
 
  var string      k1TRbase_url  = $.journal->base_url(); 
  var string      k1TRcontent   = "";
  var TagDetail[] k1TRtags      = $this->visible_tag_list();

  foreach var TagDetail k1TRtag ($k1TRtags) {
    $k1TRcontent = $k1TRcontent + """<option value="$k1TRtag.name">$k1TRtag.name</option>\n""";
  }

  $k1TRcontent = """
  <form action="$k1TRbase_url/" method="get">
    <select id="tags_select" name="tag">""" + $k1TRcontent;
    if($k1TRblank) {
      $k1TRcontent = $k1TRcontent + """      <option value="" selected="selected"></option>\n""";
    }
    $k1TRcontent = $k1TRcontent + """
    </select><br />
    <input type="submit" value="$k1TRbutton" />
  </form>""";

  print_box($k1TRheader, $k1TRcontent);

Adding linklist support to Gradient Strip

2006-04-10T22:13:44Z

This lack has been bugging me since I switched to Gradient Strip on my other journals. An example may be seen at: http://camomiletea.livejournal.com/?s2id=10802076

First adding the function:

function Page::print_linklist() {
	if (size $.linklist <= 0) {
		return;
	}

	var bool slash = false;
	var string links;

	lay_nav_box_top();
	
	foreach var UserLink l ($.linklist) {
		if ($l.title) {
			if ($l.is_heading) {
				"""<strong>$l.title</strong>""";
				$slash = false;
			} else {
				if($slash) {
					""" $*link_divider """;
				}
				""" <a href="$l.url">$l.title</a> """;
				$slash = true;
			}
		} else {
			"<br />";
		}
	}

	lay_nav_box_bottom();
}

Then we need to add $this->print_linklist(); to the function Page::print, as follows:

function Page::print()  {
   var string title = $.global_title;
   var string subtitle = $.global_subtitle; 
   var string view_title = $this->view_title() != "" ? $this->view_title() : "Unknown View";

   """<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
     "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
   <html xmlns="http://www.w3.org/1999/xhtml">
   <head>
   """;
         $this->print_head();
         println """<title>$title :: $view_title</title>""";
         if ($*external_stylesheet) {
            print safe """<link rel="stylesheet" href="$.stylesheet_url" type="text/css" />""";
         } 
         else {
            """<style type="text/css">"""; 
            start_css();
            print_stylesheet(); 
            end_css();
            "</style>";
         }
   """</head>
   <body>""";
   $this->print_control_strip();
   $this->lay_print_header();
   if (viewer_sees_ads()) {
      """<table width="100%" height="100%">""";
      """<tr><td valign="top">""";
   }
   $this->print_linklist();
   $this->print_body();
   if (viewer_sees_ads()) {
      "</td>";
      """<td valign="top" align="right" width="20%">""";
      """<div style="margin-right: 10px;">""";
      $this->print_ad("Journal-Skyscraper");
      "</div></td></tr></table>";
   }
   """</body>
   </html>""";
}

navigation strip

2006-04-10T07:01:12Z

i just now added $this->print_control_strip(); to all the entries tagged with function print. if y'all who have time could check 'em for me and make sure i didn't break anything, that'd be awesome.

disabling comments on this entry. please leave bug reports on the corresponding entries.

many thankies. :)

yay for capital letters!!!

2006-04-08T05:52:11Z

BIG ANNOYING BOLD TYPE WARNING THAT ALL SHOULD READ ABOUT THE NAVIGATION STRIP CODE THAT I POSTED: DO NOT ATTEMPT THIS UNLESS YOU HAVE AMPLE PAID TIME LEFT OR A PERMANENT ACCOUNT. THE NAVIGATION STRIP MAY CHANGE IN THE FUTURE AND THIS CODE MAY BECOME OBSOLETE VERY FAST. PLZ 2 HEED THIS WARNING KTHX.

[theme] - [haven] - [k1ified print_entry]

2006-04-07T20:51:47Z

in response to dancingyel's s2haven post.

set tags_aware         = true;
set text_meta_location = "Current Location:";
set text_meta_mood     = "Current Mood:";
set text_meta_music    = "Current Music:";

function CommentInfo::print_readlink() {
  var string img_url    = "";
  var int    img_width  = 0;
  var int    img_height = 0;
  var bool   img_count  = false;

  if($.show_readlink) {
    var Page p      = get_page();
    var string url  = $.read_url;
    var string text = get_plural_phrase($.count, "text_read_comments" + ($p.view == "friends" ? "_friends" : ""));
    if($.screened) {
      $text = $text + " " + $*text_month_screened_comments;
    }

    if($url != "") {
      """<a href="$url">""";
    }
    if($img_url != "") {
      if($img_count) {
        print $.count;
      }
      """<img src="$img_url" width="$img_width" height="$img_height" alt="$text" title="$text" border="0" />""";
    } else {
      print $text;
    }
    if($url != "") {
      """</a>""";
    }
  }
}

function CommentInfo::print_postlink() {
  var string img_url    = "";
  var int    img_width  = 0;
  var int    img_height = 0;

  if($.show_postlink) {
    var Page p      = get_page();
    var string url  = $.post_url;
    var string text = get_plural_phrase(0, "text_post_comment" + ($p.view == "friends" ? "_friends" : ""));
    if($.maxcomments) {
      $url  = "";
      $text = $*text_max_comments;
    }

    if($url != "") {
      """<a href="$url">""";
    }
    if($img_url != "") {
      """<img src="$img_url" width="$img_width" height="$img_height" alt="$text" title="$text" border="0" />""";
    } else {
      print $text;
    }
    if($url != "") {
      """</a>""";
    }
  }
}

function CommentInfo::print() {
  var string text_comment_divider = " | ";

  if($.show_readlink) {
    $this->print_readlink();
    if($.show_postlink) {
      print $text_comment_divider;
    }
  }
  if($.show_postlink) {
    $this->print_postlink();
    print $text_comment_divider;
  }
}

function Entry::print_metadata() {
  var string tags_header         = "Current Tags"; # text for tags header,    "Current Tags"
  var string tags_joiner         = ":";            # text for tags joiner,    ":"
  var string tags_sep            = ", ";           # text for tags separator, ", "

  var bool   show_edit_tags_link = false;          # set to true if you want edit tags link as tags header

  var string currents_open       = """<div class="currents">"""; # html for opening of currents container
  var string currents_close      = """</div>"""; # html for closing of currents container

  var bool   loc_after_mood      = false;               # set to true to print location after mood
  var bool   vanilla_loc         = false;               # set to true to delinkify location

  # if you need data specific to the meta to be in these strings you'll have to set those individually down further
  # one example is provided with meta_label_open
  var string meta_label_open     = "";               # html for opening of metadata label

  var string meta_label_close    = """</strong> """; # html for closing of metadata label
  var string meta_val_open       = "";               # html for opening of metadata value
  var string meta_val_close      = """</div>""";     # html for closing of metadata value

  var Link   edit_tags           = $this->get_link("edit_tags"); # helper var to see if remote user can edit tags

  if ((size $.metadata > 0) or ((size $.tags > 0) and ($*tags_aware))){
    if($.metadata{"mood"} == "" and $loc_after_mood) {
      # if we're printing loc after mood but we have no mood, set loc_after_mood to false
      $loc_after_mood = false;
    }
    var string currents = "";             # make var for printing

    $currents           = $currents_open; # add opening of currents container

    foreach var string k ($.metadata){  # step thru metadata
      var string text = $k;             # set text to key
      var string val  = $.metadata{$k}; # get val

      if ($k == "mood"){                # if mood, set text to mood property
        $text = $*text_meta_mood;
        if (defined $.mood_icon){       # if we have a mood icon, add it
          var Image i = $.mood_icon;
          $val        = """<img src="$i.url" width="$i.width" height="$i.height" align="middle" alt="$val" title="$val" /> $val""";
        }
      } 
      elseif ($k == "music") {          # if music, set text to music property
        $text = $*text_meta_music;
      } elseif ($k == "location") {     # if location, set text to loc variable

        $text = $*text_meta_location;
        if($vanilla_loc) {              # if vanilla loc, striphtml() it
          $val = striphtml($val);
        }
      }
      if(not ($k == "location" and $loc_after_mood)) {
        # if we're doing loc right now and printing loc after mood, skip it
        # if we're doing loc right now and we're not printing loc after mood, print it now
        # if we're not doing loc right now, print this piece of meta

        # in this layout, each piece of meta gets its own class
        $meta_label_open  = """<div class="current$k"><strong>""";

        # add the meta
        $currents = $currents + """$meta_label_open$text$meta_label_close$meta_val_open$val$meta_val_close""";
      }

      if($k == "mood" and $loc_after_mood) {
        # if we just now did the mood and we're printing loc after mood, print the loc

        $k    = "location";           # set meta key to "location"
        $text = $*text_meta_location; # set text to loc variable
        $val  = $.metadata{$k};       # get val

        # if we have a loc, do stuff
        if($val != "") {

          # if vanilla loc, striphtml() it
          if($vanilla_loc) {
            $val = striphtml($val);
          }

          # in this layout, each piece of meta gets its own class

          $meta_label_open  = """<div class="current$k"><strong>""";

          # add the meta
          $currents         = $currents + """$meta_label_open$text$meta_label_close$meta_val_open$val$meta_val_close""";
        }
      }
    }
    if ((size $.tags > 0) and $*tags_aware) {
      var string k      = "tags"; # set key to "tags"

      # in this layout, each piece of meta gets its own class

      $meta_label_open  = """<div class="current$k"><strong>""";

      var int tcount = 0; # set counter for tags
      if($edit_tags.url != "" and $show_edit_tags_link) { # if remote user can edit tags, let's give them a link
        $tags_header = """<a href="$edit_tags.url">$tags_header</a>""";
      }

      # add text, open val container

      $currents = $currents + """$meta_label_open$tags_header$tags_joiner$meta_label_close$meta_val_open""";

      # build tag list
      foreach var Tag t ($.tags) {
        $currents = $currents + """<a rel="tag" href="$t.url">$t.name</a>""";
        $tcount++;

        # if we haven't hit the last tag, add a separator
        if ($tcount != size $.tags) { $currents = $currents + $tags_sep; }
      }

      # close val container
      $currents = $currents + $meta_val_close;
    }

    # close currents container

    $currents = $currents + $currents_close;

    # print currents
    println "$currents";
  }
}

function Entry::print_linkbar() {
  var string   link_seperator = " | "; # seperator for links

  # initialize array/hashes
  var string[] link_keyseq    = [""];
  var string{} link_url       = {"" => ""};
  var string{} link_caption   = {"" => ""};
  var string{} link_image     = {"" => ""};

  var string print           = "";                                         # var for printing
  var Page   p               = get_page();                                 # page handle to determine interentry
  var bool   show_interentry = ($p.view == "entry" or $p.view == "reply"); # if entry/reply view, show interentry
  var int    keyseq_index    = 0;                                          # set index point for new link_keyseq array

  if($show_interentry) {
    # if show interentry, put previous entry link first
    $link_keyseq[$keyseq_index++] = "nav_prev";

    # get previous entry link information
    var Link prev             = $this->get_link("nav_prev");
    $link_url{"nav_prev"}     = $prev.url;
    $link_caption{"nav_prev"} = $prev.caption;
    $link_image{"nav_prev"}   = $prev.icon.url;

    # get next entry link information
    var Link next             = $this->get_link("nav_next");
    $link_url{"nav_next"}     = $next.url;
    $link_caption{"nav_next"} = $next.caption;
    $link_image{"nav_next"}   = $next.icon.url;
  }

  # gather current linkbar
  foreach var string link_key ($.link_keyseq) {
    var Link  link            = $this->get_link($link_key);
    $link_url{$link_key}      = $link.url;
    $link_caption{$link_key}  = $link.caption;
    $link_image{$link_key}    = $link.icon.url;
    $link_keyseq[$keyseq_index++] = $link_key; # add this to new link_keyseq array
  }
  if($show_interentry) {
    # if show interentry, put next entry link last
    $link_keyseq[$keyseq_index++] = "nav_next";
  }

  #################################################################################################################
  # by now, the above hashes should look something like:                                                          #
  #                                                                                                               #
  # If interentry:                                                                                                #
  #   Previous Entry:                                                                                             # 
  #    $link_url{"nav_prev"}     = http://www.livejournal.com/go.bml?journal=exampleusername&itemid=256&dir=prev  #
  #    $link_caption{"nav_prev"} = Previous Entry                                                                 #
  #    $link_image{"nav_prev"}   = http://stat.livejournal.com/img/btn_prev.gif                                   #
  #                                                                                                               #
  # Edit Entry:                                                                                                   # 
  #  $link_url{"edit_entry"}     = http://www.livejournal.com/editjournal.bml?journal=exampleusername&itemid=256  #
  #  $link_caption{"edit_entry"} = Edit Entry                                                                     #
  #  $link_image{"edit_entry"}   = http://stat.livejournal.com/img/btn_edit.gif                                   #
  #                                                                                                               #
  # Edit Tags:                                                                                                    # 
  #  $link_url{"edit_tags"}      = http://www.livejournal.com/edittags.bml?journal=exampleusername&itemid=256     #
  #  $link_caption{"edit_tags"}  = Edit Tags                                                                      #
  #  $link_image{"edit_tags"}    = http://stat.livejournal.com/img/btn_edittags.gif                               #
  #                                                                                                               #
  # Add to Memories:                                                                                              # 
  #  $link_url{"mem_add"}        = http://www.livejournal.com/tools/memadd.bml?journal=exampleusername&itemid=256 #
  #  $link_caption{"mem_add"}    = Add to Memories                                                                #
  #  $link_image{"mem_add"}      = http://stat.livejournal.com/img/btn_memories.gif                               #
  #                                                                                                               #
  # If interentry:                                                                                                #
  #   Next Entry:                                                                                                 #
  #    $link_url{"nav_next"}     = http://www.livejournal.com/go.bml?journal=exampleusername&itemid=256&dir=next  #
  #    $link_caption{"nav_next"} = Next Entry                                                                     #
  #    $link_image{"nav_next"}   = http://stat.livejournal.com/img/btn_next.gif                                   #
  #################################################################################################################

  # disable images
  $link_image{"nav_prev"   } = "";
  $link_image{"mem_add"    } = "";
  $link_image{"edit_entry" } = "";
  $link_image{"edit_tags"  } = "";
  $link_image{"tell_friend"} = "";
  $link_image{"nav_next"   } = "";

  # loop thru linkbar and add links to print var
  foreach var string link_key ($link_keyseq) {
    # if we can do performed action, url will be present
    if($link_url{$link_key} != "") {
      $print = $print + """<a href="$link_url{$link_key}">""";
      # if image url available, use it
      if($link_image{$link_key} != "") {
        $print = $print + """<img src="$link_image{$link_key}" alt="$link_caption{$link_key}" title="$link_caption{$link_key}" border="0" />""";
      } else {
        # else, just use text
        $print = $print + "$link_caption{$link_key}";
      }
      # add a seperator
      $print = $print + "</a>$link_seperator";
    }
  }

  # hack off last seperator
  $print = $print->substr(0, $print->length() - $link_seperator->length());

  # we're done! let's print it!
  print $print;
}

function print_entry(Page p, Entry e, Color bgcolor, Color fgcolor, bool viewing_thread) {
  var string entry = "";

  var bool   have_meta = (size ($e.metadata) > 0);
  var bool   have_tags = ($*tags_aware and (size ($e.tags) > 0));

  # Named anchor to link from page summary
  $entry = $entry + """<a name="entry_$e.itemid"></a>""";
  $entry = $entry + """<div class="entry">""";
  var string subject = $e.subject != "" ? $e.subject : $*text_nosubject;
  var string time    = $e.time->time_format();
  $entry = $entry + """<h4 class="subject">$e.security_icon $subject @ $time</h4>""";
  $entry = $entry + """<div class="text">""";

  # build poster info
  if(
     (
      $p.view == "friends" or
      (not $e.poster->equals($e.journal)) or
      ($*show_entry_userpic and defined $e.userpic)
     )
    ) {
    if ($p.view == "friends") {
      if (defined $e.userpic) {
        $entry = $entry + """<img src="$e.userpic.url" width="$e.userpic.width" style="color: $fgcolor; background: $bgcolor; border: 5px solid $bgcolor;" height="$e.userpic.height" alt="" class="userpic" />""";
      }
      if (not $e.poster->equals($e.journal)) {
        $entry = $entry + $e.poster->as_string() + ", posting in ";
      }
      $entry = $entry + $e.journal->as_string() + ":<br />";
    } elseif (not $e.poster->equals($e.journal)) {
      if (defined $e.userpic) {
        $entry = $entry + """<img src="$e.userpic.url" width="$e.userpic.width" height="$e.userpic.height" alt="" class="userpic" />""";
      }
      $entry = $entry + $e.poster->as_string() + ":<br />";
    } elseif (defined $e.userpic) {
      $entry = $entry + """<p><img src="$e.userpic.url" width="$e.userpic.width" height="$e.userpic.height" alt="" class="userpic" />""";
    }
  }

  # print what we've got and clear it
  print $entry;
  $entry = "";

  # print metadata
  $e->print_metadata();

  # if we have meta or tags, add a line break
  if ($have_meta or $have_tags) {
    $entry = "$entry<br />";
  }

  # print what we've got and clear it
  print $entry;
  $entry = "";

  # if we're not viewing a thread, print entry text
  if (not $viewing_thread) {
    $e->print_text();
  }

  # add some more blank lines
  $entry = $entry + """<div class="clearer">&nbsp;</div>""";
  $entry = $entry + "</div>";

  # Comments
  $entry = $entry + """<div class="comments">""";

  # print what we've got and clear it
  print $entry;
  $entry = "";

  $e.comments->print();
  $e->print_linkbar();

  # close entry div
  $entry = $entry + "</div>";
  $entry = $entry + "</div>";

  # print what we've got and clear it
  print $entry;
  $entry = "";
}

[theme] - [generator] - [move navigation strip to bottom]

2006-04-07T19:45:29Z

in response to panda_cookie's s2styles post.
BIG ANNOYING WARNING: DO NOT ATTEMPT THIS UNLESS YOU HAVE AMPLE PAID TIME LEFT OR A PERMANENT ACCOUNT. THE NAVIGATION STRIP MAY CHANGE IN THE FUTURE AND THIS CODE MAY BECOME OBSOLETE VERY FAST. PLZ 2 HEED THIS WARNING KTHX.

function Page::print_custom_head() {
var int    nav_strip_border_width = 2;         # navigation strip border width          (2 for generator)
var string nav_strip_font_family  = "Verdana"; # navigation strip font family           ("$*font_base, $*font_fallback" for generator)
var Color  nav_strip_link_fgcolor = "#0000ff"; # navigation strip link color            ($*page_link for generator)
var Color  nav_strip_main_bgcolor = "#ffffff"; # navigation strip main background color ($*entry_back for generator)
var Color  nav_strip_main_fgcolor = "#000000"; # navigation strip main foreground color ($*entry_text for generator)
"""
<style type="text/css">
/* set body padding to 0 */
html body {
  padding: 0 0 0 0;
}

/* un-stick navigation strip */
#lj_controlstrip {
  position: relative;
}

/* set navigation strip bgcolor/fgcolor/font */
#lj_controlstrip td, #lj_controlstrip a,  #lj_controlstrip input, #lj_controlstrip_statustext {
  background-color: $nav_strip_main_bgcolor;
  color:            $nav_strip_main_fgcolor;
  font-family:      $nav_strip_font_family;
}

/* set navigation strip link color */
#lj_controlstrip a {
  color: $nav_strip_link_fgcolor;
}

/* add border to whole navigation strip */
#lj_controlstrip {
  border: ${nav_strip_border_width}px solid $nav_strip_main_fgcolor;
}

/* alter navigation strip table cell borders */
#lj_controlstrip_user, #lj_controlstrip_userlinks, #lj_controlstrip_login {
  border-color: $nav_strip_main_fgcolor;
  border-width: ${nav_strip_border_width}px;
}

/* hide the server signature since it doesn't seem to play nice with moving the navigation strip */
#lj_controlstrip_poweredby {
  display: none;
}
</style>
""";
}

function Page::print() {
  var string title = $this->title();

  var string website_name = $.journal.website_name ? $.journal.website_name : $*text_website_default_name;
  var string website;
  if ($.journal.website_url != "") {
    $website = """<tr><td class="meta">[</td>
    <td class="meta" align="right"><b>$*text_website</b></td>
    <td class="meta" align="center">|</td>
    <td class="meta" align="left"><a href="$.journal.website_url">$website_name</a></td>
    <td class="meta">]</td></tr>""";
  }

  var string links = "";
  var bool firstlink = true;
  foreach var string v ($.views_order) {
    var string url  = $.view_url{$v};
    var string text = lang_viewname($v);
    if ($firstlink == false) {
      $links = "$links|";
    } else {
      $firstlink = false;
    }
    if($.view == $v) {
      $links = $links + """<b>$text</b>""";
    } else {
      $links = $links + """<a class="index" href="$url">$text</a>""";
    }
  }

  """<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">\n<html>\n<head>\n""";

  $this->print_head();

  if ($*external_stylesheet) {
    println safe """<link rel="stylesheet" href="$.stylesheet_url" type="text/css" />""";
  } else {
    println """<style type="text/css">"""; start_css(); print_stylesheet(); end_css(); "</style>";
  }

  """<title>$title</title>
</head>
<body bgcolor="$*page_back" text="$*entry_text" link="$*page_link" vlink="$*page_vlink" alink="$*page_alink">""";

  # remove navigation strip from top
  # $this->print_control_strip();

  if (viewer_sees_ads()) {
    """
  <table width="100%" height="100%">
    <tr>
      <td valign="top">""";
  }

  """
        <div align="center">
          <table width="$*box_width" cellpadding="2" cellspacing="0" border="0" summary="">
            <tr>
              <td bgcolor="$*stronger_back" align="center">
                <table width="100%" cellpadding="3" cellspacing="0" border="0" summary="">
                  <tr class="caption">
                    <td class="caption" align="left"><b>$title</b></td>
                    <td class="index" align="right">[$links]</td>
                  </tr>
                </table>
                <table width="100%" cellpadding="3" cellspacing="0" border="0" summary="">
                  <tr>
                    <td class="shadowed" align="center">
                      <table cellspacing="5" cellpadding="0" border="0" summary="" style="margin-left: auto; margin-right: auto;">
                        <tr>""";
  $this->lay_top_userpic();

  var string sitename_lc = $*SITENAMESHORT->lower();

  """
                          <td>
                            <div align="center"><b>$.journal.name</b></div><p>
                            <table cellspacing="0" cellpadding="0" border="0" summary="">
                              $website
                              <tr>
                                <td class="meta">[</td>
                                <td class="meta" align="right"><b>"""+lang_viewname("userinfo")+"""</b></td>
                                <td class="meta" align="center">|</td>
                                <td class="meta" align="left"><a href="$.view_url{"userinfo"}">$sitename_lc userinfo</a></td>
                                <td class="meta">]</td>
                              </tr>
                              <tr>
                                <td class="meta">[</td>
                                <td class="meta" align="right"><b>"""+lang_viewname("archive")+"""</b></td>
                                <td class="meta" align="center">|</td>
                                <td class="meta" align="left"><a href="$.view_url{"archive"}">journal archive</a></td>
                                <td class="meta">]</td>
                              </tr>
                            </table>
                          </td>
                        </tr>
                      </table>
                    </td>
                  </tr>
                </table>
              </td>
            </tr>
          </table>
  """;

  if (size $.linklist > 0 and $*linklist_support) {
    $this->print_linklist();
  }

  """
          <p>""";

  $this->print_body();

  """
        </div>""";

  if (viewer_sees_ads()) {
    """
      </td>
      <td valign="top" align="right" width="20%">
        <table cellpadding="2" cellspacing="0" border="0" summary="">
          <tr>
            <td bgcolor="$*stronger_back" align="center">
              <table width="100%" cellpadding="3" cellspacing="0" border="0" summary="">
                <tr>
                  <td class="shadowed" align="center">
                    <table cellspacing="5" cellpadding="0" border="0" summary="" style="margin-left: auto; margin-right: auto;">
                      <tr>
                        <td>
                          <div align="center">
  """;
  $this->print_ad("Journal-Skyscraper");
  """
                          </div>
                        </td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
    """;
  }
  """
  <p>""";

  # put navigation strip at bottom
  $this->print_control_strip();

  """
  </body>
</html>""";
}