Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- diff --git a/2ch/board.l b/2ch/board.l
- index be5c0b4..3aba116 100755
- --- a/2ch/board.l
- +++ b/2ch/board.l
- @@ -290,7 +290,7 @@
- (set-text-attribute (point)
- (progn
- ;(insert (format nil (format nil "~~~D@A" *board-title-width*) title))
- - (insert (format nil "~V@A" *board-title-width* title))
- + (insert (format nil "~VA" *board-title-width* title))
- (point))
- 'title
- :foreground *board-fgcolor-title*
- @@ -309,7 +309,7 @@
- )
- (set-text-attribute (point)
- (progn
- - (insert (format nil " ~V@A" *board-name-width* (format nil "[~A]" name)))
- + (insert (format nil " ~VA" *board-name-width* (format nil "[~A]" name)))
- (point))
- 'name
- :foreground *board-fgcolor-name*
- @@ -318,7 +318,7 @@
- )
- (set-text-attribute (point)
- (progn
- - (insert (format nil "~V@A"
- + (insert (format nil "~VA"
- *board-date-width*
- (if wtime
- (format nil "[~A]" (view-format-date wtime
- diff --git a/2ch/bookmark.l b/2ch/bookmark.l
- index 406c26b..7ea66cd 100755
- --- a/2ch/bookmark.l
- +++ b/2ch/bookmark.l
- @@ -126,7 +126,7 @@
- );3
- (set-text-attribute (point)
- (progn
- - (insert (format nil " ~15@A" (format nil "[~A]" (bookmark-category book))))
- + (insert (format nil " ~15A" (format nil "[~A]" (bookmark-category book))))
- (point))
- 'name
- :foreground *bookmark-fgcolor-category*
- @@ -135,7 +135,7 @@
- )
- (set-text-attribute (point)
- (progn
- - (insert (format nil " ~15@A" (format nil "[~A]" (bookmark-board book))))
- + (insert (format nil " ~15A" (format nil "[~A]" (bookmark-board book))))
- (point))
- 'tracking
- :foreground *bookmark-fgcolor-board*
- @@ -144,7 +144,7 @@
- )
- (set-text-attribute (point)
- (progn
- - (insert (format nil "~60@A" (bookmark-title book)))
- + (insert (format nil "~60A" (bookmark-title book)))
- (point))
- 'title
- :foreground *bookmark-fgcolor-title*
- diff --git a/2ch/menu.l b/2ch/menu.l
- index cb73313..4da8759 100755
- --- a/2ch/menu.l
- +++ b/2ch/menu.l
- @@ -597,12 +597,12 @@
- (when add
- (setq str (concat str "新しい板\n"))
- (dolist (tmp (reverse add))
- - (setq str (format nil "~A ~10@A: ~A~%" str (cdr tmp) (car tmp))))
- + (setq str (format nil "~@A ~10A: ~@A~%" str (cdr tmp) (car tmp))))
- (setq str (concat str "\n")))
- (when del
- (setq str (concat str "消えた板\n"))
- (dolist (tmp (reverse del))
- - (setq str (format nil "~A ~10@A: ~A~%" str (cdr tmp) (car tmp))))
- + (setq str (format nil "~@A ~10A: ~@A~%" str (cdr tmp) (car tmp))))
- (setq str (concat str "\n")))
- (when diff
- (setq str (concat str "移転\n"))
- @@ -884,7 +884,7 @@
- (defun menu-insert-category (name open-p)
- (set-text-attribute (point)
- (progn
- - (insert (format nil "~22@A~%"
- + (insert (format nil "~22A~%"
- (format nil "~:[+~;-~][~A]" open-p name)))
- (point))
- 'name
- @@ -895,7 +895,7 @@
- (defun menu-insert-menu (name)
- (set-text-attribute (point)
- (progn
- - (insert (format nil " ~20@A~%" name))
- + (insert (format nil " ~20A~%" name))
- (point))
- 'board
- :foreground *menu-fgcolor*
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement