Better timestamps and key binds.
This commit is contained in:
1
.gitignore
vendored
1
.gitignore
vendored
@@ -20,3 +20,4 @@ places
|
|||||||
icons
|
icons
|
||||||
transient
|
transient
|
||||||
.cache
|
.cache
|
||||||
|
server
|
||||||
|
|||||||
33
init.el
33
init.el
@@ -117,8 +117,6 @@
|
|||||||
(scroll-bar-mode -1)
|
(scroll-bar-mode -1)
|
||||||
(tooltip-mode -1)
|
(tooltip-mode -1)
|
||||||
(fringe-mode -1)
|
(fringe-mode -1)
|
||||||
(menu-bar-mode -1)
|
|
||||||
|
|
||||||
|
|
||||||
;; Haven't figured out how to diminish eldoc-mode outside of
|
;; Haven't figured out how to diminish eldoc-mode outside of
|
||||||
;; requiring this explicitly and doing it manually.
|
;; requiring this explicitly and doing it manually.
|
||||||
@@ -463,7 +461,7 @@
|
|||||||
|
|
||||||
(setq org-capture-templates
|
(setq org-capture-templates
|
||||||
'(("l" "Link" entry (file "~/Notes/links.org")
|
'(("l" "Link" entry (file "~/Notes/links.org")
|
||||||
"* NEW %?\n:PROPERTIES:\n:CREATED: %U\n2:END:\n%i\n")))
|
"* NEW %?\n:PROPERTIES:\n:CREATED: %U\n:END:\n%i\n")))
|
||||||
|
|
||||||
|
|
||||||
;; Autocomplete for org tags.3
|
;; Autocomplete for org tags.3
|
||||||
@@ -547,6 +545,12 @@
|
|||||||
(split-window-right)
|
(split-window-right)
|
||||||
(other-window 1))
|
(other-window 1))
|
||||||
|
|
||||||
|
(defun split-below-and-enter ()
|
||||||
|
"Split the window to the right and enter it."
|
||||||
|
(interactive)
|
||||||
|
(split-window-below)
|
||||||
|
(other-window 1))
|
||||||
|
|
||||||
(defun switch-to-previous-buffer ()
|
(defun switch-to-previous-buffer ()
|
||||||
"Switch to previously open buffer. Repeated invocations toggle between the two most recently open buffers."
|
"Switch to previously open buffer. Repeated invocations toggle between the two most recently open buffers."
|
||||||
(interactive)
|
(interactive)
|
||||||
@@ -601,14 +605,14 @@
|
|||||||
(bind-key "s-<return>" 'eol-then-newline)
|
(bind-key "s-<return>" 'eol-then-newline)
|
||||||
(bind-key "C-c 5" 'query-replace-regexp) ;; stupid vestigial binding
|
(bind-key "C-c 5" 'query-replace-regexp) ;; stupid vestigial binding
|
||||||
(bind-key "M-/" 'hippie-expand)
|
(bind-key "M-/" 'hippie-expand)
|
||||||
(bind-key "C-c '" 'switch-to-previous-buffer)
|
|
||||||
(bind-key "C-c \\" 'align-regexp)
|
(bind-key "C-c \\" 'align-regexp)
|
||||||
(bind-key "C-c m" 'compile)
|
(bind-key "C-c m" 'compile)
|
||||||
(bind-key "C-c 3" 'split-right-and-enter)
|
(bind-key "C-c 3" 'split-right-and-enter)
|
||||||
|
(bind-key "C-c 2" 'split-below-and-enter)
|
||||||
|
(bind-key "C-c p" 'switch-to-previous-buffer)
|
||||||
|
(bind-key "M-p" 'ace-window)
|
||||||
(bind-key "C-c /" 'comment-or-uncomment-region)
|
(bind-key "C-c /" 'comment-or-uncomment-region)
|
||||||
(bind-key "C-c x" 'ESC-prefix)
|
(bind-key "C-c x" 'ESC-prefix)
|
||||||
(bind-key "C-," 'other-window)
|
|
||||||
(bind-key "M-," 'other-window)
|
|
||||||
(bind-key "M-i" 'delete-indentation)
|
(bind-key "M-i" 'delete-indentation)
|
||||||
|
|
||||||
;; When tracking down slowness, opening ivy to start these functions
|
;; When tracking down slowness, opening ivy to start these functions
|
||||||
@@ -769,6 +773,23 @@
|
|||||||
nil)
|
nil)
|
||||||
(message "Set custom style from %s" f))
|
(message "Set custom style from %s" f))
|
||||||
(message "Custom header file %s doesnt exist")))))
|
(message "Custom header file %s doesnt exist")))))
|
||||||
|
|
||||||
|
;; Remove the brackets around timestamps in org-mode exports
|
||||||
|
(add-to-list 'org-export-filter-timestamp-functions
|
||||||
|
#'endless/filter-timestamp)
|
||||||
|
(defun endless/filter-timestamp (trans back _comm)
|
||||||
|
"Remove <> around time-stamps."
|
||||||
|
(pcase back
|
||||||
|
((or `jekyll `html)
|
||||||
|
(replace-regexp-in-string "&[lg]t;" "" trans))
|
||||||
|
(`latex
|
||||||
|
(replace-regexp-in-string "[<>]" "" trans))))
|
||||||
|
|
||||||
|
(setq-default org-display-custom-times t)
|
||||||
|
;;; Before you ask: No, removing the <> here doesn't work.
|
||||||
|
(setq org-time-stamp-custom-formats
|
||||||
|
'("<%a %d.%m.%Y>" . "<%d.%m.%y %H:%M>"))
|
||||||
|
|
||||||
;; goodbye, thanks for reading
|
;; goodbye, thanks for reading
|
||||||
|
|
||||||
(provide 'init)
|
(provide 'init)
|
||||||
|
|||||||
Reference in New Issue
Block a user