Lines Matching +defs:browse +defs:url
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
234 ;; * Added command `newsticker-handle-url' for interactively launching
270 ;; * Added `newsticker-add-url'.
330 ;; * Added `newsticker-url-list-defaults', splitting the URLs into
335 ;; * Keep order of feeds as given in `newsticker-url-list' in
438 (defconst newsticker--raw-url-list-defaults
485 "Convert ITEM for splicing into `newsticker-url-list-defaults'."
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
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'.
2063 (defconst newsticker--browse-image
2133 "Image for the browse button."))
2142 (define-key tool-bar-map [newsticker-browse-url]
2143 (list 'menu-item "newsticker-browse-url" 'newsticker-browse-url
2146 :image newsticker--browse-image))
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))
2455 (append newsticker-url-list-defaults newsticker-url-list))
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'.
2598 (add-to-list 'newsticker-url-list (list name url nil nil nil) t)
2599 (customize-variable 'newsticker-url-list))
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)
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)))))
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)))
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))
4613 'keymap newsticker--url-keymap))
4690 'keymap newsticker--url-keymap)))
4702 (let ((url (cdr (assoc 'url enclosure)))
4714 'nt-link url
4716 "mouse-2: visit (%s)" url)
4717 'keymap newsticker--url-keymap
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))
5384 (append newsticker-url-list newsticker-url-list-defaults))
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))
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))