Lines Matching +defs:list +defs:url
39 ;; that asynchronously retrieves headlines from a list of news sites,
91 ;; (add-to-list 'load-path "/path/to/newsticker/")
109 ;; browse-url to load the corresponding news story in your favourite web
134 ;; o newsticker-url-list defines the list of headlines which are
157 ;; Please have a look at the customization buffers for the complete list of
175 ;; * Renamed `newsticker--retrieval-timer-list' to
176 ;; `newsticker-retrieval-timer-list'. Removed
177 ;; `newsticker-running-p' -- check newsticker-retrieval-timer-list
189 ;; `newsticker-auto-mark-filter-list', which allows for looking not
234 ;; * Added command `newsticker-handle-url' for interactively launching
270 ;; * Added `newsticker-add-url'.
274 ;; * Always sort obsolete items to end of item list.
330 ;; * Added `newsticker-url-list-defaults', splitting the URLs into
331 ;; a customizable selection list, and a user add-on list.
335 ;; * Keep order of feeds as given in `newsticker-url-list' in
409 (defvar newsticker--retrieval-timer-list nil
420 considered to be running if the newsticker timer list is not empty."
421 (> (length newsticker--retrieval-timer-list) 0))
427 considered to be running if the newsticker timer list is not
438 (defconst newsticker--raw-url-list-defaults
481 "Default URL list in raw form.
482 This list is fed into defcustom via `newsticker--splicer'.")
485 "Convert ITEM for splicing into `newsticker-url-list-defaults'."
486 (let ((result (list 'list :tag (nth 0 item) (list 'const (nth 0 item))))
489 (setq result (append result (list (list 'const (car element)))))
500 the new value effective. Changing `newsticker-url-list', for example,
512 ((memq symbol '(newsticker-url-list-defaults
513 newsticker-url-list
568 (defcustom newsticker-url-list-defaults
573 "A customizable list of news feeds to select from.
577 You may add other entries in `newsticker-url-list'."
579 newsticker--raw-url-list-defaults))
583 (defcustom newsticker-url-list nil
587 `newsticker-url-list-defaults'.
614 :type '(repeat (list :tag "News feed"
714 (defcustom newsticker-auto-mark-filter-list
716 "A list of filters for automatically marking headlines.
720 the pattern-list has the form (AGE TITLE-OR-DESCRIPTION REGEXP).
728 pattern-list is checked: The new headline will be marked as AGE
731 If, for example, `newsticker-auto-mark-filter-list' looks like
740 :type '(repeat (list :tag "Auto mark filter"
743 (list :tag "Filter element"
806 see `image-types' for a list of supported image types.
822 see `image-types' for a list of supported image types.
844 See `format-time-string' for a list of valid specifiers."
1213 (setq buffer-invisibility-spec (list t)))
1228 (defvar newsticker--item-list nil
1231 "Actual position in list of newsticker items.")
1244 This is a list of the form
2141 (list 'menu-item "--double-line"))
2142 (define-key tool-bar-map [newsticker-browse-url]
2143 (list 'menu-item "newsticker-browse-url" 'newsticker-browse-url
2148 (list 'menu-item "newsticker-buffer-force-update"
2155 (list 'menu-item "newsticker-get-all-news" 'newsticker-get-all-news
2160 (list 'menu-item "newsticker-mark-item-at-point-as-read"
2167 (list 'menu-item "newsticker-mark-item-at-point-as-immortal"
2174 (list 'menu-item "newsticker-toggle-auto-narrow-to-feed"
2180 (list 'menu-item "newsticker-next-feed" 'newsticker-next-feed
2186 (list 'menu-item "newsticker-next-item" 'newsticker-next-item
2192 (list 'menu-item "newsticker-previous-item" 'newsticker-previous-item
2198 (list 'menu-item "newsticker-previous-feed" 'newsticker-previous-feed
2232 (list "-"
2288 (define-key newsticker-mode-map "a" 'newsticker-add-url)
2299 (defvar newsticker--url-keymap (make-sparse-keymap)
2301 (define-key newsticker--url-keymap [mouse-2]
2302 'newsticker-mouse-browse-url)
2303 (define-key newsticker--url-keymap "\n"
2304 'newsticker-browse-url)
2305 (define-key newsticker--url-keymap "\C-m"
2306 'newsticker-browse-url)
2307 (define-key newsticker--url-keymap [(control return)]
2308 'newsticker-handle-url)
2313 (define-key newsticker-menu [newsticker-browse-url]
2314 '("Browse URL for item at point" . newsticker-browse-url))
2435 newsticker--retrieval-timer-list)))
2453 (add-to-list 'newsticker--retrieval-timer-list
2455 (append newsticker-url-list-defaults newsticker-url-list))
2483 newsticker--retrieval-timer-list)
2484 (setq newsticker--retrieval-timer-list nil)
2526 (setq buffer-undo-list t)
2562 (append newsticker-url-list-defaults newsticker-url-list)))
2574 (defun newsticker-add-url (url name)
2575 "Add given URL under given NAME to `newsticker-url-list'.
2578 (list
2598 (add-to-list 'newsticker-url-list (list name url nil nil nil) t)
2599 (customize-variable 'newsticker-url-list))
2648 ;;(add-text-properties beg end (list nt-type desc))
2649 (add-text-properties beg end (list 'invisible
2720 (search-list '(item)))
2722 (setq search-list '(item feed)))
2724 (unless (newsticker--buffer-goto search-list)
2769 (search-list '(item)))
2771 (setq search-list '(item feed)))
2776 (if (newsticker--buffer-goto search-list nil t)
3064 (list 'invisible (list t)
3069 (list 'invisible org-inv-prop))
3090 (list 'invisible nil
3095 (list 'invisible org-inv-prop))
3200 in an element of `newsticker-url-list' or `newsticker-url-list-defaults'."
3205 (item (or (assoc feed-name newsticker-url-list)
3206 (assoc feed-name newsticker-url-list-defaults)
3208 "Cannot get news for %s: Check newsticker-url-list"
3210 (url (cadr item))
3220 (let* ((args (append wget-arguments (list url)))
3229 (defun newsticker-mouse-browse-url (event)
3230 "Call `browse-url' for the link of the item at which the EVENT occurred."
3234 (let ((url (get-text-property (posn-point (event-end event))
3236 (when url
3237 (browse-url url)
3243 (defun newsticker-browse-url ()
3244 "Call `browse-url' for the link of the item at point."
3246 (let ((url (get-text-property (point) 'nt-link)))
3247 (when url
3248 (browse-url url)
3252 (defvar newsticker-open-url-history
3256 (defun newsticker-handle-url ()
3259 (let ((url (get-text-property (point) 'nt-link)))
3260 (when url
3261 (let ((prog (read-string "Open url with: " nil
3262 'newsticker-open-url-history)))
3264 (message "%s %s" prog url)
3265 (start-process prog prog prog url)
3304 (node-list
3380 (topnode (car node-list))
3400 (setq imageurl (newsticker--get-logo-url-rss-0.91 topnode))
3405 (setq imageurl (newsticker--get-logo-url-rss-0.92 topnode))
3409 (setq imageurl (newsticker--get-logo-url-rss-1.0 topnode))
3414 (setq imageurl (newsticker--get-logo-url-rss-2.0 topnode))
3420 (setq imageurl (newsticker--get-logo-url-atom-0.3 topnode))
3426 (setq imageurl (newsticker--get-logo-url-atom-1.0 topnode))
3473 (defun newsticker--get-logo-url-atom-1.0 (node)
3478 (defun newsticker--get-logo-url-atom-0.3 (node)
3481 (car (xml-get-children (car (xml-get-children node 'image)) 'url)))))
3483 (defun newsticker--get-logo-url-rss-2.0 (node)
3488 (car (xml-get-children node 'channel)) 'image)) 'url)))))
3490 (defun newsticker--get-logo-url-rss-1.0 (node)
3493 (car (xml-get-children (car (xml-get-children node 'image)) 'url)))))
3495 (defun newsticker--get-logo-url-rss-0.92 (node)
3498 (car (xml-get-children (car (xml-get-children node 'image)) 'url)))))
3500 (defun newsticker--get-logo-url-rss-0.91 (node)
3503 (car (xml-get-children (car (xml-get-children node 'image)) 'url)))))
3932 (if newsticker-auto-mark-filter-list
3962 (when (>= newsticker--item-position (length newsticker--item-list))
3965 (nth newsticker--item-position newsticker--item-list))
4187 "Update list of ids of active newsticker processes.
4188 Checks list of active processes against list of newsticker processes."
4189 (let ((active-procs (process-list))
4190 (new-list nil))
4194 (setq new-list (cons id new-list)))))
4196 (setq newsticker--process-ids new-list))
4202 (defun newsticker--image-get (feed-name url)
4219 (item (or (assoc feed-name newsticker-url-list)
4220 (assoc feed-name newsticker-url-list-defaults)
4222 "Cannot get news for %s: Check newsticker-url-list"
4234 (let* ((args (append wget-arguments (list url)))
4302 (feed-list nil)
4309 (when feed-list
4311 (nconc index-alist (list feed-list))
4312 (setq index-alist (list feed-list))))
4313 (setq feed-list (list title)))
4315 (nconc feed-list
4316 (list (cons title (point)))))))
4319 (nconc index-alist (list feed-list))
4320 (setq index-alist (list feed-list)))
4335 (add-text-properties pos1 pos2 (list 'invisible nil
4366 Keeps order of feeds as given in `newsticker-url-list' and
4367 `newsticker-url-list-defaults'."
4369 (mapc (lambda (url-item)
4370 (let* ((feed-name (car url-item))
4395 (append newsticker-url-list newsticker-url-list-defaults))
4553 (list 'keymap
4557 (list 'keymap w3-mode-map))))
4608 (list 'mouse-face 'highlight
4613 'keymap newsticker--url-keymap))
4615 (list 'nt-title (newsticker--title item)
4619 (list 'nt-type type
4686 (list 'mouse-face 'highlight
4690 'keymap newsticker--url-keymap)))
4702 (let ((url (cdr (assoc 'url enclosure)))
4713 (list 'mouse-face 'highlight
4714 'nt-link url
4716 "mouse-2: visit (%s)" url)
4717 'keymap newsticker--url-keymap
4783 (list (intern
4800 (list (intern
4898 TYPES is a list of symbols. If TYPES is found point is moved, if
4977 (setq newsticker--item-list nil)
5014 ;; add to flash list
5015 (add-to-list 'newsticker--item-list
5036 ;; remove from flash list
5037 (setq newsticker--item-list (remove (concat feed-name ": " t-title)
5038 newsticker--item-list))
5057 (setcdr (nthcdr 5 item) (list contents))))
5183 (setcdr (nthcdr 4 item) (list position)))
5197 (list (list title desc link
5205 (add-to-list 'data (list feed-name-symbol
5206 (list title desc link time age position
5216 `newsticker-url-list' or `newsticker-url-list-defaults', are removed as
5222 (if (or (assoc (symbol-name (car feed)) newsticker-url-list)
5223 (assoc (symbol-name (car feed)) newsticker-url-list-defaults))
5315 (mapc (lambda (feed-list)
5316 (setcdr feed-list (sort (cdr feed-list)
5328 (setq buffer-undo-list t)
5384 (append newsticker-url-list newsticker-url-list-defaults))
5395 (let* ((node-list (xml-parse-region (point-min) (point-max)))
5396 (body (car (xml-get-children (car node-list) 'body)))
5400 (url (xml-get-attribute outline 'xmlUrl)))
5401 (add-to-list 'newsticker-url-list
5402 (list name url nil nil nil) t)))
5404 (customize-variable 'newsticker-url-list))
5411 This function checks the variable `newsticker-auto-mark-filter-list'
5416 (pattern-list (cadr filter)))
5418 (newsticker--do-run-auto-mark-filter item pattern-list))))
5419 newsticker-auto-mark-filter-list)))
5421 (defun newsticker--do-run-auto-mark-filter (item list)
5423 \(from `newsticker-auto-mark-filter-list')."
5440 list))
5462 (let ((url (substring desc (match-beginning 1) (match-end 1)))
5468 (message "Getting image %s" url)
5472 (list url))
5484 (let ((url (cdr (assoc 'url enclosure)))
5490 (message "Getting enclosure %s" url)
5494 (list url))