Difrex/idec.el
Difrex/idec.el
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Some vars and empty functions

Browse Source
This commit is contained in:
Denis Zheleztsov 2017-09-28 11:53:39 +03:00
parent bbf7a190dc
commit 0bcf2f7b33
1 changed files with 43 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
idec.el
View File

@ -3,7 +3,7 @@
;; Copyright (c) 2017 Denis Zheleztsov ;; Copyright (c) 2017 Denis Zheleztsov
;; Author: Denis Zheleztsov <difrex.punk@gmail.com> ;; Author: Denis Zheleztsov <difrex.punk@gmail.com>
;; Keywords: lisp,network client,IDEC ;; Keywords: lisp,network,IDEC
;; Version: 0.1 ;; Version: 0.1
;; This program is free software; you can redistribute it and/or modify ;; This program is free software; you can redistribute it and/or modify
@ -22,13 +22,55 @@
;;; Commentary: ;;; Commentary:
;; In active developent full featured IDEC client. ;; In active developent full featured IDEC client.
;; Fetched node must be support modern IDEC extensions like /list.txt, /x/c, etc.
;;; Code: ;;; Code:
(defvar idec-nodes-list
'("http://idec.spline-online.tk/"
"https://ii-net.tk/ii/ii-point.php?q=/")
"List of IDEC nodes.")
;; Never used at this time.
(defvar idec-use-list-txt t
"Use /list.txt extension.")
(defvar idec-download-limit 50
"Limit of download messages.")
(defvar idec-download-offset -50
"Offset of download messages.")
(defvar idec-subscriptions '()
"List of subribes echoes.")
;; FUNCTIONS
;; ;;;;;;;;;
(defun idec-load-new-messages () (defun idec-load-new-messages ()
"Load new messages from IDEC node." "Load new messages from IDEC node."
) )
;; ECHOES FUNCTIONS
;; ;;;;;;;;;;;;;;;;
(defun fetch-echo-list (url)
"Fetch echoes list from remote URL."
(message url))
(defun idec-load-echoes ()
"Load echoes list from node."
(dolist (node idec-nodes-list)
(setq download-url (concat node "list.txt"))
(fetch-echo-list download-url)
))
;; END OF ECHOES FUNCTIONS
;; ;;;;;;;;;;;;;;;;;;;;;;;
;; END OF FUNCTIONS
;; ;;;;;;;;;;;;;;;;
(provide 'idec-load-echoes)
(provide 'idec) (provide 'idec)
;;; idec.el ends here ;;; idec.el ends here