From 8a0479aff156743197e71f5cd7d9f27541606881 Mon Sep 17 00:00:00 2001 From: Chris Cochrun Date: Tue, 22 Jun 2021 07:10:27 -0500 Subject: [PATCH] agenda and pdf stuff --- README.org | 46 ++++++++++++++++++++++++++++++++++++++-------- init.el | 42 ++++++++++++++++++++++++++++++++++-------- 2 files changed, 72 insertions(+), 16 deletions(-) diff --git a/README.org b/README.org index 28045036..86457d2c 100644 --- a/README.org +++ b/README.org @@ -711,6 +711,13 @@ Since I like to make my window manager handle a lot of the window management, I ** Languages +*** Lua +Since I use the Awesome WM I thought it'd be good to have lua around. It's also in a lot of things. +#+begin_src emacs-lisp +(use-package lua-mode + :mode ("\\.lua\\'" . lua-mode)) +#+end_src + *** Fennel I use fennel to build my awesomewm config. So, we'll need that downloaded. #+begin_src emacs-lisp @@ -1058,7 +1065,8 @@ Part of this config includes some special capture templates for my work as a you "r" 'org-agenda-redo "d" 'org-agenda-deadline "s" 'org-agenda-schedule - "t" 'org-agenda-todo) + "t" 'org-agenda-todo + "c" 'org-agenda-capture) ('normal org-columns-map "j" 'outline-next-heading "h" 'outline-previous-heading @@ -1711,7 +1719,9 @@ Let's use pdf-tools for a lot better interaction with pdfs. :branch "fix-macros") :defer 1 :config - (pdf-tools-install)) + (pdf-tools-install) + (custom-set-variables '(pdf-misc-print-program "/usr/bin/lpr") + '(pdf-misc-print-program-args (quote ("-o media=Letter" "-o fitplot"))))) #+end_src ** EPUB @@ -1804,20 +1814,31 @@ interfere with the default `bongo-playlist-buffer'." (use-package bongo :commands (bongo bongo-playlist-buffer) :config - (define-bongo-backend mpv + (define-bongo-backend mpv-slow :program-name 'mpv :constructor 'bongo-start-mpv-player - :extra-program-arguments '("--input-ipc-server=/tmp/mpvsocket") + :extra-program-arguments '("--profile=slow --input-ipc-server=/tmp/mpvsocket") :matcher '((local-file "file:" "http:" "ftp:" "lbry:") - "ogg" "flac" "mp3" "mka" "wav" "wma" - "mpg" "mpeg" "vob" "avi" "ogm" "opus" "mp4" + "ogg" "flac" "mp3" "mka" "wav" + "ogm" "opus" ) + :matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:" + "dvd:" "vcd:" "tv:" "dvb:" "mf:" "cdda:" "cddb:" + "cue:" "sdp:" "mpst:" "tivo:") . t) + :matcher '(("http:" "https:" "lbry:") . t)) + + (define-bongo-backend mpv-fast + :constructor 'bongo-start-mpv-player + :extra-program-arguments '("--profile=fast --input-ipc-server=/tmp/mpvsocket") + :matcher '((local-file "file:" "http:" "ftp:" "lbry:") + "mka" "wav" "wma" + "mpg" "mpeg" "vob" "avi" "ogm" "mp4" "mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts") :matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:" "dvd:" "vcd:" "tv:" "dvb:" "mf:" "cdda:" "cddb:" "cue:" "sdp:" "mpst:" "tivo:") . t) :matcher '(("http:" "https:" "lbry:") . t)) - (setq bongo-enabled-backends '(mpv) + (setq bongo-enabled-backends '(mpv-fast mpv-slow) bongo-track-mark-icon-file-name "track-mark-icon.png") (defun chris/bongo-mark-line-forward () @@ -1840,9 +1861,18 @@ interfere with the default `bongo-playlist-buffer'." "d" 'bongo-kill-line "u" 'bongo-unmark-region "p" 'bongo-pause/resume + "P" 'bongo-yank "H" 'bongo-switch-buffers "q" 'bury-buffer - "m" 'chris/bongo-mark-line-forward)) + "m" 'chris/bongo-mark-line-forward) + (general-def 'normal bongo-library-mode-map + "RET" 'bongo-dwim + "d" 'bongo-kill-line + "u" 'bongo-unmark-region + "e" 'bongo-insert-enqueue + "p" 'bongo-pause/resume + "H" 'bongo-switch-buffers + "q" 'bury-buffer)) #+end_src ** Transmission diff --git a/init.el b/init.el index 4f38e78e..f8e0b264 100644 --- a/init.el +++ b/init.el @@ -414,6 +414,9 @@ vertically." (setq format-all-formatters '("Emacs Lisp" emacs-lisp)) :defer 1) +(use-package lua-mode + :mode ("\\.lua\\'" . lua-mode)) + (use-package fennel-mode :mode ("\\.fnl\\'" . fennel-mode)) @@ -692,7 +695,8 @@ vertically." "r" 'org-agenda-redo "d" 'org-agenda-deadline "s" 'org-agenda-schedule - "t" 'org-agenda-todo) + "t" 'org-agenda-todo + "c" 'org-agenda-capture) ('normal org-columns-map "j" 'outline-next-heading "h" 'outline-previous-heading @@ -1270,7 +1274,9 @@ If on a: :branch "fix-macros") :defer 1 :config - (pdf-tools-install)) + (pdf-tools-install) + (custom-set-variables '(pdf-misc-print-program "/usr/bin/lpr") + '(pdf-misc-print-program-args (quote ("-o media=Letter" "-o fitplot"))))) (use-package nov :mode ("\\.epub\\'" . nov-mode) @@ -1352,20 +1358,31 @@ interfere with the default `bongo-playlist-buffer'." (use-package bongo :commands (bongo bongo-playlist-buffer) :config - (define-bongo-backend mpv + (define-bongo-backend mpv-slow :program-name 'mpv :constructor 'bongo-start-mpv-player - :extra-program-arguments '("--input-ipc-server=/tmp/mpvsocket") + :extra-program-arguments '("--profile=slow --input-ipc-server=/tmp/mpvsocket") :matcher '((local-file "file:" "http:" "ftp:" "lbry:") - "ogg" "flac" "mp3" "mka" "wav" "wma" - "mpg" "mpeg" "vob" "avi" "ogm" "opus" "mp4" + "ogg" "flac" "mp3" "mka" "wav" + "ogm" "opus" ) + :matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:" + "dvd:" "vcd:" "tv:" "dvb:" "mf:" "cdda:" "cddb:" + "cue:" "sdp:" "mpst:" "tivo:") . t) + :matcher '(("http:" "https:" "lbry:") . t)) + + (define-bongo-backend mpv-fast + :constructor 'bongo-start-mpv-player + :extra-program-arguments '("--profile=fast --input-ipc-server=/tmp/mpvsocket") + :matcher '((local-file "file:" "http:" "ftp:" "lbry:") + "mka" "wav" "wma" + "mpg" "mpeg" "vob" "avi" "ogm" "mp4" "mkv" "mov" "asf" "wmv" "rm" "rmvb" "ts") :matcher '(("mms:" "mmst:" "rtp:" "rtsp:" "udp:" "unsv:" "dvd:" "vcd:" "tv:" "dvb:" "mf:" "cdda:" "cddb:" "cue:" "sdp:" "mpst:" "tivo:") . t) :matcher '(("http:" "https:" "lbry:") . t)) - (setq bongo-enabled-backends '(mpv) + (setq bongo-enabled-backends '(mpv-fast mpv-slow) bongo-track-mark-icon-file-name "track-mark-icon.png") (defun chris/bongo-mark-line-forward () @@ -1388,9 +1405,18 @@ interfere with the default `bongo-playlist-buffer'." "d" 'bongo-kill-line "u" 'bongo-unmark-region "p" 'bongo-pause/resume + "P" 'bongo-yank "H" 'bongo-switch-buffers "q" 'bury-buffer - "m" 'chris/bongo-mark-line-forward)) + "m" 'chris/bongo-mark-line-forward) + (general-def 'normal bongo-library-mode-map + "RET" 'bongo-dwim + "d" 'bongo-kill-line + "u" 'bongo-unmark-region + "e" 'bongo-insert-enqueue + "p" 'bongo-pause/resume + "H" 'bongo-switch-buffers + "q" 'bury-buffer)) (use-package transmission :commands (transmission)