use UTF-8 for *-ja.el

[howm/howm.git] / howm-lang-ja.el

diff --git a/howm-lang-ja.el b/howm-lang-ja.el
index b4ae278..89aacb5 100644 (file)
--- a/howm-lang-ja.el
+++ b/howm-lang-ja.el
@@ -1,5 +1,5 @@
 ;;; howm-lang-ja.el --- Wiki-like note-taking tool
-;;; -*- Coding: iso-2022-7bit -*-
+;;; -*- Coding: utf-8 -*-
 ;;; Copyright (C) 2005-2022
 ;;;   HIRAOKA Kazuyuki <khi@users.osdn.me>
 ;;;
@@ -21,40 +21,40 @@
 
 (require 'howm-common)
 
-(defvar howm-day-of-week-ja '("\e$BF|\e(B" "\e$B7n\e(B" "\e$B2P\e(B" "\e$B?e\e(B" "\e$BLZ\e(B" "\e$B6b\e(B" "\e$BEZ\e(B"))
+(defvar howm-day-of-week-ja '("日" "月" "火" "水" "木" "金" "土"))
 
 (defvar howm-menu-command-table-ja
   `(
-    ("[\e$BB.5-\e(B]" howm-remember previous)
-    ("[\e$B?75,\e(B]" (lambda () (howm-create ,howm-menu-action-arg)))
-    ("[\e$BDI2C\e(B]" (lambda () (howm-create-here ,howm-menu-action-arg)))
-    ("[\e$BJ#@=\e(B]" howm-dup)
-    ("[\e$B99?7\e(B]" howm-initialize-buffer previous)
-    ("[\e$B@55,\e(B]" howm-list-grep)
-    ("[\e$B8GDj\e(B]" howm-list-grep-fixed)
+    ("[速記]" howm-remember previous)
+    ("[新規]" (lambda () (howm-create ,howm-menu-action-arg)))
+    ("[追加]" (lambda () (howm-create-here ,howm-menu-action-arg)))
+    ("[複製]" howm-dup)
+    ("[更新]" howm-initialize-buffer previous)
+    ("[正規]" howm-list-grep)
+    ("[固定]" howm-list-grep-fixed)
     ("[roma]" howm-list-migemo)
-    ("[\e$B:#F|\e(B]" howm-find-today)
-    ("[\e$B:rF|\e(B]" howm-find-yesterday)
-    ("[\e$B0lMw\e(B]" howm-list-all)
-    ("[\e$B:G6a\e(B]" howm-list-recent)
-    ("[\e$BA08e\e(B]" howm-list-around)
-    ("[\e$BM=Dj\e(B]" howm-list-schedule)
-    ("[\e$B%PFb\e(B]" (lambda () (call-interactively 'howm-occur)) previous)
-    ("[\e$BA4%P\e(B]" (lambda () (howm-list-buffers ,howm-menu-action-arg)))
+    ("[今日]" howm-find-today)
+    ("[昨日]" howm-find-yesterday)
+    ("[一覧]" howm-list-all)
+    ("[最近]" howm-list-recent)
+    ("[前後]" howm-list-around)
+    ("[予定]" howm-list-schedule)
+    ("[バ内]" (lambda () (call-interactively 'howm-occur)) previous)
+    ("[全バ]" (lambda () (howm-list-buffers ,howm-menu-action-arg)))
     ("[mark]" howm-list-mark-ring previous)
-    ("[\e$BMzNr\e(B]" howm-history)
-    ("[\e$BBj",\e(B]" howm-keyword-to-kill-ring)
-    ("[\e$BL>",\e(B]" (lambda () (howm-keyword-to-kill-ring t)))
-    ("[\e$B80"-\e(B]" howm-insert-keyword previous)
-    ("[\e$BF|"-\e(B]" howm-insert-date previous)
-    ("[\e$B;~"-\e(B]" howm-insert-dtime previous)
+    ("[履歴]" howm-history)
+    ("[題↑]" howm-keyword-to-kill-ring)
+    ("[名↑]" (lambda () (howm-keyword-to-kill-ring t)))
+    ("[鍵↓]" howm-insert-keyword previous)
+    ("[日↓]" howm-insert-date previous)
+    ("[時↓]" howm-insert-dtime previous)
     ("[Todo]" howm-list-todo)
-    ("[\e$BA4>C\e(B]" howm-kill-all)
-    ("[\e$B6/@)A4>C\e(B]" (lambda () (interactive) (howm-kill-all t)))
-    ("[menu \e$BJT=8\e(B]" howm-menu-edit current)
-    ("[menu \e$B99?7\e(B]" howm-menu-refresh current)
-    ("[\e$B@_Dj\e(B]" (lambda () (customize-group 'howm)))
-    ("[\e$B?lJb\e(B]" howm-random-walk previous)
+    ("[全消]" howm-kill-all)
+    ("[強制全消]" (lambda () (interactive) (howm-kill-all t)))
+    ("[menu 編集]" howm-menu-edit current)
+    ("[menu 更新]" howm-menu-refresh current)
+    ("[設定]" (lambda () (customize-group 'howm)))
+    ("[酔歩]" howm-random-walk previous)
     ))
 
 (provide 'howm-lang-ja)