blob: 01f00d06df1c997835e2f6d0e3f761d112669dc2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
;;; sample initialisation file for bmk-mgr
(if (require 'bmk-mgr nil t)
(progn
(setq bmk-mgr-bookmark-file "~/.emacs.d/bookmarks")
(setq bmk-mgr-inhibit-welcome-message nil)
(setq bmk-mgr-inhibit-minibuffer t)
(setq bmk-mgr-use-own-frame nil)
(setq bmk-mgr-use-images t)
(setq bmk-mgr-ignore-fold-state t)
(define-key bmk-mgr-mode-map "g" 'bmk-mgr-browse-url)
(define-key bmk-mgr-mode-map "G" 'bmk-mgr-browse-url-alt)
(global-set-key "\C-cB" 'bmk-mgr-show-bookmarks)
(global-set-key "\C-cA" 'bmk-mgr-add-url-at-point)
;;;; integration with emacs-w3m (optional)
(when (require 'w3m nil t)
(require 'bmk-mgr-w3m)
(defun browse-bmk-w3m (url &rest ig)
(goto-w3m-buffer)
(w3m-goto-url url t))
(defun browse-bmk-new-tab-w3m (url &rest ig)
(goto-w3m-buffer)
(w3m-goto-url-new-session url t))
(defun goto-w3m-buffer () (interactive)
(let ((display-buffer-reuse-frames 1)
(pop-up-windows nil)
(buffer (w3m-alive-p)))
(if buffer (pop-to-buffer buffer))))
(define-key bmk-mgr-mode-map "w" 'goto-w3m-buffer)
(setq bmk-mgr-browser-function 'browse-bmk-w3m)
(setq bmk-mgr-alt-browser-function 'browse-bmk-new-tab-w3m))
;; integration with w3
(require 'bmk-mgr-w3)))
(message "bookmark manager not available"))
|
