blob: e718094addc057bb6448476fe81bca4ee10e3068 (
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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
|
;;; 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:
;; ------------------------ Org-Branch To Org-Roam-Node ------------------------
;; (defun cj/move-org-branch-to-roam ()
;; (interactive)
;; (when (eq (org-element-type (org-element-at-point)) 'headline)
;; (let* ((headline-components (org-heading-components))
;; (title (nth 4 headline-components)))
;; (setq cj/point (point))
;; (org-cut-subtree)
;; ;; Switch to org-roam buffer, fill in new node's title
;; ;; Pass the current headline title as the default value
;; (org-roam-node-insert
;; :immediate-finish t
;; :no-edit t
;; :region (cons (point)
;; (save-excursion
;; (insert title)
;; (point))))
;; (newline)
;; ;; Paste the 'cut' subtree and save buffer
;; (org-yank)
;; (save-buffer)
;; ;; Go back to the initial buffer and position
;; (switch-to-buffer (other-buffer))
;; (goto-char cj/point))))
(defun cj/move-org-branch-to-roam ()
(interactive)
(when (eq (org-element-type (org-element-at-point)) 'headline)
(let* ((headline-components (org-heading-components))
(title (nth 4 headline-components)))
(setq cj/point (point))
(org-cut-subtree)
;; Switch to org-roam buffer, fill in new node's title.
(org-roam-node-insert
:immediate-finish t
:no-edit t
;; Pass the current headline title as the default value.
:region (cons (point)
(save-excursion
(insert title)
(point))))
(newline)
;; Paste the 'cut' subtree and save buffer.
(org-yank)
(save-buffer)
;; Go back to the initial buffer and position.
(switch-to-buffer (other-buffer))
(goto-char cj/point)
;; Kill the org-roam link leftover.
(kill-whole-line))))
;; (defun cj/move-org-branch-to-roam ()
;; (interactive)
;; (when (eq (org-element-type (org-element-at-point)) 'headline)
;; ;; Save position to come back after branch cut
;; (setq cj/point (point))
;; ;; Cut the whole subtree
;; (org-cut-subtree)
;; ;; Switch to org-roam buffer, prompt for new node's title
;; (org-roam-node-insert)
;; (newline)
;; ;; Paste the 'cut' subtree and save buffer
;; (org-yank)
;; (save-buffer)
;; ;; Go back to the initial buffer and position
;; (switch-to-buffer (other-buffer))
;; (goto-char cj/point)))
;; --------------------------------- Org Noter ---------------------------------
(use-package org-noter
:after (:any org pdf-view)
:commands org-noter
:bind ("<f6>" . org-noter)
:config
(setq org-noter-always-create-frame nil)
(setq org-noter-notes-window-location 'vertical-split)
(setq org-noter-notes-window-behavior 'scroll)
(setq org-noter-doc-split-fraction '(0.75 . 0.75))
(setq org-noter-notes-search-path (concat sync-dir "/org-noter/"))
(setq org-noter-default-notes-file-names '("reading-notes.org"))
(setq org-noter-separate-notes-from-heading t)
(org-noter-enable-org-roam-integration))
(use-package org-pdftools
:after (org pdf-view)
:hook (org-mode . org-pdftools-setup-link))
;; ------------------------------------ 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))
;; --------------------------------- 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 --------------------------------
;; not working as-is
;; (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))
;; --------------------------------- 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.
|
