mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Next: Bind keys to function symbols.

master
Pierre Neidhardt 2020-05-09 11:46:19 +02:00
parent d49e1b65df
commit 8c94141f1f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.config/next/init.lisp
View File

@ -24,7 +24,7 @@
:link ,(url buffer)
:description ,(title buffer))))
`(org-capture)))
(define-key *my-keymap* "C-M-o" #'org-capture)
(define-key *my-keymap* "C-M-o" 'org-capture)
(define-command youtube-dl-current-page (&optional (buffer (current-buffer)))
"Download a video in the currently open buffer."
@ -32,12 +32,12 @@
(if (search "youtu" (url buffer))
`(progn (youtube-dl ,(url buffer)) (youtube-dl-list))
`(ambrevar/youtube-dl-url ,(url buffer)))))
(define-key *my-keymap* "C-M-c d" #'youtube-dl-current-page)
(define-key *my-keymap* "C-M-c d" 'youtube-dl-current-page)
(define-command play-video-in-current-page (&optional (buffer (current-buffer)))
"Play video in the currently open buffer."
(uiop:run-program (list "mpv" (url buffer))))
(define-key *my-keymap* "C-M-c v" #'play-video-in-current-page)
(define-key *my-keymap* "C-M-c v" 'play-video-in-current-page)
(define-mode my-mode ()
"Dummy mode for the custom key bindings in `*my-keymap*'."