Commit 57c681fe authored by Johan Sundström's avatar Johan Sundström
Browse files

Added rax/åax. I blame Arcangelo.

parent 9dd650f1
2004-04-11 Johan Sundstrm <jhs@lysator.liu.se>
* review.el (kom-review-cross-references): New command. Reviews
all [aux info] cross refeferenced texts.
* review.el (lyskom-cross-referenced-text,
lyskom-review-cross-references): New support functions.
* english-strings.el (lyskom-en-mode-map): Bind it to "r a x".
* swedish-strings.el (lyskom-sv-mode-map): Bind it to " a x".
* english-strings.el, swedish-strings.el (local): added
review-xrefs-q.
2004-02-29 David Byers <byers@lysator.liu.se>
* lyskom-rest.el (lyskom-format-plaintext-fonts-body): Updated
......
......@@ -1714,6 +1714,7 @@ You must become an active member of the conference to enter it.\n")
(find-root-q . "Review original text for text?")
(find-root-review-q . "Review tree of which text?")
(review-comments-q . "Review all comments to which text?")
(review-xrefs-q . "Review all cross references from which text?")
(unread-tree-q . "Unread all comments recursively for which text?")
(unread-root-q . "Unread original text for text?")
(unread-root-review-q . "Unread tree of which text?")
......@@ -2709,6 +2710,7 @@ Change privileges for %#1P (%#1p)...")
(define-key lyskom-en-review-prefix (kbd "a ?") 'lyskom-help)
(define-key lyskom-en-review-prefix (kbd "a c") 'kom-review-comments)
(define-key lyskom-en-review-prefix (kbd "a r") 'kom-review-tree)
(define-key lyskom-en-review-prefix (kbd "a x") 'kom-review-cross-references)
(define-key lyskom-en-review-prefix (kbd "j") 'kom-review-clear)
(define-key lyskom-en-review-prefix (kbd "n") 'kom-review-next)
(define-key lyskom-en-review-prefix (kbd "u") 'kom-review-noconversion)
......
......@@ -1576,6 +1576,60 @@ all review-related functions."
(lyskom-insert-string 'no-such-text))))
(def-kom-command kom-review-cross-references (text-no)
"Review all cross-referenced texts from the selected text `text-no'.
This command accepts text number prefix arguments \(see
`lyskom-read-text-no-prefix-arg').
See `kom-review-uses-cache', `kom-review-priority' and
`kom-review-marks-texts-as-read' for information on settings that affect
all review-related functions."
(interactive (list (lyskom-read-text-no-prefix-arg 'review-xrefs-q)))
(lyskom-tell-internat 'kom-tell-review)
(cond (text-no
(unless kom-review-uses-cache
(cache-del-text-stat text-no))
(lyskom-review-cross-references
(blocking-do 'get-text-stat text-no)))
(t (lyskom-insert-string 'read-text-first))))
(defun lyskom-cross-referenced-text (aux-item-xref)
(and (string-match "^T\\([0-9]+\\)" (aux-item->data aux-item-xref))
(string-to-int (match-string 1 (aux-item->data aux-item-xref)))))
(defun lyskom-review-cross-references (text-stat)
"Handles the return from the initiate-get-text-stat,
displays and builds list."
(let* ((all-xrefs (lyskom-get-aux-item (text-stat->aux-items text-stat) 3))
(only-txts (mapcar 'lyskom-cross-referenced-text all-xrefs))
(to-review '()))
;; Only try to review texts that we can read.
(while only-txts
(when (car only-txts)
(unless kom-review-uses-cache
(cache-del-text-stat (car only-txts)))
(when (blocking-do 'get-text-stat (car only-txts))
(setq to-review (cons (car only-txts) to-review))))
(setq only-txts (cdr only-txts)))
(setq to-review (nreverse to-review))
(if to-review
(progn
(lyskom-format-insert 'review-text-no (car to-review))
(when (cdr to-review)
(lyskom-review-enter-read-info
(lyskom-create-read-info
'REVIEW nil (lyskom-review-get-priority)
(lyskom-create-text-list (cdr to-review))
lyskom-current-text) t))
;; Don't check the no-cache thing here since we already
;; did earlier. We may end up slightly out of sync with
;; the server, but not so anyone will really notice.
(lyskom-view-text (car to-review)))
(lyskom-insert-string 'no-such-text))))
......
......@@ -1751,6 +1751,7 @@ Du m
(find-root-review-q . "terse trd fr vilket inlgg?")
(unread-comments-q . "Olsmarkera alla kommentarer till vilket inlgg?")
(review-comments-q . "terse alla kommentarer till vilket inlgg?")
(review-xrefs-q . "terse alla korsreferenser frn vilket inlgg?")
(confusion-who-to-reply-to . "Jag frstr inte vems inlgg du vill skriva ett privat svar till.\n")
(confusion-what-to-answer-to . "Jag frstr inte vilken text du vill besvara.\n")
......@@ -2804,6 +2805,7 @@ Nuvarande r
(define-key lyskom-sv-review-prefix (kbd "a ?") 'lyskom-help)
(define-key lyskom-sv-review-prefix (kbd "a k") 'kom-review-comments)
(define-key lyskom-sv-review-prefix (kbd "a r") 'kom-review-tree)
(define-key lyskom-sv-review-prefix (kbd "a x") 'kom-review-cross-references)
(define-key lyskom-sv-review-prefix (kbd "h") 'kom-review-clear)
(define-key lyskom-sv-review-prefix (kbd "i") 'kom-review-last-normally-read)
(define-key lyskom-sv-review-prefix (kbd "n") 'kom-review-next)
......
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