blob: f429de8d7d9ea5e475115dbae14d5dc7012abdb1 (
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
;;; test-code.el --- test code -*- lexical-binding: t; -*-
;; author: Craig Jennings <c@cjennings.net>
;;; Commentary:
;; This is where you should put config code you want to test.
;; I recommend calling this file from the end of your init.el
;; if something breaks, you have most of your Emacs config loaded.
;;; Code:
;; ------------------------------------ Pomm -----------------------------------
(use-package pomm
:defer .5
:bind ("M-p" . pomm)
:commands (pomm pomm-third-time))
;; ----------------------------------- Mpdel -----------------------------------
(use-package mpdel
:defer .5
:config
(setq mpdel-prefix-key (kbd "M-p"))
(mpdel-mode))
;; ---------------------------------- Yeetube ----------------------------------
;; youtube frontend for emacs
(use-package yeetube
:init (define-prefix-command 'cj/yeetube-map)
:bind (("C-c y" . 'cj/yeetube-map)
:map cj/yeetube-map
("s" . 'yeetube-search)
("b" . 'yeetube-play-saved-video)
("d" . 'yeetube-download-videos)
("p" . 'yeetube-mpv-toggle-pause)
("v" . 'yeetube-mpv-toggle-video)
("V" . 'yeetube-mpv-toggle-no-video-flag)
("k" . 'yeetube-remove-saved-video))
:custom
(yeetube-results-limit 50)
(yeetube-download-directory (expand-file-name "videos" "~"))
(yeetube-filter "Views")
(setq yeetube-display-thumbnails nil)
:config
(setf yeetube-mpv-disable-video nil))
;; --------------------------------- Easy Hugo ---------------------------------
(use-package easy-hugo
:defer .5
:init
(setq easy-hugo-basedir "~/code/cjennings-net/")
(setq easy-hugo-url "https://cjennings.net")
(setq easy-hugo-sshdomain "cjennings.net")
(setq easy-hugo-root "/var/www/cjennings/")
(setq easy-hugo-previewtime "300")
(setq easy-hugo-postdir "content")
(setq easy-hugo-server-flags "-D --noHTTPCache --disableFastRender")
(setq easy-hugo-default-ext ".md")
:bind ("C-c H" . easy-hugo)
:config
(easy-hugo-enable-menu))
;; -------------------------------- Google This --------------------------------
(use-package google-this
:load-path "~/code/emacs-google-this/"
:defer 1
:bind
("C-h g" . 'google-this-search)
:config
(google-this-mode 1)
(setq google-this-browse-url-function 'eww-browse-url))
;; ------------------------------ ERC Yank To Gist -----------------------------
;; automatically create a Gist if pasting more than 5 lines
;; this module requires https://github.com/defunkt/gist
;; via ruby: 'gem install gist' via the aur: yay -S gist
(use-package erc-yank
:defer 1
:after erc
:bind
(:map erc-mode-map
("C-y" . erc-yank)))
;; --------------------------------- Ob-Racket ---------------------------------
;; (use-package ob-racket
;; :load-path "~/code/ob-racket"
;; :defer .5
;; :after racket-mode
;; :commands (org-babel-execute:racket)
;; :quelpa (ob-racket
;; :fetcher github
;; :repo "hasu/emacs-ob-racket"
;; :files ("*.el" "*.rkt")))
(provide 'test-code)
;;; test-code.el ends here.
|
