pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Some elisp for my own bookmarks

Browse source
This commit is contained in:
Benson Chu 2019-06-28 11:43:31 -05:00
parent 3fe4572030
commit f86743fc45
2 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.gitignore vendored
View file

@ -31,3 +31,4 @@
/speed-type /speed-type
/layouts /layouts
/workspace /workspace
/bookmarks

22
config.org
View file

@ -2658,6 +2658,28 @@
(apply output-func (list (format "%d: %s\n" val key)))) (apply output-func (list (format "%d: %s\n" val key))))
h))) h)))
#+end_src #+end_src
** Custom bookmarks location
#+begin_src emacs-lisp
(bookmark-load "~/.emacs.d/my-bookmarks")
(defun my/bookmark-set (&optional name no-overwrite)
(interactive (list nil current-prefix-arg))
(bookmark-set name no-overwrite)
(let* ((buffer (find-file-noselect "~/.emacs.d/my-bookmarks"))
(bookmark (car bookmark-alist))
(bookmark-name (car bookmark))
(bookmark-file (file-name-nondirectory (buffer-file-name))))
(with-current-buffer buffer
(goto-char (point-min))
(when (not (or (save-excursion (re-search-forward bookmark-name))
(save-excursion (re-search-forward bookmark-file))))
(re-search-forward "(")
(insert (pp bookmark))
(save-buffer)
(kill-buffer)))))
(global-set-key (kbd "C-x r m") #'my/bookmark-set)
#+end_src
* Broken * Broken
** mu4e ** mu4e
*** General config *** General config