Commit 40319b00 authored by David Byers's avatar David Byers
Browse files

Införde kommandot Var är jag

parent 5f50b08f
Mon Jul 8 10:37:48 1996 David Byers <davby@sen2.ida.liu.se>
* startup.el (lyskom-clear-vars): Gjorde fler variabler
buffertlokala.
* lyskom-rest.el (lyskom-modify-prompt): Anvnd kom-prompt-format.
* commands2.el (kom-who-am-i): Lade till kom-who-am-i
* vars.el.in (lyskom-login-hook): Defvarade denna.
(kom-login-hook): Uppdaterade dokumentationen.
......
......@@ -748,6 +748,42 @@ Format is 23:29 if the text is written today. Otherwise 04-01."
;;; ============================================================
;;; kom-who-am-i - Vem r jag
;;;
;;; Author: David Byers
(def-kom-command kom-who-am-i ()
"Show my name"
(interactive)
(if (and lyskom-current-conf
(not (zerop lyskom-current-conf)))
(lyskom-format-insert 'who-i-am-present
lyskom-pers-no
lyskom-current-conf)
(lyskom-format-insert 'who-i-am-not-present lyskom-pers-no))
(lyskom-format-insert
'who-i-am-server
lyskom-server-name
(if (zerop (% (server-info->version lyskom-server-info) 100))
(format "%d.%d"
(/ (server-info->version lyskom-server-info) 10000)
(/ (% (server-info->version lyskom-server-info) 10000)
100))
(format "%d.%d.%d"
(/ (server-info->version lyskom-server-info) 10000)
(/ (% (server-info->version lyskom-server-info) 10000)
100)
(% (server-info->version lyskom-server-info) 100))))
(lyskom-format-insert 'who-i-am-client
lyskom-clientversion)
(lyskom-format-insert 'who-i-am-emacs
(emacs-version)))
;;; ================================================================
;;; kom-display-who-buffer - Visa vilka-listan
......
......@@ -896,6 +896,12 @@ Text:
(pers-popup-title . "User %#1s")
(url-popup-title . "URL %#1s")
(generic-popup-title . "%#1s")
(who-i-am-not-present . "%#1P (not in any conference)\n")
(who-i-am-present . "%#1P is present in %#2M\n")
(who-i-am-client . "The programs is lyskom.el, version %#1s.\n")
(who-i-am-server . "This is %#1s, version %#2s.\n")
(who-i-am-emacs . "Running under %#1s.\n")
)
"Assoc list containing pairs of atoms and strings")
......@@ -954,7 +960,8 @@ Text:
(kom-review-presentation "Review presentation")
(kom-review-backward "(Review) Backwards")
(kom-view-next-text "(Read) next article")
(kom-who-is-on "Who (is on)")
(kom-who-is-on "Who is on")
(kom-who-am-i "Where (am) i")
; (kom-display-who-buffer "Display who (list)")
(kom-list-clients "List clients")
(kom-busy-wait "Wait (for news)")
......@@ -1140,6 +1147,7 @@ Cf. paragraph-start.")
(define-key lyskom-mode-map "fc" 'kom-filter-text)
(define-key lyskom-mode-map "w" 'kom-who-is-on)
(define-key lyskom-mode-map "I" 'kom-who-am-i)
(define-key lyskom-mode-map "W" 'kom-busy-wait)
(define-key lyskom-mode-map "Ap" 'kom-change-presentation)
(define-key lyskom-mode-map "Af" 'kom-filter-edit)
......
No preview for this file type
......@@ -506,6 +506,9 @@ to see, set of call."
(server-name lyskom-server-name)
)
(kill-all-local-variables)
(make-local-variable 'kom-ansaphone-show-messages)
(make-local-variable 'kom-ansaphone-record-messages)
(make-local-variable 'kom-prompt-format)
(make-local-variable 'kom-ansaphone-on)
(make-local-variable 'kom-ansaphone-default-reply)
(make-local-variable 'kom-remote-control)
......
......@@ -920,6 +920,12 @@ Text:
(pers-popup-title . "Person %#1s")
(url-popup-title . "URL %#1s")
(generic-popup-title . "%#1s")
(who-i-am-not-present . "%#1P \344 inte n\344rvarande i n\345got m\366te\n")
(who-i-am-present . "%#1P r nrvarande i %#2M\n")
(who-i-am-client . "Programmet heter lyskom.el, version %#1s.\n")
(who-i-am-server . "Detta r %#1s, version %#2s.\n")
(who-i-am-emacs . "Det k\366rs under %#1s.\n")
)
"Assoc list containing pairs of atoms and strings")
......@@ -980,6 +986,7 @@ Text:
(kom-review-backward "(\305terse) Bakl\344nges")
(kom-view-next-text "L\344sa n\344sta inl\344gg")
(kom-who-is-on "Vilka \344r inloggade")
(kom-who-am-i "Var (\344r) jag")
; (kom-display-who-buffer "Visa vilkalistan")
(kom-list-clients "Lista klienter")
(kom-busy-wait "V\344nta p\345 ett inl\344gg")
......@@ -1201,6 +1208,7 @@ Cf. paragraph-start.")
(define-key lyskom-mode-map "ff" 'kom-filter-author)
(define-key lyskom-mode-map "fi" 'kom-filter-text)
(define-key lyskom-mode-map "v" 'kom-who-is-on)
(define-key lyskom-mode-map "J" 'kom-who-am-i)
(define-key lyskom-mode-map "V" 'kom-busy-wait)
(define-key lyskom-mode-map "{p" 'kom-change-presentation)
(define-key lyskom-mode-map "{f" 'kom-filter-edit)
......
......@@ -65,6 +65,13 @@ uses the same window.
This variable is stored in the LysKOM server.")
(defvar kom-prompt-format "%s"
"*Basic format for LysKOM prompts. Needs to be a valid format
string. The only format specifier should be a single \"%s\", which
will be replaced by the real prompt.
This variable is stored in the LysKOM server")
(defvar kom-cite-string ">"
"*String to insert before each line of a commented text.
......@@ -578,6 +585,7 @@ This variable is not saved in the LysKOM server.")
kom-ding-on-wait-done
kom-show-personal-messages-in-buffer
kom-pop-personal-messages
kom-prompt-format
kom-do-when-done
kom-higher-priority-breaks
kom-login-hook
......
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