Some changes

This commit is contained in:
Denis Zheleztsov 2018-06-29 09:44:31 +03:00
parent b3e534448d
commit df722b5b6f
4 changed files with 15 additions and 12 deletions

View File

@ -209,7 +209,7 @@
'action (lambda (x) (send-reply-message (button-get x 'msg)))
'msg answer-hash)
(goto-char p)
(org-idec)))
(idec)))
;; END OF ANSWERS

View File

@ -1,10 +1,11 @@
;;; idec-db.el --- This file is a part of GNU Emacs client for IDEC network
;;; idec-db.el --- This file is a part of client for IDEC network
;; Copyright (c) 2017 Denis Zheleztsov
;; Author: Denis Zheleztsov <difrex.punk@gmail.com>
;; Keywords: lisp,network,IDEC
;; Version: 0.1
;; Homepage: https://github.com/idec-net/idec.el
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

View File

@ -35,8 +35,9 @@
;; Not used
(defcustom idec-nodes-list
"http://idec.spline-online.tk/,https://ii-net.tk/ii/ii-point.php?q=/"
"List(comma separated) of IDEC nodes."
"http://idec.spline-online.tk/,https://ii-net.tk/ii/ii-point.php?q=/;
List(comma separated) of IDEC nodes;
Currently not used."
:type 'string
:group 'idec)
@ -48,10 +49,11 @@
;; Never used at this time.
(defcustom idec-use-list-txt t
"Use /list.txt extension."
:type 'boolean
:group 'idec)
(defcustom idec-smart-fetch t
"Enable smat fetching;
"Enable smart fetching;
Download only new messages; Not implemented."
:type 'boolean
:group 'idec)
@ -73,7 +75,7 @@ Not used if `idec-smart-fetching' is not nil."
:type 'string
:group 'idec)
(defcustom idec-mail-dir "~/.emacs.d/idec-mail"
(defcustom idec-mail-dir (concat user-emacs-directory "/idec-mail")
"Directory to store mail."
:type 'string
:group 'idec)
@ -146,10 +148,10 @@ Default to `idec-download-offset'"
(defvar idec-mode-map
(let ((map (make-sparse-keymap)))
(define-key map ["C-c C-c"] 'kill-this-buffer)
(define-key map ["C-c C-n"] 'idec-next-message)
(define-key map ["C-c C-b"] 'idec-previous-message)
(define-key map ["C-c C-e"] 'idec-new-message)
(define-key map "\C-c \C-c" 'kill-this-buffer)
(define-key map "\C-c \C-n" 'idec-next-message)
(define-key map "\C-c \C-b" 'idec-previous-message)
(define-key map "\C-c \C-e" 'idec-new-message)
map)
"Keymapping for IDEC mode.")
@ -182,7 +184,7 @@ Default to `idec-download-offset'"
"Subject" "From" "To" "Echo" "At")
'(("=" . 'font-lock-operator)
(";" . 'font-lock-builtin))
'("\\.idec$")
'("\\.*idec\\.*|\\.*Idec\\.*|\\.*IDEC\\.*$")
nil)
(define-derived-mode org-idec text-mode "IDEC"

View File

@ -114,7 +114,7 @@ put cursor to CHECKPOINT."
(insert-button "Quote answer")
(princ "]")
(add-text-properties (point-min) (point-max) 'read-only))
(idec-mode))
(idec))
(defun display-message (msg)
"Display message MSG in new buffer in idec-mode."