forked from bastibe/org-journal
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathorg-journal.elc
executable file
·315 lines (243 loc) · 64.5 KB
/
org-journal.elc
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
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
;ELC
;;; Compiled
;;; in Emacs version 29.1
;;; with all optimizations.
(byte-code "\301\302!\210\301\303!\210\301\304!\210\301\305!\210\301\306!\210\301\307!\210\310\311\"\203$ \312\313\314\"\210\315\316!\2044 \312\317\320\"\210\312\316\317\"\210\321\322\323\324\325\326\327\304\327\322& \207" [org-version require cal-iso epa org org-crypt seq subr-x version< "9.2" defalias org-set-tags-to org-set-tags fboundp org--tag-add-to-alist org-tag-add-to-alist #[514 "\211\204 \207\204 \207\300\301\"\302\211\203* \211@\211\242\235\204# \211B\262A\266\202\202 \210\303\"\207" [mapcar #[257 "\211\242\207" [] 2 "\n\n(fn X)"] nil append] 8 "Append ALIST1 elements to ALIST2 if they are not there yet.\n\nFrom branch \"emacs-26\", added for compatibility.\n\n(fn ALIST1 ALIST2)"] custom-declare-group org-journal nil "Settings for the personal journal" :version "1.15.1" :group] 10)
(custom-declare-face 'org-journal-highlight '((t (:foreground "#ff1493"))) "Face for highlighting org-journal buffers.")#@43 Highlight STR in current-buffer
(fn STR)
(defalias 'org-journal-highlight #[257 "eb\210\300\301\302#\205 \303\304\224\304\225\305\306$\210\202 \207" [search-forward nil t put-text-property 0 font-lock-face org-journal-highlight] 6 (#$ . 1022)])
(custom-declare-face 'org-journal-calendar-entry-face '((t (:foreground "#aa0000" :slant italic))) "Face for highlighting org-journal entries in M-x calendar.")
(custom-declare-face 'org-journal-calendar-scheduled-face '((t (:foreground "#600000" :slant italic))) "Face for highlighting future org-journal entries in M-x calendar.")
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\317\320\321&\210\300\322\302\303\323DD\324\306\325%\210\300\326\302\303\327DD\330\306\331%\210\300\332\302\303\333DD\334\306\325%\210\300\335\302\303\336DD\337\306\325%\210\300\340\302\303\341DD\342\306\325%\210\300\343\302\303\344DD\345\306\325%\210\300\346\302\303\347DD\350\306\325%\210\300\351\302\303\352DD\353\306\354%\210\300\355\302\303\356DD\357\306\354%\210\300\360\302\303\361DD\362\306\354%\210\300\363\302\303\364DD\365\306\303%\210\300\366\302\303\367DD\370\306\354%\210\300\371\302\303\372DD\373\306\303%\210\300\374\302\303\375DD\376\306\325%\210\300\377\302\303\201@ DD\201A \306\201B %\210\300\201C \302\303\201D DD\201E \306\354%\210\300\201F \302\303\201G DD\201H \306\303%\210\300\201I \302\303\201J DD\201K \306\201L %\210\300\201M \302\303\201N DD\201O \306\201P %\210\300\201Q \302\303\201R DD\201S \306\201T \201U N%\210\300\201V \302\303\201W DD\201X \306\201Y \201U N%\210\300\201Z \302\303\201[ DD\201\\ \306\303%\207" [custom-declare-variable org-journal-file-type funcall function #[0 "\300\207" [daily] 1 #1=""] "What type of journal file to create.\n\nWhen switching from daily to weekly, monthly, yearly, or from weekly,\nmonthly, yearly to daily, you need to invalidate the cache. This has currently\nto be done manually by calling `org-journal-invalidate-cache'." :type (choice (const :tag "Daily" daily) (const :tag "Weekly" weekly) (const :tag "Monthly" monthly) (const :tag "Yearly" yearly)) org-journal-start-on-weekday #[0 "\300\207" [1] 1 #1#] "What day of the week to start a weekly journal.\n\nWhen `org-journal-file-type' is set to \\='weekly, start the week on\nthis day. Default is Monday." (choice (const :tag "Sunday" 0) (const :tag "Monday" 1) (const :tag "Tuesday" 2) (const :tag "Wednesday" 3) (const :tag "Thursday" 4) (const :tag "Friday" 5) (const :tag "Saturday" 6)) org-journal-dir #[0 "\300\207" ["~/Documents/journal/"] 1 #1#] "Directory containing journal entries." directory :risky t org-journal-file-format #[0 "\300\207" ["%Y%m%d"] 1 #1#] "Format string for journal file names (Default \"YYYYMMDD\").\n\nThis pattern MUST include `%Y', `%m' and `%d' when `org-journal-file-type' is\n`daily' or `weekly'. When `org-journal-file-type' is `monthly' this pattern\nMUST at least include `%Y' and `%m', and at least `%Y' when\n`org-journalf-file-type' is `yearly'.\n\nCurrently supported placeholders are:\n\n%Y is the year as decimal number, including the century.\n%m is the month as a decimal number (range 01 to 12).\n%d is the day as a decimal number (range 01 to 31).\n%V is the ISO 8601 week number as a decimal number (range 01 to 53).\n%a is the locale’s abbreviated name of the day of week, %A the full name.\n%b is the locale's abbreviated name of the month, %B the full name.\n%F is the ISO 8601 date format (equivalent to \"%Y-%m-%d\")." string org-journal-date-format #[0 "\300\207" ["%A, %x"] 1 #1#] "Format string for date entries.\n\nBy default \"WEEKDAY, DATE\", where DATE is what Emacs thinks is an\nappropriate way to format days in your language.\nIf the value is a function, the function will be evaluated and the return\nvalue will be inserted." (choice (string :tag "String") (function :tag "Function")) org-journal-search-result-date-format #[0 "\300\207" ["%A, %x"] 1 #1#] "Date format string for search result.\n\nBy default \"WEEKDAY, DATE\", where DATE is what Emacs thinks is an\nappropriate way to format days in your language." org-journal-date-prefix #[0 "\300\207" ["* "] 1 #1#] "Prefix for `org-journal-date-format'.\n\nThe default prefix creates an `org-mode' heading. This default\nshould not be changed for weekly, monthly or yearly journal\nfiles. An alternative for daily journal files could be\n\"#+title: \" creating a title rather than a heading. To create\na \"#+title: \" for weekly, monthly or yearly (but also daily)\njournal files, customize `org-journal-file-header' instead." org-journal-time-format #[0 "\300\207" ["%R "] 1 #1#] "Format string for time entries.\n\nBy default HH:MM. Set it to a blank string if you want to disable timestamps." org-journal-time-format-post-midnight #[0 "\300\207" [#1#] 1 #1#] "When non-blank, a separate time format string for after midnight.\n\nWhen the current time is before the hour set by `org-extend-today-until'." org-journal-time-prefix #[0 "\300\207" ["** "] 1 #1#] "String that is put before every time entry in a journal file.\n\nBy default, this is an org-mode sub-heading." org-journal-hide-entries-p #[0 "\300\207" [t] 1 #1#] "If true, `org-journal-mode' will hide all but the current entry\nwhen creating a new one." boolean org-journal-enable-encryption #[0 "\300\207" [nil] 1 #1#] "If non-nil, new journal entries will have a `org-crypt-tag-matcher' tag\nfor encrypting.\n\nWhenever a user saves/opens these journal entries, emacs asks a user passphrase\nto encrypt/decrypt it." org-journal-encrypt-journal #[0 "\300\207" [nil] 1 #1#] "If non-nil, encrypt journal files using gpg.\n\nThe journal files will have the file extension \".gpg\"." org-journal-encrypt-on #[0 "\300\207" [before-save-hook] 1 #1#] "Hook on which to encrypt entries.\n\nIt can be set to other hooks like `kill-buffer-hook'." org-journal-enable-agenda-integration #[0 "\300\207" [nil] 1 #1#] "If non-nil, automatically adds current and future org-journal files\nto `org-agenda-files'." org-journal-find-file #[0 "\300\207" [find-file-other-window] 1 #1#] "The function to use when opening an entry.\n\nSet this to `find-file' if you don't want org-journal to split your window." org-journal-carryover-items #[0 "\300\207" ["TODO=\"TODO\""] 1 #1#] "Carry over items that match these criteria from the previous entry to\nnew entries.\n\nSee agenda tags view match description for the format of this." org-journal-skip-carryover-drawers #[0 "\300\207" [nil] 1 #1#] "By default, we carry over all the drawers associated with the items.\n\nThis option can be used to skip certain drawers being carried over.\nThe drawers listed here will be wiped completely, when the item gets\ncarried over." list org-journal-carryover-headings-only #[0 "\300\207" [nil] 1 #1#] "If non-nil, carry over only headings plus assosiated drawers available.\n\n--added by dks" org-journal-handle-old-carryover #[0 "\300\207" [org-journal--delete-old-carryover] 1 #1#] "The function to handle the carryover entries in the previous journal.\n\nThis function takes one argument, which is a list of the carryover entries\nin the journal of previous day.\nThe list is in form of ((START_POINT (END_POINT . \"TEXT\")) ...\n(START_POINT (END_POINT . \"TEXT\"))); and in ascending order of START_POINT.\n\nDefault is the function `org-journal--delete-old-carryover' to delete them all." org-journal-carryover-delete-empty-journal #[0 "\300\207" [never] 1 #1#] "Delete empty journal entry/file after carryover.\n\nDefault is to `never' delete an empty journal entry/file.\nOther options are `always',i.e. don't prompt, just delete or `ask'" (choice (const :tag "never" never) (const :tag "always" always) (const :tag "ask" ask)) org-journal-search-results-order-by #[0 "\300\207" [:asc] 1 #1#] "When :desc, make search results ordered by date descending,\notherwise date ascending." symbol org-journal-tag-alist #[0 "\300\207" [nil] 1 #1#] "Default tags for use in Org-Journal mode.\n\nThis is analogous to `org-tag-alist', and uses the same format.\nIf nil, the default, then `org-tag-alist' is used instead.\nThis can also be overridden on a file-local level by using a “#+TAGS:”\nkeyword." org-tag-alist custom-type org-journal-tag-persistent-alist #[0 "\300\207" [nil] 1 #1#] "Persistent tags for use in Org-Journal mode.\n\nThis is analogous to `org-tag-persistent-alist', and uses the same\nformat. If nil, the default, then `org-tag-persistent-alist' is used\ninstead. These tags cannot be overridden with a “#+TAGS:” keyword, but\nthey can be disabled per-file by adding the line “#+STARTUP: noptag”\nanywhere in your file." org-tag-persistent-alist org-journal-search-forward-fn #[0 "\300\207" [search-forward] 1 #1#] "The function used by `org-journal-search` to look for the string forward\nin a buffer.\n\nDefaults to search-forward.\nYou can, for example, set it to `search-forward-regexp` so the\nsearch works with regexps."] 8)
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\307%\210\300\313\302\303\314DD\315\306\316%\210\300\317\302\303\320DD\321\306\322%\210\300\323\302\303\324DD\325\306\322%\207" [custom-declare-variable org-journal-follow-mode funcall function #[0 "\300\207" [nil] 1 #1=""] "If `t', follow journal entry in calendar." :type boolean org-journal-enable-cache #[0 "\300\207" [nil] 1 #1#] "If `t', journal entry dates will be cached for faster calendar operations." org-journal-file-header #[0 "\300\207" [#1#] 1 #1#] "A string which should be inserted at the top of a new journal file.\n\nThe string will be passed to `format-time-string' along with the time\nof the new journal entry.\n\nThe value can also be a function expecting a time value." (choice (string :tag "String") (function :tag "Function")) org-journal-created-property-timestamp-format #[0 "\300\207" ["%Y%m%d"] 1 #1#] "The created property timestamp format-string.\n\nWe must be able to reconstruct the timestamp from year,\nmonth and day.\n\nCurrently supported placeholders are:\n\n%Y is the year as decimal number, including the century.\n%m is the month as a decimal number (range 01 to 12).\n%d is the day as a decimal number (range 01 to 31).\n%V is the ISO 8601 week number as a decimal number (range 01 to 53).\n%a is the locale’s abbreviated name of the day of week, %A the full name.\n%b is the locale's abbreviated name of the month, %B the full name.\n%F is the ISO 8601 date format (equivalent to \"%Y-%m-%d\").\n\nYou must call `org-journal-convert-created-property-timestamps' afterwards,\nif you have existing journal entries." string org-journal-prefix-key #[0 "\300\207" ["C-c C-"] 1 #1#] "The default prefix key inside `org-journal-mode'.\n\nThis variable needs to set before `org-journal' gets loaded.\nWhen this variable is set to an empty string or `nil' no bindings will\nbe made.\n\nThis prefix key is used for:\n - `org-journal-next-entry' (key \"f\")\n - `org-journal-previous-entry' (key \"b\")\n - `org-journal-new-entry' (key \"j\")\n - `org-journal-search' (key \"s\")"] 6)#@43 Hook called after journal entry creation.
(defvar org-journal-after-entry-create-hook nil (#$ . 12093))#@180 Hook called after journal header creation.
The header is the string described by `org-journal-date-format'.
This runs once per date, before `org-journal-after-entry-create-hook'.
(defvar org-journal-after-header-create-hook nil (#$ . 12203))
(defvar org-journal--search-buffer "*Org-journal search*")#@246 Will be set to \='t\=' if `org-journal-new-entry' function creates a new
journal(i.e., insert a date entry) for today or the given time.
When today's journal was created before and re-opened later,
this buffer-local variable remains to be nil.
(defvar org-journal--newly-created-p nil (#$ . 12510))
(byte-code "\300\301!\210\302\303\304\"\210\302\305\304\"\207" [make-variable-buffer-local org-journal--newly-created-p add-hook calendar-today-visible-hook org-journal-mark-entries calendar-today-invisible-hook] 3)
(defvar org-journal-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [org-journal-mode-hook variable-documentation put "Hook run after entering Journal mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp org-journal-mode-map definition-name org-journal-mode] 4)
(defvar org-journal-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204* \303\307\310\311#\210\312\307\306\307!\203& \313\202( \314 \"\210\307\302N\2048 \303\307\302\304\315!#\210\306\300!\204X \303\300\310\311#\210\312\300\306\300!\203P \313\202V \316\300\313\"\210\"\210\300\302N\204f \303\300\302\304\317!#\210\303\311\320\321#\207" [org-journal-mode-abbrev-table org-journal-mode-map variable-documentation put purecopy "Keymap for `org-journal-mode'." boundp org-journal-mode-syntax-table definition-name org-journal-mode defvar-1 nil make-syntax-table "Syntax table for `org-journal-mode'." define-abbrev-table "Abbrev table for `org-journal-mode'." derived-mode-parent org-mode] 5)#@260 Mode for writing or viewing entries written in the journal.
In addition to any hooks its parent mode `org-mode' might have run,
this mode runs the hook `org-journal-mode-hook', as the final or
penultimate step during initialization.
\{org-journal-mode-map}
(defalias 'org-journal-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R !=\204R \326\325!C#\210\327 !\210\330\f!\210!\331 \210\332\333\334\335\307$\210\"\204q #\203t \336 \210\337 )\210\337\340!\207" [delay-mode-hooks major-mode mode-name org-journal-mode-map org-journal-mode-syntax-table org-journal-mode-abbrev-table make-local-variable t org-mode org-journal-mode "Journal" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table turn-on-visual-line-mode add-hook after-save-hook org-journal-after-save-hook nil org-journal--set-current-tag-alist run-mode-hooks org-journal-mode-hook local-abbrev-table org-journal-tag-alist org-journal-tag-persistent-alist] 5 (#$ . 14180) nil])
(byte-code "\302\303\304\305#\210\306\303\304\307#\210\302\310\311\305#\210\306\310\311\307#\210;\203Y \211\312\230\262\204Y \313\314\315\"\2032 \316\2023 \317\305\211:\203W @\262\211A\262\242\262\320 \"#\210A\262\2026 \266\321\322\323\"\210\324\325\326\"\207" [org-journal-prefix-key org-journal-mode-map defalias org-journal-open-next-entry org-journal-next-entry nil make-obsolete "2.1.0" org-journal-open-previous-entry org-journal-previous-entry "" (("f" . org-journal-next-entry) ("b" . org-journal-previous-entry) ("j" . org-journal-new-entry) ("s" . org-journal-search)) string-prefix-p "\\" concat #[514 "\300P!\207" [kbd] 5 "\n\n(fn PREFIX KEY)"] define-key eval-after-load "calendar" #[0 "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\317#\210\301\320\321#\210\301\322\323#\210\301\324\325#\210\301\326\327#\207" [calendar-mode-map define-key "jm" org-journal-mark-entries "jr" org-journal-read-entry "jd" org-journal-display-entry "]" org-journal-next-entry "[" org-journal-previous-entry "jn" org-journal-new-date-entry "jsf" org-journal-search-forever "jsF" org-journal-search-future "jsw" org-journal-search-calendar-week "jsm" org-journal-search-calendar-month "jsy" org-journal-search-calendar-year] 4] global-set-key "\n" org-journal-new-entry] 10)#@210 Opens JOURNAL-FILE in fundamental mode, or switches to the buffer
which is visiting JOURNAL-FILE.
Returns the last value from BODY. If the buffer didn't exist before
it will be deposed.
(fn FILE &rest BODY)
(defalias 'org-journal--with-journal '(macro . #[385 "\300\301\302\303DDD\304\305\301\211\306\303 DDFD\307BB\310\304\311\301\312DE\313\314\315BEF\316BBB\207" [let* buffer-exists get-buffer file-name-nondirectory buf if generate-new-buffer (result) with-current-buffer unless insert-file-contents setq result progn ((unless buffer-exists (kill-buffer buf)) result)] 11 (#$ . 16797)]))#@32 Update agenda files and dates.
(defalias 'org-journal-after-save-hook #[0 "\300 \210\301 \210\302 \207" [org-journal--update-org-agenda-files org-journal--dates-puthash org-journal--serialize] 1 (#$ . 17401)])#@38 Determine if file is a journal file.
(defalias 'org-journal-is-journal #[0 "\300 \205 \301\302 \300 \"\207" [buffer-file-name string-match org-journal--dir-and-file-format->pattern] 3 (#$ . 17616)])
(add-to-list 'magic-mode-alist '(org-journal-is-journal . org-journal-mode))#@41 Return the current journal file pattern
(defalias 'org-journal--dir-and-file-format->pattern #[0 "\302\303!!\304 !\305Q\207" [org-journal-dir org-journal-file-format file-name-as-directory file-truename org-journal--format->regex "\\(\\.gpg\\)?\\'"] 3 (#$ . 17898)])
(defvar org-journal--format-rx-alist '(("%[aAbB]" . "\\\\(?4:[a-zA-Z]\\\\{3,\\\\}\\\\)") ("%d" . "\\\\(?3:[0-9]\\\\{2\\\\}\\\\)") ("%m" . "\\\\(?2:[0-9]\\\\{2\\\\}\\\\)") ("%Y" . "\\\\(?1:[0-9]\\\\{4\\\\}\\\\)") ("%V" . "[0-9]\\\\{2\\\\}")))#@15
(fn FORMAT)
(defalias 'org-journal--format->regex #[257 "\301\302\303#\262\304\305!\262:\203' @\262\301@A#\262A\262\202 \207" [org-journal--format-rx-alist replace-regexp-in-string "%F" "%Y-%m-%d" nil regexp-quote] 7 (#$ . 18413)])#@33 Regex to find created property.
(defvar org-journal--created-re "^ *:CREATED: +.*$" (#$ . 18668))#@76 Search for CREATED tag with date.
(fn DATE &optional BOUND NOERROR COUNT)
(defalias 'org-journal--search-forward-created #[1025 "\301\302\303\304!\305Q\306!\"$\207" [org-journal-created-property-timestamp-format re-search-forward format-time-string "[ ]*:CREATED:[ ]+" regexp-quote "[ ]*$" org-journal--calendar-date->time] 9 (#$ . 18771)])#@58 Returns t if `org-journal-file-type' is set to `'daily'.
(defalias 'org-journal--daily-p #[0 "\301=\207" [org-journal-file-type daily] 2 (#$ . 19127)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-journal--daily-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@58 Returns t if `org-journal-date-prefix' starts with "* ".
(defalias 'org-journal--org-heading-p #[0 "\301\302\"\303=\207" [org-journal-date-prefix string-match "^* " 0] 3 (#$ . 19431)])#@106 Convert CREATED property timestamps to
`org-journal-created-property-timestamp-format'.
(fn OLD-FORMAT)
(defalias 'org-journal-convert-created-property-timestamps #[257 "\303=\203\n \304\305!\207\306 \211\205\203 \211@\307\310\311!!\211\205 \312!r\206( \313!q\210eb\210\3141j \315\316!)!\211\205c \211@\317\307\320#)\204R \321\322#\210\323\324\325\n\326!\"\"\210A\266\202\2029 \2620\210\202k \210\211\204r \327 \210\204y \330 \210*\266A\266\202\202\f \207" [org-journal-file-type inhibit-read-only org-journal-created-property-timestamp-format daily message "Nothing to do, org-journal-file-type is 'daily" org-journal--list-files nil get-buffer file-name-nondirectory buffer-modified-p find-file-noselect (error) reverse org-journal--file->calendar-dates org-journal--search-forward-created t error "Didn't find journal entry in file (%s), date was (%s) " org-set-property "CREATED" format-time-string org-journal--calendar-date->time save-buffer kill-buffer] 13 (#$ . 19623) "sEnter old format: "])#@362 Converts TIME to the file type format date.
If `org-journal-file-type' is \='weekly, the TIME will be rounded to
the first date of the week.
If `org-journal-file-type' is \='monthly, the TIME will be rounded to
the first date of the month.
If `org-journal-file-type' is \='yearly, the TIME will be rounded to
the first date of the year.
(fn &optional TIME)
(defalias 'org-journal--convert-time-to-file-type-time #[256 "\211\204 \302 \262\303\267\202\255\207\304\305\306\307\310\311\"\312\"\"!\305\306\307\310\313\"\312\"\"\211\3148\262\315\316U\203< \317\320!\266\203\202z\316V\203\262 S\262\321\211\211@\262\211A@\262\3148\262\322S_\\\314V\203\235 \211\323\324_\\\325\245Z\262\211\316W\203~ \326!S\262\211\324\246\316U\205\224 \211\327\246\316U?\206\224 \211\330\246\316U\262\203\235 \211T\262\266\204\331_\324\245\327\245[\330\245%\266\203\202z\326T!\262\332\211\211@\262\211A@\262\3148\262\322S_\\\314V\203\211\323\324_\\\325\245Z\262\211\316W\203\360 \326!S\262\211\324\246\316U\205\211\327\246\316U?\206\211\330\246\316U\262\203\211T\262\266\204\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3148\262\322S_\\\314V\203t\211\323\324_\\\325\245Z\262\211\316W\203U\326!S\262\211\324\246\316U\205k\211\327\246\316U?\206k\211\330\246\316U\262\203t\211T\262\266\204&\266\203 S\\\334V\203\213\335Z\202\214!\336!\207\336\305\306\307\310\337\"\312\"\"!\207\336\305\306\307\310\340\"\312\"\"!\207\315\207" [org-journal-file-type org-journal-start-on-weekday current-time #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (daily 14 weekly 15 monthly 401 yearly 415)) calendar-iso-to-absolute mapcar string-to-number split-string format-time-string "%V 1 %G" " " "%m %d %Y" 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-gregorian-from-absolute 7 org-journal--calendar-date->time "%m 1 %Y" "1 1 %Y"] 20 (#$ . 20654)])#@109 Return the path to an entry matching TIME, if no TIME is given, uses
the current time.
(fn &optional TIME)
(defalias 'org-journal--get-entry-path #[256 "\303\304\305\306!\" \"!\n\203 \307!\204 \211\310P\262\207" [org-journal-file-format org-journal-dir org-journal-encrypt-journal file-truename expand-file-name format-time-string org-journal--convert-time-to-file-type-time file-exists-p ".gpg"] 7 (#$ . 22673)])#@93 Check for existence of `org-journal-dir', if it doesn't
exist, try to create the directory.
(defalias 'org-journal--dir-check-or-create #[0 "\301!?\205 \302\303\304\305!\"!\203 \306\305!\307\"\207\310\311!\207" [org-journal-dir file-exists-p yes-or-no-p format "Journal directory %s doesn't exists. Create it? " file-truename make-directory t user-error "A journal directory is necessary to use org-journal"] 5 (#$ . 23099)])#@243 Set `org-current-tag-alist' for the current journal file.
This allows the use of `org-journal-tag-alist' and
`org-journal-tag-persistent-alist', which when non-nil override
`org-tag-alist' and `org-journal-tag-persistent-alist' respectively.
(defalias 'org-journal--set-current-tag-alist #[0 "\305\206 \306\307!\203 \307\310\311!!\202 \312\313!\314\236A\203+ \211\203+ \315!\266\202\2022 \n\2060 \266\202\"\211\207" [org-journal-tag-persistent-alist org-tag-persistent-alist org-journal-tag-alist org-tag-alist org-current-tag-alist org--tag-add-to-alist fboundp org--setup-collect-keywords org-make-options-regexp ("FILETAGS" "TAGS" "SETUPFILE") org-collect-keywords ("FILETAGS" "TAGS") tags org-tag-string-to-alist] 6 (#$ . 23536)])#@69 Return t if DATE1 is before DATE2, nil otherwise.
(fn DATE1 DATE2)
(defalias 'org-journal--calendar-date-compare #[514 "\211\3008\262\301\302U\203 \303\304!\266\203\202T\302V\203\214 S\262\305\211\211@\262\211A@\262\3008\262\306S_\\\300V\203w \211\307\310_\\\311\245Z\262\211\302W\203X \312!S\262\211\310\246\302U\205n \211\313\246\302U?\206n \211\314\246\302U\262\203w \211T\262\266\204\315_\310\245\313\245[\314\245%\266\203\202T\312T!\262\316\211\211@\262\211A@\262\3008\262\306S_\\\300V\203\351 \211\307\310_\\\311\245Z\262\211\302W\203\312 \312!S\262\211\310\246\302U\205\340 \211\313\246\302U?\206\340 \211\314\246\302U\262\203\351 \211T\262\266\204\315_\310\245\313\245[\314\245\317\211\211@\262\211A@\262\3008\262\306S_\\\300V\203N\211\307\310_\\\311\245Z\262\211\302W\203/\312!S\262\211\310\246\302U\205E\211\313\246\302U?\206E\211\314\246\302U\262\203N\211T\262\266\204&\266\203\211\3008\262\301\302U\203j\303\304!\266\203\202\250\302V\203\340S\262\305\211\211@\262\211A@\262\3008\262\306S_\\\300V\203\313\211\307\310_\\\311\245Z\262\211\302W\203\254\312!S\262\211\310\246\302U\205\302\211\313\246\302U?\206\302\211\314\246\302U\262\203\313\211T\262\266\204\315_\310\245\313\245[\314\245%\266\203\202\250\312T!\262\316\211\211@\262\211A@\262\3008\262\306S_\\\300V\203=\211\307\310_\\\311\245Z\262\211\302W\203 \312!S\262\211\310\246\302U\2054\211\313\246\302U?\2064\211\314\246\302U\262\203=\211T\262\266\204\315_\310\245\313\245[\314\245\317\211\211@\262\211A@\262\3008\262\306S_\\\300V\203\242\211\307\310_\\\311\245Z\262\211\302W\203\203\312!S\262\211\310\246\302U\205\231\211\313\246\302U?\206\231\211\314\246\302U\262\203\242\211T\262\266\204&\266\203W\207" [2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 21 (#$ . 24286)])#@483 Open today's journal file and start a new entry.
With a PREFIX arg, open the today's file; create a heading if it doesn't
exist yet;
create a new entry. -- reverted by dks
If given a TIME, create an entry for the time's day. If no TIME was given,
use the current time (which is interpreted as belonging to yesterday if
smaller than `org-extend-today-until`).
Whenever a journal entry is created the `org-journal-after-entry-create-hook'
hook is run.
(fn PREFIX &optional TIME)
(defalias 'org-journal-new-entry #[513 "\306 \210\307\310\307!\2043 \3118W\2033 \312\262\313@A@\3118\3148S\3158\3168\3178&\262\210\320!\307\321 \230\204C !\210\322\323!\210\324\n!\204[ \n;\203\201 \n\211\325\230\262\204\201 \326 \327U\203\201 \324\n!\203n \n!\202r \330\n\"c\210\212\331\332\307\312#\203\200 \333 \210)\324 !\203\215 !\202\241 \211\325\230\262\203\232 \334\335!\210\f\330 \"Peb\210\336\307\312#\2042\337=\204\356 \310!\340\341\321 !\342\"\3158\3148\3168E\262\211\203\354 \343@\"\203\345 \344@!\210\345 \210\346c\210\312\262\307\262\211A\262\202\310 \266\204\370 db\210\307y\210\347\350\351 \"\203\346c\210\352 \210\211c\210\337=\204\353\354\330;\"\"\210<\203+=\355 \235\204+\356=!\210\312>\357\360!\210\210\361 \210>\203\\?\203\\?\362\307\363\312$\266\204\204\\\320\364 !\230\203\\\365 \210\366 \203g\345 \210\202jdb\210\203\263i\327=\204w\346c\210\367\364 !\367!Z\211\327U\203\214\330@!\202\254\211\370U\203\253\203\253A\325\230\204\244\330A!\202\254\330@!\202\254\325B\261\266\357\371!\210\372 \207" [org-extend-today-until org-journal-find-file org-journal-file-header org-journal-date-format org-journal-date-prefix org-journal-file-type org-journal--dir-check-or-create nil decode-time 2 t encode-time 3 4 5 8 org-journal--get-entry-path buffer-file-name view-mode -1 functionp "" buffer-size 0 format-time-string re-search-backward "^#\\+" org-ctrl-c-ctrl-c user-error "org-journal-date-format is empty, this won't work" search-forward daily sort org-journal--file->calendar-dates #[514 "\300\"\207" [org-journal--calendar-date-compare] 5 "\n\n(fn A B)"] org-journal--calendar-date-compare org-journal--search-forward-created outline-end-of-subtree "\n" looking-back "[^ ]" pos-bol beginning-of-line org-set-property "CREATED" org-get-tags org-set-tags run-hooks org-journal-after-header-create-hook org-journal--decrypt "\\`[ \n]*\\'" string-match current-time org-journal--carryover org-journal--org-heading-p time-to-days 1 org-journal-after-entry-create-hook org-journal--finalize-view org-journal-created-property-timestamp-format org-journal-enable-encryption org-crypt-tag-matcher org-journal--newly-created-p org-journal-carryover-items org-journal-time-format org-journal-time-format-post-midnight org-journal-time-prefix] 14 (#$ . 26241) "P"])#@109 Will be set to the `t' if `org-journal--open-entry' is visiting a
buffer not open already, otherwise `nil'.
(defvar org-journal--kill-buffer nil (#$ . 29103))#@20
(fn PREV-BUFFER)
(defalias 'org-journal--empty-journal-p #[257 "\302\212\303\304\211\"\210\305 \203 \306 \202 \307`d\")\262\310\311\304\"r\211q\210\312\313\"\216c\210eb\210\302\211\314\315P\302\304#\203A \316\317\224\317\225\"\210\202- \314 \302\304#\203_ \317\224\262\314 \302\304#\210\317\225\262\316\"\210\202A \266\320 \302\321\203m \322\202n \323\324\321\325\324##\266\202\211\324\230*\207" [org-ts-regexp-both org-drawer-regexp nil org-journal--open-entry t org-journal--org-heading-p org-get-entry buffer-substring-no-properties generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward " *\\(CLOSED\\|DEADLINE\\|SCHEDULED\\): *" kill-region 0 buffer-string replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n]+" "" "[ \n]+\\'"] 12 (#$ . 29267)])#@72 Removes the drawer configured via `org-journal-skip-carryover-drawers'
(defalias 'org-journal--remove-drawer #[0 "\212\214\302=\204 \303 \210eb\210\304\305\306\307 \"\"*\207" [org-journal-file-type org-journal-skip-carryover-drawers daily org-narrow-to-subtree mapc delete-matching-lines mapcar #[257 "\300\301\"\207" [format ".*%s:[\\n[:ascii:]]+?:END:$"] 4 "\n\n(fn X)"]] 5 (#$ . 30118)])#@195 Check if the previous entry/file is empty after we carried over the
items, and delete or not delete the empty entry/file based on
`org-journal-carryover-delete-empty-journal'.
(fn PREV-BUFFER)
(defalias 'org-journal--carryover-delete-empty-journal #[257 "\302!\205W \303=\203 \304\305!\204 \306=\205W \307\212\310\307\211\"\210\310\307\211\"?\206, p=?)\203E p=\204E \311\312!!\210\313!\210\314 \202V \212\310\307\211\"\210\315`\316 \210`\"\210\317 ))\207" [org-journal-carryover-delete-empty-journal inhibit-message org-journal--empty-journal-p ask y-or-n-p "Delete empty journal entry/file?" always t org-journal--open-entry delete-file buffer-file-name kill-buffer org-journal--list-dates kill-region outline-end-of-subtree save-buffer] 4 (#$ . 30518)])#@144 Delete all carryover entries from the previous day's journal.
If the parent heading has no more content, delete it as well.
(fn OLD_ENTRIES)
(defalias 'org-journal--delete-old-carryover #[257 "\300\301\302!\"\207" [mapc #[257 "\212\211A@Sb\210\300 )?\205 \301@A@\"\207" [org-goto-first-child kill-region] 4 "\n\n(fn X)"] reverse] 5 (#$ . 31291)])#@173 Carryover items.
Will insert `text', and run `org-journal-handle-old-carryover' function
to process the carryover entries in `prev-buffer'.
(fn TEXT ENTRIES PREV-BUFFER)
(defalias 'org-journal-carryover-items #[771 "\205\223 \303 \203 \304 \204 \305 \210\202 db\210\306\307!\210i\310=\204$ \311c\210c\210\212\312=\2034 eb\210\2029 \304 \2044 \203@ \313 \210\212\314\315\316\317#\203\207 \212\320 b\210\314\321\322 \317#)\204A \323\324\325\326\327 \330\331\"\216\312=\203p \332\333 !\202y \212\304 \204q \334 ))\262!\"\316\211\211\335%\210\202A *\305 \210r\211q\210\n!)\207" [org-journal-file-type org-journal-skip-carryover-drawers org-journal-handle-old-carryover org-journal--org-heading-p org-up-heading-safe outline-end-of-subtree view-mode -1 0 "\n" daily org-journal--remove-drawer re-search-forward "<\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\( [a-z]+\\)?\\)>" nil t pos-bol "\\<\\(SCHEDULED\\|DEADLINE\\):" pos-eol replace-match format-time-string "%Y-%m-%d %a" org-journal--calendar-date->time match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] org-journal--file-name->calendar-date buffer-file-name org-journal--entry-date->calendar-date 1] 11 (#$ . 31650)])#@106 Moves all items matching `org-journal-carryover-items' from the
previous day's file to the current file.
(defalias 'org-journal--carryover #[0 "\305\306\307\211\212\214\310\311\211\"\203 p\262 \312=\204 \313 \210\314\n\"\262*\211\203\271 \203\271 \307\211\211\211\307:\203\234 @\262\211\307\315:\203\223 @\262\211T\262@A@B \235\204\214 @A@B B\262 AAP\262\316\317AA\"\210\320\315AA\"P\262\203\210 \321!C\241\210\202\214 C\262A\262\202; \266A\262\202/ \266 \203\255 \302#\266\202\265 \302#\266\322!\210\f\205\305 \323\324\f\"\210\307\211)\207" [org-journal-find-file org-journal-file-type org-journal-carryover-items org-journal-carryover-headings-only org-journal--kill-buffer find-file #[0 "\301 `\207" [org-map-continue-from org-journal--carryover-item-with-parents] 2] nil org-journal--open-entry t daily org-narrow-to-subtree org-map-entries 0 string-match "^\\*+ +.+\n\\(?::[[:ascii:]]+?:\\(?:.\\|\n\\)+?:END:\n\\)*" match-string last org-journal--carryover-delete-empty-journal mapc kill-buffer] 16 (#$ . 32862) nil])#@151 Return carryover item inclusive the parents.
The parents ... The carryover item
;; ((START END . "TEXT") ... (START END . "TEXT"))
(defalias 'org-journal--carryover-item-with-parents #[0 "\300\211\211\211\212\301 \302 V\203- \303 \210`\262\212\304 \210`)\262\305\"\262BBB\262\202 )\306 \262\304 \210`\262\305\"\262\307BBC\"\211\262\207" [nil org-outline-level org-journal--time-entry-level org-up-heading-safe outline-next-heading buffer-substring-no-properties pos-bol append] 9 (#$ . 33946)])#@172 Return the headline level of time entries based on the number
of leading asterisks in `org-journal-time-prefix'.
Return nil when it's impossible to figure out the level.
(defalias 'org-journal--time-entry-level #[0 "\301\302\"\205\f \303\304\"G\207" [org-journal-time-prefix string-match "\\(^*+\\)" match-string 1] 3 (#$ . 34487)])#@85 Convert a date as returned from the calendar (MONTH DAY YEAR) to a time.
(fn DATE)
(defalias 'org-journal--calendar-date->time #[257 "\300\301\211\211A@@\3028&\207" [encode-time 0 2] 9 (#$ . 34828)])#@113 Convert an org-journal file name to a calendar date.
Month and Day capture group default to 1.
(fn FILE-NAME)
(defalias 'org-journal--file-name->calendar-date #[257 "\301 \302\211\303\304\305\306#!\262\211\307U\203 \310\311\"\210\312\313\"\250\2042 \314>\2032 \310\315\"\210\202< \304\305\316#!\262\312\317\"\250\204S \320>\203S \310\321\"\210\202] \304\305\322#!\262E\207" [org-journal-file-type org-journal--dir-and-file-format->pattern 1 nil string-to-number replace-regexp-in-string "\\1" 0 user-error "Failed to extract year from file: %s" string-match "(?2:" (daily weekly monthly) "Failed to extract month from file: %s" "\\2" "(?3:" (daily weekly) "Failed to extract day from file: %s" "\\3"] 10 (#$ . 35040)])#@174 Return journal calendar-date from current buffer.
This is the counterpart of `org-journal--file-name->calendar-date' for
\='weekly, \='monthly and \='yearly journal files.
(defalias 'org-journal--entry-date->calendar-date #[0 "\301!\302\303`\304\"\262\3051 \306\"0\202 \210\302\204# \307\310\311 $\210\312\313\314\"!\312\313\315\"!\312\313\316\"!E\207" [org-journal-created-property-timestamp-format org-journal--format->regex nil org-entry-get "CREATED" (error) string-match user-error "Created property timestamp format \"%s\" doesn't match CREATED property value (%s) from entry at line: %s" what-line string-to-number match-string 2 3 1] 8 (#$ . 35793)])#@44 Return journal dates from FILE.
(fn FILE)
(defalias 'org-journal--file->calendar-dates #[257 "\301\302!!\211\206 \303\302!!\304rq\210\204 \305!\210\304\212eb\210\306\304\307#\203= \212\310 \210\311 )\312U\203 \313 B\262\202 *\211\262\262\204K \314!\210\207" [org-journal--created-re get-buffer file-name-nondirectory generate-new-buffer nil insert-file-contents re-search-forward t org-back-to-heading org-outline-level 1 org-journal--entry-date->calendar-date kill-buffer] 9 (#$ . 36469)])#@364 Open the journal for the date indicated by point and start a new entry.
If the date is not today, it won't be given a time heading.
With one prefix (C-u), don't add a new heading.
If the date is in the future, create a schedule entry, unless two universal
prefix arguments (C-u C-u) are given. In that case insert just the heading.
(fn PREFIX &optional EVENT)
(defalias 'org-journal-new-date-entry #[513 "\3001 \301\302\303\"!0\202 \210\202 \206 \304\305\306\211\211\307$!\310\311 \"\203* \312\"\207\313\314\315\"\"\207" [(error) org-journal--calendar-date->time calendar-cursor-to-date t org-time-string-to-time org-read-date nil "Date:" time-less-p current-time org-journal-new-entry org-journal-new-scheduled-entry format-time-string "%Y-%m-%d"] 8 (#$ . 36983) (list current-prefix-arg last-nonmenu-event)])#@73 Create a new entry in the future.
(fn PREFIX &optional SCHEDULED-TIME)
(defalias 'org-journal-new-scheduled-entry #[513 "\301\206 \302\303\211\211\304$!\305!\303\306\307U\")\210\211\307U?\205/ \204' \310c\210\212\311c\210\312!)\207" [org-journal-carryover-items org-time-string-to-time org-read-date nil "Date:" prefix-numeric-value org-journal-new-entry 16 "TODO " "\n" org-insert-time-stamp] 8 (#$ . 37812) "P"])#@53 Goto DATE entry in current journal file.
(fn DATE)
(defalias 'org-journal--goto-entry #[257 "~\210eb\210\301=\203 \302\303!\210\202 \304!\210\305 \207" [org-journal-file-type daily outline-next-visible-heading 1 org-journal--search-forward-created org-journal--finalize-view] 3 (#$ . 38241)])#@121 Sorts DATES to determine the order of journal entries.
Can be advisedeplaced by a user.
(fn DATES CALENDAR-DATE PREV)
(defalias 'org-journal-sort-dates #[771 "\235\204I \300!\262\301\302:\203* @\262\303\"\203* \211T\262A\262\202 \211\302V\203A \211S\233\233B\241\266\202I B\262\266\211\203Q \304!\207\207" [copy-tree nil 0 org-journal--calendar-date-compare reverse] 10 (#$ . 38545)])#@163 Open journal entry.
If PREV is non-nil, open previous entry instead of next.
If NO-SELECT is non-nil, open it, but don't show it.
(fn &optional PREV NO-SELECT)
(defalias 'org-journal--open-entry #[512 "\303=\203 \304\305\306 !!\202 \307 \204 \310 \311\312 #\211\203J \211@\203J \2033 \313@\"\2028 \313@\"\204C \314@\"\203J \211A\262\202 \211\205\233 \211@\205\233 \315\316@!!\317!\203v \203k \317!q\210\202q \320\317!!\210\321\202\207 \203\201 \322!q\202\204 \323!\nB\324@!\210\301\203\225 \325\202\226 \326!\210\327\262\207" [org-journal-file-type view-mode org-journal--kill-buffer daily org-journal--file-name->calendar-date file-truename buffer-file-name org-up-heading-safe org-journal--entry-date->calendar-date org-journal-sort-dates org-journal--list-dates org-journal--calendar-date-compare calendar-date-equal org-journal--get-entry-path org-journal--calendar-date->time get-file-buffer switch-to-buffer nil find-file-noselect find-file org-journal--goto-entry 1 -1 t] 9 (#$ . 38967)])#@31 Open the current journal file
(defalias 'org-journal-open-current-journal-file #[0 "\302 \303!\203 !\210 \304=?\205# \305!@\211\205 \306!\207\307\310\"\207" [org-journal-find-file org-journal-file-type org-journal--get-entry-path file-exists-p daily org-journal--file->calendar-dates org-journal--goto-entry message "Journal file %s not found"] 4 (#$ . 40000) nil])#@55 Returns a list of all files in the journal directory.
(defalias 'org-journal--list-files #[0 "\301 \210\302\303\304\305!!!\306\"\307\310\"\207" [org-journal-dir org-journal--dir-check-or-create directory-files-recursively file-truename expand-file-name file-name-as-directory ".*" #[257 "\301 \302\303\304$\266\203\205 \206 \305\302\303\304$\266\203?\207" [org-journal-encrypt-journal org-journal--dir-and-file-format->pattern nil string-match t ".gpg$"] 9 "\n\n(fn FILE-PATH)"] seq-filter] 5 (#$ . 40379)])#@38 Cache file for `org-journal--dates'.
(defconst org-journal--cache-file (expand-file-name "org-journal.cache" user-emacs-directory) (#$ . 40906))#@142 Hash table for journal dates.
The key is a journal date entry, and the value of the key is of the form
(FILENAME (FILE MODIFICATION TIME)).
(defvar org-journal--dates (make-hash-table :test 'equal) (#$ . 41057))#@60 Clear `org-journal--dates' hash table, and the cache file.
(defalias 'org-journal-invalidate-cache #[0 "\302!\210 \205\n \303 \207" [org-journal--dates org-journal-enable-cache clrhash org-journal--serialize] 2 (#$ . 41275) nil])#@13
(fn FILE)
(defalias 'org-journal--file-modification-time #[257 "\300\301!8\207" [5 file-attributes] 4 (#$ . 41511)])#@23
(fn &optional FILE)
(defalias 'org-journal--dates-puthash #[256 "\211C\211\242\204\f \211\302 \240\210\303\242!\304=\203\" \305\306\242!\242D #\207\307\310\311\" \"\210\312\242!\211\205D \211@\305\242D #\210A\266\202\202. \207" [org-journal-file-type org-journal--dates buffer-file-name org-journal--file-modification-time daily puthash org-journal--file-name->calendar-date maphash make-closure #[514 "\302 \"@\300\242\230\205 \303 \"\207" [V0 org-journal--dates gethash remhash] 5 "\n\n(fn KEY --CL-VAR--)"] org-journal--file->calendar-dates] 9 (#$ . 41636)])#@24 Write hashmap to file.
(defalias 'org-journal--serialize #[0 "\203E \304\305 !!\204 \306\305 !\307\"\210\310 !\203@ \311\312\307\"\313\314\"\216r\211q\210\315\316 !c*\210r\211q\210\317\315\211\315\320%*\266\202E \321\322 \"\210\323 \207" [org-journal-enable-cache org-journal--cache-file print-length org-journal--dates file-directory-p file-name-directory make-directory t file-writable-p generate-new-buffer " *temp file*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] nil prin1-to-string write-region 0 error "%s is not writable" org-journal--sort-dates] 8 (#$ . 42219)])#@25 Read hashmap from file.
(defalias 'org-journal--deserialize #[0 "\2036 \30310 \304 !\205+ \305\306\307\"r\211q\210\310\311\"\216\312 !\210\313\314 \315 {!\211*\2620\210\2026 \316\317\"\266\320 \207" [org-journal-enable-cache org-journal--cache-file org-journal--dates (debug error) file-exists-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents read pos-bol pos-eol message "Error during file deserialization: %S" org-journal--sort-dates] 4 (#$ . 42840)])
(defvar org-journal--sorted-dates nil)#@79 Flatten and sort dates, and assign the result to `org-journal-flatten-dates'.
(defalias 'org-journal--sort-dates #[0 "\302\303C\304\305\306\"\"\210\211\242\266\202\307\"\211\207" [org-journal--dates org-journal--sorted-dates sort nil maphash make-closure #[514 "\300\300\242B\240\207" [V0] 5 "\n\n(fn K _)"] org-journal--calendar-date-compare] 7 (#$ . 43430)])#@122 Return all journal dates.
The list ((month day year) ...) contains calendar dates, and is sorted
from oldest to newest.
(defalias 'org-journal--list-dates #[0 "\302 \303C\303\211C\304!\305U\262\2036 \306 \210\304!\305U\262\2036 \211\2032 \211@\307!\210A\266\202\202! \210\310\262\204\202 \303C\303C\303C\310C\3112Z \312\313\314 &\"0\210\211\242\203\200 \211\203 \211@\211\242\235\204x \n\242B\240\210A\266\202\202b \210\266\211\242\203\237 \211\242\211\203\233 \211@\315\"\210A\266\202\202\211 \210\310\262\242\203\273 \242\211\203\267 \211@\307!\210A\266\202\202\246 \210\310\262\203\302 \316 \210 \207" [org-journal--dates org-journal--sorted-dates org-journal--list-files nil hash-table-count 0 org-journal--deserialize org-journal--dates-puthash t --cl-block---cl-finish---- maphash make-closure #[514 "\300\303\307\f\"\240\210\301\303\242@\240\240\204 \310\311\312\"\210\303\242@\306\235\204- \304\242\235\204- \304\304\242B\240\210\301\242\302\242\235?\205b \302\301\242\302\242B\240\210\303\242A@\313\301\242!\232?\205b \301\242\306\235\205b \301\242\305\242\235?\205b \305\301\242\305\242B\240\207" [V0 V1 V2 V3 V4 V5 V6 gethash throw --cl-block---cl-finish---- nil org-journal--file-modification-time org-journal--dates] 7 "\n\n(fn KEY --CL-VAR--)"] remhash org-journal--serialize] 18 (#$ . 43802)])#@65 Mark days in the calendar for which a journal entry is present.
(defalias 'org-journal-mark-entries #[0 "\301!\2057 \302 \303 \211\2053 \211@\304!\203, \305\306!\"\203' \307\310\"\210\202, \307\311\"\210A\266\202\202\n \262\262\207" [org-journal-dir file-exists-p current-time org-journal--list-dates calendar-date-is-visible-p time-less-p org-journal--calendar-date->time calendar-mark-visible-date org-journal-calendar-entry-face org-journal-calendar-scheduled-face] 6 (#$ . 45166) nil])#@77 Open journal entry for selected date for viewing.
(fn ARG &optional EVENT)
(defalias 'org-journal-read-entry #[513 "\300\301\302\"!\303\304\"\207" [org-journal--calendar-date->time calendar-cursor-to-date t org-journal-read-or-display-entry nil] 6 (#$ . 45670) (list current-prefix-arg last-nonmenu-event)])#@86 Display journal entry for selected date in another window.
(fn ARG &optional EVENT)
(defalias 'org-journal-display-entry #[513 "\300\301\302\"!\303\302\"\207" [org-journal--calendar-date->time calendar-cursor-to-date t org-journal-read-or-display-entry] 6 (#$ . 45986) (list current-prefix-arg last-nonmenu-event)])#@31 Finalize visability of entry.
(defalias 'org-journal--finalize-view #[0 "\212\300 \210\301 \203 \302 \204 \303 \210\304 \210\305 \202 \306 )\207" [org-journal--decrypt org-journal--org-heading-p org-up-heading-safe outline-hide-other outline-show-subtree org-fold-hide-drawer-all outline-show-all] 1 (#$ . 46310)])#@157 Read an entry for the TIME and either select the new window when NOSELECT
is nil or avoid switching when NOSELECT is non-nil.
(fn TIME &optional NOSELECT)
(defalias 'org-journal-read-or-display-entry #[513 "\306!\307!\310\211\311!\203\255 \312!\211\262\203\255 \313=\204L rq\210\314 \315\316\"\216\212eb\210\317!\262\320\3218\322 8\323\n8E\310\324#+\211\262\262\203\255 rq\210\204Y \325 \210\326\327\302!\210\324\313=\203\207 \330 \203\212 eb\210\331 \332\f!\203| \f!\202\201 \333\f \"P!\210\202\212 \211b\210\334 \210`)\262\203\235 \335\324\"\210\202\241 !\210\336\337\307!!\"\210\207\340\341!\207" [org-journal-file-type view-exit-action org-hide-emphasis-markers org-journal-date-prefix org-journal-date-format org-journal-find-file org-journal--get-entry-path get-file-buffer nil file-exists-p find-file-noselect daily save-mark-and-excursion--save make-closure #[0 "\301\300!\207" [V0 save-mark-and-excursion--restore] 2] decode-time org-journal--search-forward-created 4 3 5 t view-mode kill-buffer make-local-variable org-journal--org-heading-p re-search-forward functionp format-time-string org-journal--finalize-view display-buffer set-window-point get-buffer-window message "No journal entry for this date."] 12 (#$ . 46634)])#@97 Go to next entry.
If prev is non-nil open previous entry instead of next.
(fn &optional PREV)
(defalias 'org-journal--next-entry #[256 "\302\267\202O \211\203 \303\304 !\202 \304 \211\2034 \203$ \305@\306 \"\202* \305\306 @\"\2044 \211A\262\202 \211\205D \307@!\210 \205D \310\311!\262\202] \312!\202] \313\314\203Y \315\202Z \316\317Q!?\205o \320\321\203k \322\202l \323\324Q!\207" [major-mode org-journal-follow-mode #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (calendar-mode 6 org-journal-mode 73)) reverse org-journal--list-dates org-journal--calendar-date-compare calendar-cursor-to-date calendar-goto-date org-journal-display-entry nil org-journal--open-entry user-error "org-journal-" "previous" "next" "-entry called outside calendar/org-journal mode" message "No journal entry " "before" "after" " this one"] 5 (#$ . 47911)])#@31 Go to the next journal entry.
(defalias 'org-journal-next-entry #[0 "\300 \207" [org-journal--next-entry] 1 (#$ . 48807) nil])#@35 Go to the previous journal entry.
(defalias 'org-journal-previous-entry #[0 "\300\301!\207" [org-journal--next-entry t] 2 (#$ . 48939) nil])#@187 Search for a string in the journal files.
See `org-read-date' for information on ways to specify dates.
If a prefix argument is given, search all dates.
(fn STR &optional PERIOD-NAME)
(defalias 'org-journal-search #[513 "\301\203 \302\202\n !\303@!\303A!AA@S\240\210\211AA@T\240\210\304#\207" [current-prefix-arg org-journal--read-period forever org-journal--calendar-date->time org-journal--search-by-string] 9 (#$ . 49086) (byte-code "\300\301\302\303#C\207" [read-string "Enter a string to search for: " nil org-journal-search-history] 4)])
(defvar org-journal-search-history nil)#@76 Search for a string within a current calendar-mode week entries.
(fn STR)
(defalias 'org-journal-search-calendar-week #[257 "\300\301\"\207" [org-journal-search week] 4 (#$ . 49688) (byte-code "\300\301\302\303#C\207" [read-string "Enter a string to search for: " nil org-journal-search-history] 4)])#@77 Search for a string within a current calendar-mode month entries.
(fn STR)
(defalias 'org-journal-search-calendar-month #[257 "\300\301\"\207" [org-journal-search month] 4 (#$ . 49996) (byte-code "\300\301\302\303#C\207" [read-string "Enter a string to search for: " nil org-journal-search-history] 4)])#@76 Search for a string within a current calendar-mode year entries.
(fn STR)
(defalias 'org-journal-search-calendar-year #[257 "\300\301\"\207" [org-journal-search year] 4 (#$ . 50307) (byte-code "\300\301\302\303#C\207" [read-string "Enter a string to search for: " nil org-journal-search-history] 4)])#@51 Search for a string within all entries.
(fn STR)
(defalias 'org-journal-search-forever #[257 "\300\301\"\207" [org-journal-search forever] 4 (#$ . 50615) (byte-code "\300\301\302\303#C\207" [read-string "Enter a string to search for: " nil org-journal-search-history] 4)])#@58 Search for a string within all future entries.
(fn STR)
(defalias 'org-journal-search-future #[257 "\300\301\"\207" [org-journal-search future] 4 (#$ . 50895) (byte-code "\300\301\302\303#C\207" [read-string "Enter a string to search for: " nil org-journal-search-history] 4)])#@45 Search for TODOs within all future entries.
(defalias 'org-journal-search-future-scheduled #[0 "\300\301\302\"\207" [org-journal-search "TODO" future] 3 (#$ . 51180) nil])#@163 Executes BODY in FILE. Use this to insert text into FILE.
The buffer is disposed after the macro exits (unless it already
existed before).
(fn FILE &rest BODY)
(defalias 'org-journal--with-find-file '(macro . #[385 "\300\301\302\303\304\305DDD\306BB\307\303\310\311DF\312\313\314BE\315BBBBD\207" [save-excursion let (current-buffer (current-buffer)) buffer-exists get-buffer file-name-nondirectory ((result nil)) if (switch-to-buffer buffer-exists) find-file setq result progn ((basic-save-buffer) (unless buffer-exists (kill-buffer)) (switch-to-buffer current-buffer) result)] 10 (#$ . 51358)]))#@122 Adds the current and future journal files to `org-agenda-files' containing
TODOs, and cleans out past org-journal files.
(defalias 'org-journal--update-org-agenda-files #[0 "\205V \302\303\304 \"\305\306!\211@AAA@S\240\210\307\310\311 !8 W\203D \310\312\313\314\315A@@\307 8&!\262\3168\3178\3208E\262\321\322!\322!\"\266\203\323\324\"!\266\202\207" [org-journal-enable-agenda-integration org-extend-today-until seq-filter #[257 "\300\301 \"?\207" [string-match org-journal--dir-and-file-format->pattern] 4 "\n\n(fn FNAME)"] org-agenda-files org-journal--read-period future 2 decode-time current-time encode-time 0 59 -1 4 3 5 org-journal--search-build-file-list org-journal--calendar-date->time org-store-new-agenda-file-list append] 13 (#$ . 51969)])
(defvar org-journal--schedule-buffer-name "*Org-journal schedule*")#@125 Opens a new window with all scheduled journal entries.
Think of this as a faster, less fancy version of your `org-agenda'.
(defalias 'org-journal-schedule-view #[0 "\303!\203\n \304!\210r\305!q\210\306 \210\307c\210db)\210\310\311\211\312 \313 \311\314:\203\227 @\262\315!\211\262\211\262\203\227 \316\"\203\220 \317!\320\"\203N \210\202U \211B\262\210rq\210\321 !\203g !c\210\202p \n\322 \"\323\261\210)\214\324 \210\325\326\")\262\203\220 rq\210\327\330\331#\323\261)\210A\262\202# \211\203\241 \332\333\"\210\266rq\210\334\311!\210\335\314!\210eb)\210\336!\207" [org-journal--schedule-buffer-name org-journal-date-format org-journal-date-prefix get-buffer kill-buffer get-buffer-create org-mode "#+TITLE: Org-Journal Schedule\n\n" #[0 "\301 \302u\210`\207" [org-map-continue-from org-journal--carryover-item-with-parents -1] 2] nil current-time org-journal--list-dates t org-journal--calendar-date->time time-less-p org-journal-read-or-display-entry memql functionp format-time-string "\n" org-narrow-to-subtree org-map-entries "+TIMESTAMP>=\"<now>\"|+SCHEDULED>=\"<now>\"" mapconcat #[257 "\211@AA\207" [] 2 "\n\n(fn ITEM)"] "" mapc #[257 "r\211q\210\205\n \301 )\207" [view-mode kill-buffer] 2 "\n\n(fn B)"] set-buffer-modified-p view-mode switch-to-buffer] 11 (#$ . 52815) nil])#@326 Return read period.
If the PERIOD-NAME is nil, then ask the user for period start/end.
If PERIOD-NAME is \='forever, set the period from the beginning of time
to eternity. If PERIOD-NAME is a symbol equal to \='week, \='month or \='year
then use current week, month or year from the calendar, accordingly.
(fn PERIOD-NAME)
(defalias 'org-journal--read-period #[257 "\211\303\267\202? \304\305\306\304\307\304\310$!\305\306\304\307\304\311$!\312!\312!)B\207\313\211\314E\315\316\317F\207\320\321 !\3228\3238\3248E\315\316\317F\207\211\325=\203b \326=\203b \327 \210\330 \211\3318\262\313\211E\315\316EB\207\211\332=\203\303 \326=\203\303 \327 \210\330 \211\3318\262\211@\262\211\331U\203\264 \211\211\333W\203\223 \334!S\262\211\322\246\333U\205\251 \211\335\246\333U?\206\251 \211\336\246\333U\262\203\264 \266\337\202\272 \340SH\266\202\313EF\207\211\341=\203@ \326=\203@\327 \210\330 \211\211\3318\262\304\333U\203\352 \342\343!\266\203\202(\333V\203`S\262\344\211\211@\262\211A@\262\3318\262\316S_\\\331V\203K\211\345\322_\\\346\245Z\262\211\333W\203,\334!S\262\211\322\246\333U\205B\211\335\246\333U?\206B\211\336\246\333U\262\203K\211T\262\266\204\347_\322\245\335\245[\336\245%\266\203\202(\334T!\262\350\211\211@\262\211A@\262\3318\262\316S_\\\331V\203\275\211\345\322_\\\346\245Z\262\211\333W\203\236\334!S\262\211\322\246\333U\205\264\211\335\246\333U?\206\264\211\336\246\333U\262\203\275\211T\262\266\204\347_\322\245\335\245[\336\245\351\211\211@\262\211A@\262\3318\262\316S_\\\331V\203\"\211\345\322_\\\346\245Z\262\211\333W\203\334!S\262\211\322\246\333U\205\211\335\246\333U?\206\211\336\246\333U\262\203\"\211T\262\266\204&\266\203\352!\211\nZZ\353Z\\\312!\312!B\207\342\354!\207" [org-read-date-prefer-future major-mode calendar-week-start-day #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 6 forever 35 future 44)) nil time-to-days org-read-date t "Enter the search start" "Enter the search end" calendar-gregorian-from-absolute 1 1971 12 31 2030 decode-time current-time 4 3 5 year calendar-mode calendar-cursor-to-nearest-date calendar-cursor-to-date 2 month 0 abs 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] week user-error "There was no year zero" + 23 10 365 - (12 31 -1) calendar-day-of-week 7 "Wrong period-name given or not in the calendar mode"] 20 (#$ . 54147)])#@169 Search for a string within a given time interval.
If STR is empty, search for all entries using `org-journal-time-prefix'.
(fn STR &optional PERIOD-START PERIOD-END)
(defalias 'org-journal--search-by-string #[769 "\303\"\203 \304\305!\210\306\230\203 \202 \307\"\310\"\311 !\312\313\314\"\204. \315!\210r\211q\210\316 \210\317 \210\320$\210eb\210\321\322!\210\323\324`!!*\207" [org-journal-time-prefix org-journal--search-buffer inhibit-read-only time-less-p user-error "Period end cannot be before the start" "" org-journal--search-build-file-list org-journal--search-do-search get-buffer-create t get-buffer-window 0 switch-to-buffer org-journal-search-mode erase-buffer org-journal--search-print-results forward-button 1 button-activate button-at] 12 (#$ . 56628)])#@91 Build a list of journal files within a given time interval.
(fn PERIOD-START PERIOD-END)
(defalias 'org-journal--search-build-file-list #[514 "\203 \211\203 @\203 A\203 \211@\203 \211A\204\" \301\302#\210\303\211\304 \211\203(\211@\305\306!!\262\307\310\267\202\202\311!\312\3138\\\3148\3158\316U\203\204 \211\211\317W\203c \320!S\262\211\314\246\317U\205y \211\321\246\317U?\206y \211\322\246\317U\262\203\204 \266\323\202\212 \324SH\266\202V\203\246 Z\262\325U\203\242 \317\262T\262T\262\305E!\266\205\202\311!\3148\3158\316U\203\360 \211\211\317W\203\317 \320!S\262\211\314\246\317U\205\345 \211\321\246\317U?\206\345 \211\322\246\317U\262\203\360 \266\323\202\366 \324SH\266\202\305E!\266\204\202\305\325\326\315\311 !8E!\202\303\"\203!\307\"\203!\211B\262A\266\202\202& \210\207" [org-journal-file-type user-error "Time `%s' and/or `%s' are not valid" nil org-journal--list-files org-journal--calendar-date->time org-journal--file-name->calendar-date time-less-p #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (daily 60 weekly 64 monthly 177 yearly 257)) decode-time 6 3 4 5 2 0 abs 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] 12 31] 17 (#$ . 57426)])#@98 Search for a string within a list of files, return match pairs (PATH . LINENUM).
(fn STR FILES)
(defalias 'org-journal--search-do-search #[514 "\305C\305\306!\211\203\254 \211@\307\310!!\211\206 \311\310!!\305rq\210\204' \312!\210\203< eb\210\313\314\305\315#\203< \316 \210\202. eb\210 \305\315#\203\210 \n\317=\203T \320!\202l \212\321 \305\315#\205k \212\322 \210\323 )\324U\205k \325 )\211\205s \326!\262`\nGZ\327\330 \331 \"EB\262\202? )\211\262\204\224 \332!\210\266\202\262\203\245 \333\334\335\"\"\210A\266\202\202 \210\f\336=\203\266 \242\207\306\242!\207" [org-journal-enable-encryption org-journal-search-forward-fn org-journal-file-type org-journal--created-re org-journal-search-results-order-by nil reverse get-buffer file-name-nondirectory generate-new-buffer insert-file-contents search-forward ":crypt:" t org-decrypt-entry daily org-journal--file-name->calendar-date re-search-backward org-back-to-heading org-outline-level 1 org-journal--entry-date->calendar-date org-journal--calendar-date->time buffer-substring-no-properties line-beginning-position line-end-position kill-buffer mapc make-closure #[257 "\300\300\242B\240\207" [V0] 4 "\n\n(fn RES)"] :desc] 14 (#$ . 58709)])#@78 Format TIME according to `org-journal-search-result-date-format'.
(fn TIME)
(defalias 'org-journal--search-format-date #[257 "\301\"\207" [org-journal-search-result-date-format format-time-string] 4 (#$ . 59941)])
(defalias 'org-journal--search-next #[0 "\300\301\302\"\210\303\304`!!\207" [forward-button 1 t button-activate button-at] 3 nil nil])
(defalias 'org-journal--search-prev #[0 "\300\301\302\"\210\303\304`!!\207" [backward-button 1 t button-activate button-at] 3 nil nil])#@42 Keymap for *Org-journal search* buffers.
(defvar org-journal-search-mode-map nil (#$ . 60434))
(byte-code "\204( \301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\306#\210\302\312\310#\210\211\262\300M\207" [org-journal-search-mode-map make-sparse-keymap define-key "q" kill-this-buffer [tab] org-journal--search-next [backtab] org-journal--search-prev "n" "p"] 5)
(defvar org-journal-search-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [org-journal-search-mode-hook variable-documentation put "Hook run after entering org-journal-search mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp org-journal-search-mode-map definition-name org-journal-search-mode] 4)
(defvar org-journal-search-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204* \303\307\310\311#\210\312\307\306\307!\203& \313\202( \314 \"\210\307\302N\2048 \303\307\302\304\315!#\210\306\300!\204X \303\300\310\311#\210\312\300\306\300!\203P \313\202V \316\300\313\"\210\"\210\300\302N\204f \303\300\302\304\317!#\210\303\311\320\321#\207" [org-journal-search-mode-abbrev-table org-journal-search-mode-map variable-documentation put purecopy "Keymap for `org-journal-search-mode'." boundp org-journal-search-mode-syntax-table definition-name org-journal-search-mode defvar-1 nil make-syntax-table "Syntax table for `org-journal-search-mode'." define-abbrev-table "Abbrev table for `org-journal-search-mode'." derived-mode-parent special-mode] 5)#@272 Major mode for displaying org-journal search results.
\{org-journal-search-mode-map}.
In addition to any hooks its parent mode `special-mode' might have
run, this mode runs the hook `org-journal-search-mode-hook', as the
final or penultimate step during initialization.
(defalias 'org-journal-search-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324\325\"\204R =\204R \326\325 C#\210\327 !\210\330\f!\210 \327 !\210\307\211 \331\332!)\210\333\334!\207" [delay-mode-hooks major-mode mode-name org-journal-search-mode-map org-journal-search-mode-syntax-table org-journal-search-mode-abbrev-table make-local-variable t special-mode org-journal-search-mode "org-journal-search" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table hl-line-mode 1 run-mode-hooks org-journal-search-mode-hook local-abbrev-table truncate-lines buffer-undo-list] 6 (#$ . 62076) nil])#@84 Print search results using text buttons.
(fn STR RESULTS PERIOD-START PERIOD-END)
(defalias 'org-journal--search-print-results #[1028 "\301!\301!\302\303\304\305\260c\266\306\211\211\211\211\203i \211@\211@\262\211A@\262\3078\262\2054 \301!\262\310=\204P \203b \311\"\203b \311\"\203b \312\313\314\315\n B%\210\316\317\261\210A\266\202\202 \266\320!\207" [org-journal-file-type org-journal--search-format-date "Search results for \"" "\" between " " and " ": \n\n" nil 2 daily time-less-p insert-text-button action org-journal--search-follow-link-action org-journal-link " " "\n" org-journal-highlight] 17 (#$ . 63238)])#@69 Follow the link using info saved in button properties.
(fn BUTTON)
(defalias 'org-journal--search-follow-link-action #[257 "\300\301\"\211@A\302\303\"\304\305!\"\207" [button-get org-journal-link org-journal-read-or-display-entry t set-window-point get-buffer-window] 8 (#$ . 63899)])#@43 Re-encrypt journal files.
(fn RECIPIENT)
(defalias 'org-journal-re-encrypt-journals #[257 "\211\204 \304\305!\210\204 \304\306!\210\307\211\310 \307:\203\275 @\262\311!\262\307\262\203? \312!\203? \313\314\315\316!\"!\203? \317!\210\204K \320\262\321!\262rq\210\322\211@! >\204c \323\324\325@D\"\210@\326H@!\n>\204\215 \323\324\327\322@! >\204\204 \323\324\325\n@D\"\210@\326H@D\"\210\322@! >\204\237 \323\324\325@D\"\210@\326H@\330H\331\320!\210\317 \210\203\265 \332 \210*A\262\202 \307\207" [org-journal-encrypt-journal cl-struct-epg-key-tags cl-struct-epg-sub-key-tags epa-file-encrypt-to user-error "You need to specify exactly one recipient" "org-journal encryption not enabled" nil org-journal--list-files get-file-buffer buffer-modified-p y-or-n-p format "Journal \"%s\" modified, save before re-encryption?" file-name-nondirectory save-buffer t find-file-noselect type-of signal wrong-type-argument epg-key 2 epg-sub-key 6 set-buffer-modified-p kill-buffer] 12 (#$ . 64195) (byte-code "\301\302!\303\"C\207" [epa-protocol epa-select-keys epg-make-context "Select new recipient for encryption.\nOnly one recipient is supported. "] 3)])#@33 Decrypt journal entry at point.
(defalias 'org-journal--decrypt #[0 "\205 \302\303 )\207" [org-journal-enable-encryption buffer-read-only nil org-decrypt-entries] 1 (#$ . 65384)])#@71 The function added to the hook specified by `org-journal-encrypt-on'.
(defalias 'org-journal-encryption-hook #[0 "\205 \302 \210 \303=?\205 \304 \207" [org-journal-enable-encryption org-journal-encrypt-on org-encrypt-entries before-save-hook save-buffer] 2 (#$ . 65572)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-hook org-journal-mode-hook #[0 "\301\302\303\304$\207" [org-journal-encrypt-on add-hook org-journal-encryption-hook nil t] 5] provide org-journal] 3)