1 files changed, 12 insertions, 10 deletions

@@ -490,14 +490,14 @@
                                          "|" "DONE(d!)")
                                (sequence "|" "CANCELED(k!)")
                                (sequence "MEETING(m)")))
-  (setf (alist-get "\\.x?html?\\'" org-file-apps nil nil #'equal)
-        #'+org-open-html)
   (:bind "RET" #'+org-return-dwim
          "<S-return>" #'+org-table-copy-down
          "C-c C-l" #'+org-insert-link-dwim
          "C-c C-n" #'+org-next-heading-widen
          "C-c C-p" #'+org-previous-heading-widen
-         "C-c C-o" #'+org-open-at-point-dwim)
+         "C-c C-o" #'+org-open-at-point-dwim
+         "`" #'+org-insert-tilde
+         "~" #'+org-insert-backtick)
   (:local-hook user-save-hook #'+org-before-save@prettify-buffer)
   (advice-add #'org-delete-backward-char :override #'+org-delete-backward-char)
   ;; (define-advice org-open-at-point (:around (fn &rest r) open-external)
@@ -506,7 +506,9 @@
   ;;     (apply fn r)))
   (with-eval-after-load 'org
     (org-clock-persistence-insinuate)
-    (org-link-set-parameters "tel" :follow #'+org-tel-open))
+    (org-link-set-parameters "tel" :follow #'+org-tel-open)
+    (setf (alist-get "\\.x?html?\\'" org-file-apps nil nil #'equal)
+          #'+org-open-html))
   ;; Extra keywords
   (font-lock-add-keywords
    'org-mode
@@ -514,12 +516,12 @@
      ("^ *\\([-]\\) "
       (0 (compose-region (match-beginning 1) (match-end 1) "•")))
      ("^ *\\([+]\\) "
-      (0 (compose-region (match-beginning 1) (match-end 1) "◦"))))
-   (with-eval-after-load 'form-feed
-     ;; Horizontal lines
-     (font-lock-add-keywords
-      'org-mode
-      '(("^-----+" 0 'form-feed--font-lock-face t))))))
+      (0 (compose-region (match-beginning 1) (match-end 1) "◦")))))
+  (with-eval-after-load 'form-feed
+    ;; Horizontal lines
+    (font-lock-add-keywords
+     'org-mode
+     '(("^-----+" . form-feed--font-lock-face)))))
 
 (setup org-agenda
   (:option org-agenda-skip-deadline-if-done t