Commit 2b11e4b8 authored by Linus Tolke Y's avatar Linus Tolke Y
Browse files

A text suggesting to write a presentation is written on login.

View last text unconverted.
parent 0e22565e
......@@ -50,9 +50,9 @@
(if lyskom-edit-mode-map
nil
(setq lyskom-edit-mode-map (make-sparse-keymap))
(fset 'lyskom-edit-prefix (make-keymap))
(fset 'lyskom-edit-review-prefix (make-keymap))
(fset 'lyskom-edit-insert-prefix (make-keymap))
(define-prefix-command 'lyskom-edit-prefix)
(define-prefix-command 'lyskom-edit-review-prefix)
(define-prefix-command 'lyskom-edit-insert-prefix)
(define-key lyskom-edit-mode-map "\C-c" 'lyskom-edit-prefix)
(define-key lyskom-edit-mode-map "\C-c?" 'lyskom-help)
(define-key lyskom-edit-mode-map "\C-c}" 'lyskom-edit-review-prefix)
......@@ -75,7 +75,7 @@
(define-key lyskom-edit-mode-map "\C-ci8" 'kom-edit-insert-digit-text)
(define-key lyskom-edit-mode-map "\C-ci9" 'kom-edit-insert-digit-text)
(define-key lyskom-edit-mode-map "\C-ci " 'kom-edit-insert-text)
(fset 'lyskom-edit-add-prefix (make-keymap))
(define-prefix-command 'lyskom-edit-add-prefix)
(define-key lyskom-edit-mode-map "\C-ca" 'lyskom-edit-add-prefix)
(define-key lyskom-edit-mode-map "\C-cam" 'kom-edit-add-recipient)
(define-key lyskom-edit-mode-map "\C-cak" 'kom-edit-add-copy)
......@@ -112,6 +112,9 @@ Annat se \\[describe-mode] ---")
(wrong-password . "Fel lsen.\n")
(are-logged-in . "Du r nu inloggad. Vnta ett tag.\n")
(you-have-motd . "\nDu har en lapp p drren:\n\n")
(presentation-encouragement .
"Du har ingen presentation. Det skulle vara trevligt om du skrev en.
Anvnd kommandot p. Om du inte vill skriva ngon presentation tryck fs.\n")
(first-greeting . "%#1s
Det tycks vara frsta gngen du anvnder LysKOM. Vlkommen!
......@@ -702,6 +705,7 @@ Felmeddelande: %#1s**************************************************")
(kom-review-clear "terse hoppa")
(kom-review-last-normally-read
"terse igen")
(kom-review-noconversion "terse omodifierat")
(kom-review-next "terse nsta")
(kom-find-root "terse urinlgget")
(kom-review-by-to "terse senaste")
......@@ -765,12 +769,12 @@ Cf. paragraph-start.")
nil
(setq lyskom-mode-map (make-keymap))
(suppress-keymap lyskom-mode-map)
(fset 'lyskom-review-prefix (make-keymap))
(fset 'lyskom-change-prefix (make-keymap))
(fset 'lyskom-next-prefix (make-keymap))
(fset 'lyskom-list-prefix (make-keymap))
(fset 'lyskom-get-prefix (make-keymap))
(fset 'lyskom-S-prefix (make-keymap))
(define-prefix-command 'lyskom-review-prefix)
(define-prefix-command 'lyskom-change-prefix)
(define-prefix-command 'lyskom-next-prefix)
(define-prefix-command 'lyskom-list-prefix)
(define-prefix-command 'lyskom-get-prefix)
(define-prefix-command 'lyskom-S-prefix)
(define-key lyskom-mode-map "{" 'lyskom-change-prefix)
(define-key lyskom-mode-map "[" 'lyskom-change-prefix)
(define-key lyskom-mode-map "\344" 'lyskom-change-prefix) ; 8-bit emacs.
......@@ -1052,4 +1056,30 @@ Users are encouraged to use their best sense of humor.")
(interactive)
(lyskom-start-of-command 'kom-quick-mode)
(use-local-map lyskom-mode-map)
(lyskom-end-of-command))
\ No newline at end of file
(lyskom-end-of-command))
;; Review a non-converted text
;; Author: Linus Tolke
(defun kom-review-noconversion (&optional text-no)
"Displays the last read text without any conversion."
(interactive (list
(cond
((null current-prefix-arg)
lyskom-current-text)
((integerp current-prefix-arg)
current-prefix-arg)
((and (listp current-prefix-arg)
(integerp (car current-prefix-arg))
(null (cdr current-prefix-arg)))
(car current-prefix-arg))
(t
(signal 'lyskom-internal-error '(kom-review-noconversion))))))
(lyskom-start-of-command 'kom-review-noconversion)
(let ((knows-iso-8859-1 kom-emacs-knows-iso-8859-1))
(setq kom-emacs-knows-iso-8859-1 t)
(lyskom-view-text 'main text-no)
(lyskom-run 'main 'set 'kom-emacs-knows-iso-8859-1 knows-iso-8859-1)
(lyskom-run 'main 'lyskom-end-of-command)))
\ No newline at end of file
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