Commit 981a4664 authored by Linus Tolke Y's avatar Linus Tolke Y

Ny funktion, lista per regexpar.

Ny text-gruppmeddelande.
Ladda fil upp/ner borttaget.
parent 27d7f53f
......@@ -503,6 +503,8 @@ M\344rk kuvertet \"LysKOM buggrapport f\366r elispklienten\".\n\n")
(throwing-out . "Kastar nu ut session %#1d... ")
(postpone-prompt . "Hur lite vill du l\344sa nu? ")
(matching-regexp . "Mten/personer som matchar '%#1s'\n")
; From review.el:
(latest-n . "senaste %#1d")
(first-n . "f\366rsta %#1d")
......@@ -603,6 +605,13 @@ Personligt meddelande fr\345n %#1s (%#3s):
%#2s
----------------------------------------------------------------
")
(message-from-to .
"++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Gruppmeddelande till %#3s fr\345n %#2s (%#4s):
%#1s
----------------------------------------------------------------
")
(text-is-created . "Text %#1d \344r skapad!")
......@@ -729,6 +738,7 @@ Felmeddelande: %#1s**************************************************")
(kom-list-conferences "Lista m\366ten")
(kom-list-persons "Lista personer")
(kom-list-news "Lista nyheter")
(kom-list-re "Lista (med) regexpar")
(kom-membership "Lista medlemsskap")
(kom-postpone "Uppskjuta l\344sning")
(kom-prioritize "Prioritera m\366ten")
......@@ -798,9 +808,6 @@ Felmeddelande: %#1s**************************************************")
(kom-set-motd "S\344tt loginmeddelande")
(kom-remove-motd "Ta bort loginmeddelande")
(kom-force-logout "Kasta ut en session")
(kom-list-files "Lista filarean")
(kom-put-file "Ladda upp fil")
(kom-get-file "Ladda ner fil")
)
"A list of LysKOM-commands that the extended parser understands.")
......@@ -886,6 +893,7 @@ Cf. paragraph-start.")
(define-key lyskom-mode-map "lN" 'kom-list-news-old)
(define-key lyskom-mode-map "lp" 'kom-list-persons)
(define-key lyskom-mode-map "ls" 'kom-membership)
(define-key lyskom-mode-map "lr" 'kom-list-re)
(define-key lyskom-mode-map "l{" 'kom-list-summary)
(define-key lyskom-mode-map "l[" 'kom-list-summary)
(define-key lyskom-mode-map "l\344" 'kom-list-summary) ; 8-bit emacs
......@@ -1163,17 +1171,3 @@ Users are encouraged to use their best sense of humor.")
(lyskom-run 'main 'lyskom-end-of-command)))
;; Vars}god sojge, en massa j{ttebra funktioner.
(defun kom-put-file (filename)
(interactive "fVilken fil vill du ladda upp? ")
(copy-file filename (concat "/ftp@ftp.lysator.liu.se:/open/"
(file-name-nondirectory filename))))
(defun kom-get-file (filename)
(interactive "sVilken fil vill du ladda ner? ")
(copy-file (concat "/ftp@ftp.lysator.liu.se:/open/" filename) filename))
(defun kom-list-files ()
(interactive)
(list-directory "/ftp@ftp.lysator.liu.se:/open"))
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