vieweditattachhistoryswikistopchangessearchhelp

ロゴ移動、コメント追加、列挙順変更など


[shelf] → templaes (shelf) → list "見栄え調整、コメント追加"

<?doctype?>
<html>
<head>
<title>Swikis on <?name?></title>
</head>
<body<?colorScheme?>>
<h2>Swikis on <?name?></h2>
<?swikiListing?>
<?logo?>
</body>
</html>




<?doctype?>
<html>
<head>
<title><?name?></title>
</head>
<body<?colorScheme?>>
<h2><?name?></h2>
<p><font color=gray>本サイトには以下の <?countSwikiBooks?> 冊の Swiki ブックがあります。<br>最近、更新されたものから順に表示しています。</font><p>
<?swikiListing?>
<br>
<?logo?>
</body>
</html>



[shelf] → templates (shelf) → logo "ロゴを右端へ移動"

<a href="http://minnow.cc.gatech.edu/swiki"><?comancheImage?></a><br>
<em>Comanche 5.0 / Swiki 1.3</em><br>




<p align=right>Powered by <em>Squeak</em> and <a href="http://minnow.cc.gatech.edu/swiki"><?comancheImage?></a><br>
<em>Comanche 5.0 / Swiki 1.3</em><br></p>



[shelf] → actions (shelf) → countSwikiBooks "Swiki ブック数表示のための追加アクション"

(shelf books select: [:book | book setup at: 'visible' ifAbsent: [true]]) size asString


[shelf] → actions (shelf) → swikiListing "列挙順変更"

| return swikis |
"Sort Swikis Alphabetically"
swikis _ shelf books asSortedCollection: [:a :b | (a name) < (b name)].
return _ WriteStream on: String new.
return
  nextPutAll: '<ul>';
  nextPutAll: String crlf.
swikis do: [:book | (book setup at: 'visible' ifAbsent: [true])
  ifTrue: [return
    nextPutAll: '<li>';
    nextPutAll: (shelf formatBookTemplate: 'listing' request: request response: response book: book);
    nextPutAll: String crlf]].
return
  nextPutAll: '</ul>';
  contents




| return swikis swikisCol swikis0 |
"Sort Swikis by its Modified Date and Time"
swikis0 _ shelf books select: [ :book |
  (book setup at: 'visible' ifAbsent: [true]) and: [book pages isNil]].
swikisCol _ (shelf books select: [ :book |
  (book setup at: 'visible' ifAbsent: [true])
    and: [book pages notNil]]) collect: [ :book |
      {book. (book pages asSortedCollection: [:x :y |
        (x date = y date) ifTrue: [x time > y time] ifFalse: [x date > y date]]) first}].
swikis _ (swikisCol asSortedCollection: [:x :y |
  (x last date = y last date)
    ifTrue: [x last time > y last time]
    ifFalse: [x last date > y last date]]) collect: [ :item | item first ].
swikis addAll: swikis0.
return _ WriteStream on: String new.
return
  nextPutAll: '<ul>';
  nextPutAll: String crlf.
swikis do: [:book | (book setup at: 'visible' ifAbsent: [true])
  ifTrue: [return
    nextPutAll: '<li>';
    nextPutAll: (shelf formatBookTemplate: 'listing' request: request response: response book: book);
    nextPutAll: String crlf]].
return
  nextPutAll: '</ul>';
  contents



[shelf] → templates (book) → listing "Swiki ブック一覧表示フォーマット変更"

<a href="<?toBook?>"><?name?></a><?size?><?description?>



<a href="<?toBook?>"><?description?></a> 全 <?size?> ページ<?accessCountDateUser?>


[shelf] → actiotns (book) → size "ページ数表示アクション変更"

(book pages)
  ifNil: ['']
  ifNotNil: [' (', (book pages size asString), ')']




(book pages)
  ifNil: ['']
  ifNotNil: [' (全 ', (book pages size asString), ' ページ)']



[shelf] → actions (book) → accessCountDateUser "最新更新ページの更新日/更新者取得用アクション作成"

| pages lastModifiedPage user |
(pages _ book pages)
  ifNil: ['']
  ifNotNil: [
    '<font color=gray size=-1>(', (pages collect: [ :page |
      ExAccessCounter default atBook: book page: page]) sum printString, ') ',
    ' <a href="',
    (request
      referenceShelf: shelf
      book: book
      page: (lastModifiedPage _ (pages asSortedCollection: [:x :y |
        (x date = y date) ifTrue: [x time > y time] ifFalse: [x date > y date]]) first)),
    '">最終更新</a>: ', lastModifiedPage printDate, ', ', lastModifiedPage printTime, ' &lt;',
    ((user _ lastModifiedPage user)
      ifNil: ['unknown']
      ifNotNil: [(user _ user copyFrom: 1 to: (user size min: 3)) = ''
        ifFalse: [user]
        ifTrue: ['unknown']]),
    '&gt;</font>']



[shelf] → actions (book) → description "Swiki ブック表題表記変更"

(book settingsIncludes: 'description')
  ifTrue: [': ', (book settingsAt: 'description')]
  ifFalse: ['']




(book settingsIncludes: 'description')
  ifTrue: [book settingsAt: 'description']
  ifFalse: ['unnamed swiki']


このページを編集 (5660 bytes)


Congratulations! 以下の 1 ページから参照されています。

This page has been visited 2429 times.