;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306!\203\300\307\310\311#\210\312\313\310\314\315\302%\210\316\317\320\321\322DD\323\315\313\324\325&\210\326\327\330\331\315\313%\207" [require cl-lib helm helm-utils helm-adaptive executable-find "w3m" w3m-bookmark nil t custom-declare-group helm-w3m "W3m related Applications and libraries for Helm." :group custom-declare-variable helm-w3m-actions funcall function #[0 "\300\301\302\303\304\305\306\307\310\311\312\313\314&\f\207" [helm-make-actions "Browse Url" #[257 "\300!\207" [helm-w3m-browse-bookmark] 3 "\n\n(fn CANDIDATE)"] "Browse Url new tab" #[257 "\300\301\302#\207" [helm-w3m-browse-bookmark nil t] 5 "\n\n(fn CANDIDATE)"] "Copy Url" #[257 "\300\301!!\207" [kill-new helm-w3m-bookmarks-get-value] 4 "\n\n(fn ELM)"] "Browse Url Externally" #[257 "\300\301\"\207" [helm-w3m-browse-bookmark t] 4 "\n\n(fn CANDIDATE)"] "Delete Bookmarks" #[257 "\300!\207" [helm-w3m-delete-bookmark] 3 "\n\n(fn CANDIDATE)"] "Rename Bookmark" #[257 "\300!\207" [helm-w3m-rename-bookmark] 3 "\n\n(fn CANDIDATE)"]] 13] "Actions for helm-w3m bookmarks." :type (alist :key-type string :value-type function) custom-declare-face helm-w3m-bookmarks ((t (:foreground "cyan1" :underline t))) "Face for w3m bookmarks"] 8) (defvar w3m-bookmark-file "~/.w3m/bookmark.html") (defvar helm-w3m-bookmarks-regexp ">\$[^><]+.[^]\$") (defvar helm-w3m-bookmark-url-regexp "\$https\\|http\\|ftp\\|file\$://[^>]*") (defvar helm-w3m-bookmarks-alist nil) #@84 Needs w3m and emacs-w3m. http://w3m.sourceforge.net/ http://emacs-w3m.namazu.org/ (defvar helm-source-w3m-bookmarks (helm-make-source "W3m Bookmarks" 'helm-source-sync :init #[0 "\304 \n#\211\207" [w3m-bookmark-file helm-w3m-bookmark-url-regexp helm-w3m-bookmarks-regexp helm-w3m-bookmarks-alist helm-html-bookmarks-to-alist] 4] :candidates #[0 "\301\302\"\207" [helm-w3m-bookmarks-alist mapcar car] 3] :filtered-candidate-transformer '(helm-adaptive-sort helm-highlight-w3m-bookmarks) :action 'helm-w3m-actions :persistent-action #[257 "\203 \301\302\"\207\301\303\302#\207" [current-prefix-arg helm-w3m-browse-bookmark t nil] 5 "\n\n(fn CANDIDATE)"] :persistent-help "Open URL with emacs-w3m in new tab / C-u \\[helm-execute-persistent-action]: Open URL with Firefox") (#$ . 1599)) #@12 (fn ELM) (defalias 'helm-w3m-bookmarks-get-value #[257 "\301\302\303\304\"A#\207" [helm-w3m-bookmarks-alist replace-regexp-in-string "\"" "" assoc] 7 (#$ . 2397)]) #@43 (fn ELM &optional USE-EXTERNAL NEW-TAB) (defalias 'helm-w3m-browse-bookmark #[769 "\203\300\202 \301\211\301=\205\302!\"\207" [helm-browse-url w3m-browse-url helm-w3m-bookmarks-get-value] 8 (#$ . 2571)]) #@25 (fn BOOKMARKS SOURCE) (defalias 'helm-highlight-w3m-bookmarks #[514 "\300\211:\203!@\262\301\302\303\304\305!%B\262A\262\202\211\237\207" [nil propertize face helm-w3m-bookmarks help-echo helm-w3m-bookmarks-get-value] 12 (#$ . 2794)]) #@57 Delete w3m bookmark from `w3m-bookmark-file'. (fn ELM) (defalias 'helm-w3m-delete-bookmark-1 #[257 "r\301!q\210eb\210\302\303\304#\203\305y\210`\306 |\210\307 \210\310 \210\311 )\207" [w3m-bookmark-file find-file-noselect search-forward nil t 0 line-end-position delete-blank-lines save-buffer kill-buffer] 5 (#$ . 3051)]) #@18 (fn CANDIDATE) (defalias 'helm-w3m-delete-bookmark #[257 "\300 \301:\203@\262\302!\210A\262\202\301\207" [helm-marked-candidates nil helm-w3m-delete-bookmark-1] 5 (#$ . 3385)]) #@55 Rename w3m bookmark in `w3m-bookmark-file'. (fn ELM) (defalias 'helm-w3m-rename-bookmark #[257 "\301\302\303#\304\305\"r\306!q\210eb\210\307\310P\311\312#\203)`Sb\210\313G[!\210\211c\210\314 \210\315 )\207" [w3m-bookmark-file replace-regexp-in-string ">" "" helm-read-string "NewTitle: " find-file-noselect search-forward "<" nil t delete-char save-buffer kill-buffer] 7 (#$ . 3580)]) #@124 Preconfigured `helm' for w3m bookmark. Needs w3m and emacs-w3m. http://w3m.sourceforge.net/ http://emacs-w3m.namazu.org/ (defalias 'helm-w3m-bookmarks #[0 "\300\301\302\303\304\305\306\307$D\310\311$\207" [helm :sources helm-source-w3m-bookmarks helm-make-source "DuckDuckgo" helm-source-dummy :action #[257 "\302\303\304!\" \"\207" [helm-surfraw-duckduckgo-url helm-current-prefix-arg w3m-browse-url format url-hexify-string] 6 "\n\n(fn CANDIDATE)"] :buffer "*helm w3m bookmarks*"] 8 (#$ . 3979) nil]) (provide 'helm-w3m)