Lines Matching +defs:auto +defs:mode +defs:list
39 ;; that asynchronously retrieves headlines from a list of news sites,
91 ;; (add-to-list 'load-path "/path/to/newsticker/")
98 ;; (add-hook 'newsticker-mode-hook 'imenu-add-menubar-index)
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
187 ;; * Changed auto-marking mechanism: Replaced variable
188 ;; `newsticker-auto-mark-filter' with new variable
189 ;; `newsticker-auto-mark-filter-list', which allows for looking not
198 ;; - update mode-line and menu-bar when necessary,
207 ;; * mode-line: Introduced special mode-line-format for newsticker.
221 ;; * Added variable `newsticker-auto-mark-filter' for automatically
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
359 ;; * newsticker-mode inherits outline-mode.
360 ;; * newsticker-mode supports imenu.
361 ;; * Easy buffer-navigation with newsticker-mode's keymap.
365 ;; 0.95 * Added newsticker-mode -- Thanks to T.V. Raman.
402 (defvar w3-mode-map)
403 (defvar w3m-minor-mode-map)
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."
922 (require 'w3-auto)
1155 `newsticker-toggle-auto-narrow-to-feed' or
1156 `newsticker-toggle-auto-narrow-to-item' has been called.
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
1267 (defvar newsticker--auto-narrow-to-feed nil
1271 (defvar newsticker--auto-narrow-to-item nil
2141 (list 'menu-item "--double-line"))
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"
2173 (define-key tool-bar-map [newsticker-toggle-auto-narrow-to-feed]
2174 (list 'menu-item "newsticker-toggle-auto-narrow-to-feed"
2175 '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
2215 ;;; Newsticker mode
2218 (define-derived-mode newsticker-mode fundamental-mode
2227 (auto-fill-mode -1) ;; turn auto-fill off!
2228 (font-lock-mode -1) ;; turn off font-lock!!
2231 (setq mode-line-format
2232 (list "-"
2233 'mode-line-mule-info
2234 'mode-line-modified
2235 'mode-line-frame-identification
2252 ;; refine its mode-map
2253 (define-key newsticker-mode-map "sO" 'newsticker-show-old-items)
2254 (define-key newsticker-mode-map "hO" 'newsticker-hide-old-items)
2255 (define-key newsticker-mode-map "sa" 'newsticker-show-all-desc)
2256 (define-key newsticker-mode-map "ha" 'newsticker-hide-all-desc)
2257 (define-key newsticker-mode-map "sf" 'newsticker-show-feed-desc)
2258 (define-key newsticker-mode-map "hf" 'newsticker-hide-feed-desc)
2259 (define-key newsticker-mode-map "so" 'newsticker-show-old-item-desc)
2260 (define-key newsticker-mode-map "ho" 'newsticker-hide-old-item-desc)
2261 (define-key newsticker-mode-map "sn" 'newsticker-show-new-item-desc)
2262 (define-key newsticker-mode-map "hn" 'newsticker-hide-new-item-desc)
2263 (define-key newsticker-mode-map "se" 'newsticker-show-entry)
2264 (define-key newsticker-mode-map "he" 'newsticker-hide-entry)
2265 (define-key newsticker-mode-map "sx" 'newsticker-show-extra)
2266 (define-key newsticker-mode-map "hx" 'newsticker-hide-extra)
2268 (define-key newsticker-mode-map " " 'scroll-up)
2269 (define-key newsticker-mode-map "q" 'newsticker-close-buffer)
2270 (define-key newsticker-mode-map "p" 'newsticker-previous-item)
2271 (define-key newsticker-mode-map "P" 'newsticker-previous-new-item)
2272 (define-key newsticker-mode-map "F" 'newsticker-previous-feed)
2273 (define-key newsticker-mode-map "\t" 'newsticker-next-item)
2274 (define-key newsticker-mode-map "n" 'newsticker-next-item)
2275 (define-key newsticker-mode-map "N" 'newsticker-next-new-item)
2276 (define-key newsticker-mode-map "f" 'newsticker-next-feed)
2277 (define-key newsticker-mode-map "M" 'newsticker-mark-all-items-as-read)
2278 (define-key newsticker-mode-map "m"
2280 (define-key newsticker-mode-map "o"
2282 (define-key newsticker-mode-map "O"
2284 (define-key newsticker-mode-map "G" 'newsticker-get-all-news)
2285 (define-key newsticker-mode-map "g" 'newsticker-get-news-at-point)
2286 (define-key newsticker-mode-map "u" 'newsticker-buffer-update)
2287 (define-key newsticker-mode-map "U" 'newsticker-buffer-force-update)
2288 (define-key newsticker-mode-map "a" 'newsticker-add-url)
2290 (define-key newsticker-mode-map "i"
2293 (define-key newsticker-mode-map "xf"
2294 'newsticker-toggle-auto-narrow-to-feed)
2295 (define-key newsticker-mode-map "xi"
2296 'newsticker-toggle-auto-narrow-to-item)
2340 (define-key newsticker-menu [newsticker-toggle-auto-narrow-to-item]
2341 '("Narrow to single item" . newsticker-toggle-auto-narrow-to-item))
2342 (define-key newsticker-menu [newsticker-toggle-auto-narrow-to-feed]
2343 '("Narrow to single news feed" . newsticker-toggle-auto-narrow-to-feed))
2354 (define-key newsticker-mode-map [down-mouse-3] newsticker-menu)
2356 (define-key newsticker-mode-map [menu-bar Newsticker]
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)
2530 (newsticker-mode)
2531 ;; Emacs 21.3.50 does not care if we turn off auto-fill in the
2532 ;; definition of newsticker-mode, so we do it here (again)
2533 (auto-fill-mode -1)
2562 (append newsticker-url-list-defaults newsticker-url-list)))
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)))
2721 (if newsticker--auto-narrow-to-item
2722 (setq search-list '(item feed)))
2724 (unless (newsticker--buffer-goto search-list)
2734 (force-mode-line-update)
2740 auto-narrow-to-item is enabled, nil is returned."
2742 (if newsticker--auto-narrow-to-item
2769 (search-list '(item)))
2770 (if newsticker--auto-narrow-to-item
2771 (setq search-list '(item feed)))
2776 (if (newsticker--buffer-goto search-list nil t)
2784 (force-mode-line-update)
2794 (force-mode-line-update)
2804 (force-mode-line-update)
3064 (list 'invisible (list t)
3069 (list 'invisible org-inv-prop))
3090 (list 'invisible nil
3095 (list 'invisible org-inv-prop))
3099 (defun newsticker-toggle-auto-narrow-to-feed ()
3101 If auto-narrowing is active, only news item of the current feed
3104 (newsticker-set-auto-narrow-to-feed
3105 (not newsticker--auto-narrow-to-feed)))
3107 (defun newsticker-set-auto-narrow-to-feed (value)
3109 If VALUE is nil, auto-narrowing is turned off, otherwise it is turned on."
3111 (setq newsticker--auto-narrow-to-item nil)
3112 (setq newsticker--auto-narrow-to-feed value)
3117 (defun newsticker-toggle-auto-narrow-to-item ()
3119 If auto-narrowing is active, only one item of the current feed
3122 (newsticker-set-auto-narrow-to-item
3123 (not newsticker--auto-narrow-to-item)))
3125 (defun newsticker-set-auto-narrow-to-item (value)
3127 If VALUE is nil, auto-narrowing is turned off, otherwise it is turned on."
3129 (setq newsticker--auto-narrow-to-feed nil)
3130 (setq newsticker--auto-narrow-to-item value)
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"
3220 (let* ((args (append wget-arguments (list url)))
3227 (force-mode-line-update)))))
3304 (node-list
3380 (topnode (car node-list))
3932 (if newsticker-auto-mark-filter-list
3933 (newsticker--run-auto-mark-filter name item))
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))
4197 (force-mode-line-update))
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
4345 The mode-line is changed accordingly."
4352 (setq mode-name "Newsticker -- up to date -- ")
4353 (setq mode-name "Newsticker -- NEED UPDATE -- ")))
4354 (force-mode-line-update 0))))
4366 Keeps order of feeds as given in `newsticker-url-list' and
4367 `newsticker-url-list-defaults'."
4395 (append newsticker-url-list newsticker-url-list-defaults))
4553 (list 'keymap
4554 w3m-minor-mode-map)))
4557 (list 'keymap w3-mode-map))))
4608 (list 'mouse-face 'highlight
4615 (list 'nt-title (newsticker--title item)
4619 (list 'nt-type type
4686 (list 'mouse-face 'highlight
4713 (list 'mouse-face 'highlight
4783 (list (intern
4800 (list (intern
4866 (when newsticker--auto-narrow-to-feed
4872 (when newsticker--auto-narrow-to-item
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))
5387 (when (fboundp 'sgml-mode)
5388 (sgml-mode)))
5395 (let* ((node-list (xml-parse-region (point-min) (point-max)))
5396 (body (car (xml-get-children (car node-list) 'body)))
5401 (add-to-list 'newsticker-url-list
5402 (list name url nil nil nil) t)))
5404 (customize-variable 'newsticker-url-list))
5409 (defun newsticker--run-auto-mark-filter (feed item)
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))
5472 (list url))
5494 (list url))