Commit 4381bf76 authored by David Byers's avatar David Byers
Browse files

Diverse kvarglömda saker

Förhoppningsvis går det att komplera koden i alla fall...
parent b2c5b5ac
1998-12-14 David Byers <davby@ida.liu.se>
* lyskom-rest.el (lyskom-beep): Hng inte om kom-audio-player
pekar ut ett program som inte finns.
Mon Sep 14 19:54:03 1998 David Kagedal <davidk@lysator.liu.se>
* prioritize.el (kom-prioritize): Gr
(lyskom-wait-for-membership).
1998-08-16 David Byers <davby@ida.liu.se>
* edit-text.el (kom-edit-send lyskom-edit-send
lyskom-create-text-handler): Markera inte den nya texten som lst
om man skickar in den anonymt.
1998-08-13 David Byers <davby@ida.liu.se>
* language.el (lyskom-tell-string): Flyttade hit frn lyskom-rest.el
* lyskom-rest.el (lyskom-format-prompt): Hantera %A och %a
* vars.el.in: Ny variabel kom-anonymous-prompt-format,
kom-anonymous-prompt-format-executing
* edit-text.el (kom-edit-send): Skicka kanske in texten
anonymt om lyskom-is-anonymous r satt
* vars.el.in: Lade till lyskom-is-anonymous
* cache.el (lyskom-tell-server): Testa lyskom-is-anonymous
* swedish-strings.el (kom-tell-phrases): Lade till
kom-tell-is-anonymous
Thu Jul 23 15:03:10 1998 Peter Liljenberg <petli@lysator.liu.se>
* commands1.el (lyskom-who-is-on-check-membership-9):
......
......@@ -12,12 +12,22 @@ Att g
Hur och var skall man egentligen spara inställningar? .emacs är
kanske inte det bästa alternativet.
Testa lyskom-is-anonymous!
* BUGGAR
** OSORTERADE
Om man återser senaste av sig själv så kan man råka få se sin
user-area.
LysKOM fungerar inte i XEmacs i tty-mode. No such face:
kom-active-face. Antingen är det fixat eller så är det inte fel i
20.2. Jag har noterat liknande problem i 19.30 i Sun-consolen.
FIX BY: 0.46
Om förbindelsen bryts så får man args out of range ibland.
FIX BY: 0.46
......
......@@ -489,6 +489,8 @@ CACHE is the name of the variable that points to the cache."
(defun lyskom-tell-server (string)
"Tell the server what the user is doing. Args: STRING."
(when lyskom-is-anonymous
(setq string (lyskom-tell-string 'kom-tell-is-being-anonymous)))
(save-excursion
(when lyskom-buffer
(set-buffer lyskom-buffer))
......
......@@ -470,9 +470,12 @@ so it's not as clean as it ought to be."
(defun kom-edit-send ()
"Send the text to the server."
(interactive)
(lyskom-edit-send 'initiate-create-text))
(if (and (lyskom-default-value 'lyskom-is-anonymous)
(lyskom-j-or-n-p 'do-send-anonymous t))
(lyskom-edit-send 'initiate-create-anonymous-text t)
(lyskom-edit-send 'initiate-create-text nil)))
(defun lyskom-edit-send (send-function)
(defun lyskom-edit-send (send-function &optional never-mark-as-read)
"Send the text to the server by calling SEND-FUNCTION."
(condition-case err
(if (or (not lyskom-edit-text-sent) ;++MINOR checked mode-name against lyskom-edit-mode-name
......@@ -549,7 +552,8 @@ so it's not as clean as it ought to be."
(set-buffer lyskom-buffer)
;; Don't change the prompt if we won't see our own text
(if kom-created-texts-are-read
(if (and kom-created-texts-are-read
(not never-mark-as-read))
(setq lyskom-dont-change-prompt t))
(setq lyskom-is-writing nil)
(lyskom-tell-internat 'kom-tell-send)
......@@ -559,7 +563,8 @@ so it's not as clean as it ought to be."
full-message
misc-list
aux-list
buffer))))
buffer
never-mark-as-read))))
(lyskom-undisplay-buffer)
(goto-char (point-max))))
;;
......@@ -1443,7 +1448,8 @@ Point must be located on the line where the subject is."
nil (point-max)))))
(defun lyskom-create-text-handler (text-no edit-buffer)
(defun lyskom-create-text-handler (text-no edit-buffer
&optional never-mark-as-read)
"Handle an attempt to write a text."
(lyskom-tell-internat 'kom-tell-silence)
(message "")
......@@ -1466,7 +1472,8 @@ Point must be located on the line where the subject is."
;; Immediately mark the text as read if kom-created-texts-are-read is set.
(cond
(kom-created-texts-are-read
((and kom-created-texts-are-read
never-mark-as-read)
(lyskom-is-read text-no)
(initiate-get-text-stat 'background 'lyskom-mark-as-read
text-no)
......
......@@ -438,7 +438,7 @@ is sent with each packet. If STRING is longer it is splitted."
process
(progn
(if lyskom-debug-communications-to-buffer
(lyskom-debug-insert process "-> " string))
(lyskom-debug-insert process ">>>>>> " string))
string)))
(t
(let ((i 0))
......@@ -457,8 +457,7 @@ is sent with each packet. If STRING is longer it is splitted."
(goto-char (point-max))
(insert "\n"
(format "%s" process)
"-> "
string))
(concat ">>>>>> " string)))
(set-buffer (process-buffer process))))
string))
(setq i (+ i lyskom-max-packet-size)))))))
......
......@@ -164,6 +164,11 @@ create. ALIST is a mapping from symbols to strings."
(put 'lyskom-language-strings 'lisp-indent-function 2)
(defsubst lyskom-tell-string (key)
"Retrieve the phrase indexed by the key from the kom-tell-phrases
assoc list."
(lyskom-get-string key 'kom-tell-phrases))
(defsubst lyskom-get-string-internal (symbol category)
(cdr (assq lyskom-language (get symbol category))))
......
......@@ -899,6 +899,7 @@ MANAGER is the URL manager that started Netscape.
This function attempts to load the URL in a running Netscape, but failing
that, starts a new one."
(setq url (replace-in-string url "," "%2C"))
(let* ((url-string (if (eq window-system 'win32)
(list url)
(list "-remote"
......
......@@ -144,12 +144,6 @@
;;; ----------------------------------------------------------------
;;; Author: Aronsson
(defsubst lyskom-tell-string (key)
"Retrieve the phrase indexed by the key from the kom-tell-phrases
assoc list."
(lyskom-get-string key 'kom-tell-phrases))
(defun lyskom-tell-internat (key)
"Same as lyskom-tell-server, but use a key to a list of phrases."
;; The server at Lysator produces a lot of network traffic. The
......@@ -1492,6 +1486,7 @@ in lyskom-messages."
(defun lyskom-w3-region (start end)
(w3-region start end)
(w3-finish-drawing)
(add-text-properties start (min (point-max) end) '(end-closed nil)))
(defun lyskom-format-html (text)
......@@ -1940,10 +1935,9 @@ A symbol other than t means call it as a function."
(sit-for kom-ding-pause-amount)
(setq arg (1- arg))))
((stringp arg)
(start-process "audio"
nil
kom-audio-player
arg))
(condition-case nil
(start-process "audio" nil kom-audio-player arg)
(error nil)))
((and (symbolp arg)
(fboundp arg))
(condition-case nil
......@@ -2150,6 +2144,10 @@ Set lyskom-current-prompt accordingly. Tell server what I am doing."
(if executing
kom-enabled-prompt-format-executing
kom-enabled-prompt-format))
(lyskom-is-anonymous
(if executing
kom-anonymous-prompt-format-executing
kom-anonymous-prompt-format))
(t (if executing
kom-user-prompt-format-executing
kom-user-prompt-format)))
......@@ -2212,6 +2210,12 @@ Set lyskom-current-prompt accordingly. Tell server what I am doing."
((eq format-letter ?#) (number-to-string
lyskom-session-no))
((eq format-letter ?a)
(lyskom-get-string 'anonymous))
((eq format-letter ?A)
(lyskom-get-string 'Anonymous))
((eq format-letter ?m)
(cond ((< messages 1)
"")
......
......@@ -1088,6 +1088,10 @@ Uppkopplad sedan %#8s%#9s")
(need-library . "Paketet \"%#1s\" behvs fr att utfra detta kommando.\n")
(calc-expression . "Uttryck: ")
(do-send-anonymous . "Skicka in texten anonymt? ")
(anonymous . "anonym")
(Anonymous . "Anonym")
;; From aux-items.el
(content-type-aux . "Innehllstyp: %#1s")
......@@ -2734,7 +2738,8 @@ i servern. Annars sparas det i din .emacs.")
(kom-tell-review . "terser.")
(kom-tell-change-name . "ndrar sitt namn till ngot annat.")
(kom-tell-change-supervisor . "ndrar organisatr fr ngot.")
(kom-tell-next-lyskom . "Hoppar till ett annat LysKOM.")))
(kom-tell-next-lyskom . "Hoppar till ett annat LysKOM.")
(kom-tell-is-anonymous . "r hemlighetsfull")))
(if (and (boundp 'kom-tell-phrases)
kom-tell-phrases)
......
......@@ -171,6 +171,14 @@ for more information."
enabled mode."
server)
(def-kom-var kom-anonymous-prompt-format "%[%c% %m%] (%a) - "
"*Format of the LysKOM prompt when running anonymously."
server)
(def-kom-var kom-anonymous-prompt-format-executing "%[%c% %m%] (%a)."
"*Format of the LysKOM prompt when executing a command anonymously."
server)
(def-kom-var kom-cite-string ">"
"*String to insert before each line of a commented text."
......@@ -571,9 +579,9 @@ A number means wrap articles shorter than the number (in bytes)."
;; JySKom enhancements
("<(?m[|ö]te *\\([0-9]+\\)[^0-9]*)?>" conf 0 1 nil)
("<(?text *\\([0-9]+\\)[^0-9]*)?>" text 0 1 nil)
("<(?person *\\([0-9]+\\)[^0-9]*)?>" pers 0 1 nil)
("<(?m[|ö]te *\\([0-9]+\\)[^0-9>]*)?>" conf 0 1 nil)
("<(?text *\\([0-9]+\\)[^0-9>]*)?>" text 0 1 nil)
("<(?person *\\([0-9]+\\)[^0-9>]*)?>" pers 0 1 nil)
;; Info node reference
......@@ -1695,7 +1703,13 @@ kom-go-to-next-conf might go to the same conference again.)")
The name is stored in lyskom-debug-communications-to-buffer-buffer.")
(def-kom-var lyskom-debug-what-i-am-doing t
"Non-nil means asynchronous message 5 will be logged to the debug buffer. ")
"Non-nil means asynchronous message 5 will be logged to the debug
buffer. ")
(def-kom-var lyskom-is-anonymous nil
"Non-nil means be a bit secretive about things. Not totally
secretive of course, since the server doesn't allow that yet."
local)
(def-kom-var lyskom-debug-communications-to-buffer-buffer "*kom*-debugs"
"Name of the buffer to insert the communications with the server into if
......
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