Commit 488d9b43 authored by Linus Tolke's avatar Linus Tolke
Browse files

new feature: kom-review-last-normally-read

parent 92d57a3e
No preview for this file type
No preview for this file type
......@@ -634,3 +634,38 @@ text is shown and a REVIEW list is built to shown the other ones."
(lyskom-view-text 'main (car text-nos)))
(lyskom-insert-string 'no-such-text)))
(lyskom-run 'main 'lyskom-end-of-command))
;;; ================================================================
;;; ]terse igen - kom-review-last-normally-read
;;;
;;; Author: Linus Tolke
(defun kom-review-last-normally-read (no)
"Reviews the NO last normally read texts."
(interactive
(list
(lyskom-read-number (lyskom-get-string 'read-normally-read) 1)))
(lyskom-start-of-command 'kom-review-last-normally-read)
(let* ((text-nos (reverse (nfirst no lyskom-normally-read-texts))))
(if text-nos
(progn
(lyskom-format-insert 'review-text-no (car text-nos))
(if (cdr text-nos)
(read-list-enter-read-info
(lyskom-create-read-info
'REVIEW nil (lyskom-get-current-priority)
(lyskom-create-text-list (cdr text-nos))
lyskom-current-text)
lyskom-reading-list t))
(lyskom-view-text 'main (car text-nos)))
(lyskom-format-insert 'no-such-text)))
(lyskom-run 'main 'lyskom-end-of-command))
(defun nfirst (n list)
"Return a list of the N first elements of LIST."
(if (or (<= n 0) (not list))
nil
(cons (car list) (nfirst (1- n) (cdr list)))))
\ No newline at end of file
......@@ -467,6 +467,7 @@ M{rk kuvertet LysKOM buggrapport.\n\n")
(review-text-no . "terse text nummer %#1d")
(review-one-comment . "terse en kommentar till inlgg %#1d.\n")
(review-many-comments . "terse %#2d kommentarer till inlgg %#1d.\n")
(read-normally-read . "Hur m}nga vill du se igen?")
; From edit-text.el:
(press-C-c-C-c . "Tryck C-c C-c fr att skicka in texten.")
......@@ -672,6 +673,8 @@ Felmeddelande: %#1s**************************************************")
(kom-review-comments "terse alla kommentarer")
(kom-review-tree "terse alla kommentarer rekursivt")
(kom-review-clear "terse hoppa")
(kom-review-last-normally-read
"terse igen")
(kom-review-next "terse nsta")
(kom-find-root "terse urinlgget")
(kom-review-by-to "terse senaste")
......@@ -823,6 +826,7 @@ Cf. paragraph-start.")
(define-key lyskom-mode-map "}ak" 'kom-review-comments)
(define-key lyskom-mode-map "}ar" 'kom-review-tree)
(define-key lyskom-mode-map "}h" 'kom-review-clear)
(define-key lyskom-mode-map "}i" 'kom-review-last-normally-read)
(define-key lyskom-mode-map "}n" 'kom-review-next)
(define-key lyskom-mode-map "}r" 'kom-find-root)
(define-key lyskom-mode-map "}s" 'kom-review-by-to)
......
......@@ -414,6 +414,9 @@ message \"new text\" is received.")
(defvar lyskom-previous-text nil
"Text-no of previous text. Nil means no text.")
(defvar lyskom-normally-read-texts nil
"Stack of texts that are read normally. Used for kom-review-last-normally-read.")
(defvar lyskom-current-subject ""
"Current subject.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment