top  Index  Search  Changes  RSS  Login

ReverseReminder


howm-wrap (2005-08-02 23:34:27)

なんでも (2005-08-02 23:28:05)

  • 2005-07-28 (木) 18:41:02 MT : Howm1.1.0.3(XYZZY-0.2.2.234+howm-wrap)という条件下:Howmによる[予定]や[ToDo]のメモファイル分類では、日付の順番が後の日付が下に表示されるわけです――これを、Changelogの場合のように、上になるほど、後の日付になるように順序を逆にして表示できるようにしたいのですが、これを、.xyzzyとか、 .howm-int.l に書き足すころで、可能にできないでしょうか?
  • 2005-07-28 (木) 20:17:16 Anonymous : *howmS:○○* バッファでは, R を押すと逆順になります. …っていう話?
  • 2005-08-01 (月) 11:27:41 MT : 初心者程度なので、幼稚な感じの質問で申し訳ありません。たぶん、Meadow+howmなどでは、C+S  @/-r(?) とか、*howmS:○○* バッファtabでは、Rをおすと逆順(昇順)にならべなおしができるのかもしれませんが、xyzzy+howm-wrap(howm1.1.0.3)では、Rをおすと「書き込み禁止バッファーです」エラー表示、また、r をおすと、単に、*scratch*バッファータブにウィンドウ画面が切り替わってしまうだけでした……。 Calmemoを調べたところ、.calmemo に<;;; メモ一覧を逆順(というか正順)で表示

(setf *log-list-reverse* t) > と書き加えれば逆順になるようなので、このように、逆順配列のコードをhowm-init.l に書き加えればできないのでしょうか? できるとすれば、そのコードを知りたいのですが…… 

  • 2005-08-01 (月) 21:06:28 Anonymous : 「*howmS:○○* バッファで」試しました? 症状を聞くと, *howmM:%menu%* バッファで R を押してる疑いが.
  • 2005-08-01 (月) 21:06:40 Anonymous : それとも, howm-wrap だと本当に効かないんですか? > どなたか xyzzy な方
  • 2005-08-01 (月) 21:06:51 Anonymous : …というか, 予定や todo を逆順にしたいって, そもそも何か想定外の使い方されてそうな… ^^;
  • 2005-08-02 (火) 02:11:40 MT : どうもすいません。たしかに、*howmM:%menu%* バッファでRをおすと=単に *scratch*にもどる、でしたが、<howmS:○○* バッファで試す>と、エラー表示「書き込み禁止バッファーです」となりました。そこで、howm-init.l のなかで、
;; [roma] 検索はしたいが、インクリメントサーチはいやな人は、
;; ↓を有効に。
(global-set-key #\C-s 'ed::search-forward)
(global-set-key #\C-r 'ed::search-backward)

となっているのをみて、<howmS:○○* バッファでC+r>をおこなうと、ミニバッファに、「Search backward:」表示がでました。そこで、「@」(つまり、[予定]@)を入力すると、どうも恣意的な箇所(たとえば、「changelogmemo.txt | [2005-07-09]@ 」)にカーソルが飛びます。つづけて、C+r と「@ 」入力を再度すると、( 2005-07-08-085724.howm | [2005-07-08]@ 」)にカーソルが一日だけ戻るという具合に移りました。――――でも、望んでいたのは、<howmS:○○* バッファの画面内容が、一番上=一番あとの日付、一番下=一番古い日付>と並べかえられた画面>になることでした。やはり、このようなことは、howm (meadowではできるが、how-wrapではできない?) では想定外なのでしょうか?

  • 2005-08-02 (火) 14:23:54 Anonymous : howm-wrapの作者に聞くとか
  • 2005-08-02 (火) 19:06:03 Anonymous : R がほんとに効かないのなら作者さんでしょうけど, 設定や操作の問題だったら作者さん駆り出すのはちょっと悪い気も. まずは 2ch の xyzzy スレで確認するとか.
  • 2005-08-02 (火) 19:06:19 Anonymous : とか言ってるより, でっちあげてしまう方が早いかな. xyzzy がわかる人へ↓を見せて相談してもらえます?
diff -u -r --new-file howm-1.1.0.3/howm-menu.el howm-1.1.0.3.my/howm-menu.el
--- howm-1.1.0.3/howm-menu.el	2003-12-20 01:57:00.000000000 +0900
+++ howm-1.1.0.3.my/howm-menu.el	2005-08-02 00:00:00.000000000 +0900
@@ -377,14 +377,14 @@
   (message "scanning schedule...")
   (delete-region (match-beginning 0) (match-end 0))
   (mapc #'howm-menu-insert-item
-        (howm-schedule-menu howm-menu-schedule-days))
+        (reverse (howm-schedule-menu howm-menu-schedule-days)))
   (message "...done")
   )
 (defun howm-menu-todo ()
   (message "scanning todo...")
   (delete-region (match-beginning 0) (match-end 0))
   (mapc (lambda (item) (howm-menu-insert-item item "  "))
-        (howm-todo-menu howm-menu-todo-num))
+        (reverse (howm-todo-menu howm-menu-todo-num)))
   (message "...done")
   )
 
diff -u -r --new-file howm-1.1.0.3/howm-mode.el howm-1.1.0.3.my/howm-mode.el
--- howm-1.1.0.3/howm-mode.el	2003-12-29 18:03:50.000000000 +0900
+++ howm-1.1.0.3.my/howm-mode.el	2005-08-02 00:00:00.000000000 +0900
@@ -794,6 +794,7 @@
                                     howm-view-summary-format)))
     (howm-list-reminder howm-schedule-types howm-list-schedule-name)
     (howm-view-sort-by-summary)
+    (howm-view-sort-reverse)
     (howm-reminder-goto-today)))
 
 (defun howm-list-reminder (types name)
@@ -835,7 +836,9 @@
     (let ((rest summaries)
           (n 0))
       (while (and rest
-                  (string< (car rest) today))
+                  (string< today (car rest))
+                  (not (string-match (concat "^" (regexp-quote today))
+                                     (car rest))))
         (setq rest (cdr rest)
               n (1+ n)))
       (goto-line (1+ n)))))
@@ -867,7 +868,8 @@
                                       ""
                                     howm-view-summary-format)))
     (howm-list-reminder howm-todo-types howm-list-todo-name)
-    (howm-todo-sort-by-priority)))
+    (howm-todo-sort-by-priority)
+    (howm-view-sort-reverse)))
 
 (defun howm-todo-menu (n)
   (let* ((raw (howm-reminder-search howm-todo-types))
  • 2005-08-02 (火) 21:05:08 MT : 本当にどうもありがとうございました――これはEmacs 用なのでしょうから、common Lisp系xyzzyに適したコードに微調整する必要があるのでしょう。これから、xyzzyのできる方に相談してみます。


  • 2005-08-05 (金) 15:47:44 MT : 事後報告です。上記のパッチ対象コード・ファイル、ありがとうございました。xyzzy関係のサイト<http://xyzzy.s53.xrea.com/wiki/?%BC%C1%CC%E4%C8%A2%2F102>で相談した結果、上記パッチを適応して、無事に昇順で表示することに成功しました。再度、お礼申し上げます。
(Please LogIn to post comments.)

Last modified:2008/03/09 16:02:20
Keyword(s):
References:[howm-wrap] [なんでも]