Optimize lang/org: lexical-binding = t; cl-case => pcase

modules/lang/org/+agenda.el

@@ -1,4 +1,4 @@
-;;; lang/org/+agenda.el
+;;; lang/org/+agenda.el -*- lexical-binding: t; -*-
 
 (after! org-agenda
   (setq-default

modules/lang/org/+attach.el

@@ -1,4 +1,4 @@
-;;; lang/org/+attach.el
+;;; lang/org/+attach.el -*- lexical-binding: t; -*-
 
 ;; FIXME Needs to be rewritten
 ;;

modules/lang/org/+babel.el

@@ -1,4 +1,4 @@
-;;; lang/org/+babel.el
+;;; lang/org/+babel.el -*- lexical-binding: t; -*-
 
 (add-hook '+org-init-hook #'+org|init-babel t)
 

modules/lang/org/+capture.el

@@ -1,4 +1,4 @@
-;;; lang/org/+capture.el
+;;; lang/org/+capture.el -*- lexical-binding: t; -*-
 
 ;; Sets up two `org-capture' workflows that I like:
 ;;

modules/lang/org/+export.el

@@ -1,4 +1,4 @@
-;;; lang/org/+export.el
+;;; lang/org/+export.el -*- lexical-binding: t; -*-
 
 ;; My own, centralized exporting system as well.
 

modules/lang/org/+notebook.el

@@ -1,4 +1,4 @@
-;;; lang/org/+notebook.el
+;;; lang/org/+notebook.el -*- lexical-binding: t; -*-
 
 ;; While I program, write or plan, I want easy access to notes of various kinds,
 ;; such as major-mode/language specific notes, or project-specific notes. They

modules/lang/org/autoload/attach.el

@@ -1,4 +1,4 @@
-;;; lang/org/autoload/attach.el
+;;; lang/org/autoload/attach.el -*- lexical-binding: t; -*-
 
 (defun +org--attach-icon (path)
   (char-to-string (pcase (downcase (file-name-extension path))

modules/lang/org/autoload/babel.el

@@ -1,4 +1,4 @@
-;;; lang/org/autoload/babel.el
+;;; lang/org/autoload/babel.el -*- lexical-binding: t; -*-
 
 ;;;###autoload
 (defun +org/edit-special-same-window ()

modules/lang/org/autoload/capture.el

@@ -1,4 +1,4 @@
-;;; lang/org/autoload/capture.el
+;;; lang/org/autoload/capture.el  -*- lexical-binding: t; -*-
 
 ;;;###autoload
 (defun +org/capture (&optional key string)

modules/lang/org/autoload/evil.el

@@ -1,4 +1,4 @@
-;;; lang/org/autoload/evil.el
+;;; lang/org/autoload/evil.el -*- lexical-binding: t; -*-
 
 ;;;###autoload (autoload '+org:capture "lang/org/autoload/evil" nil t)
 (evil-define-operator +org:capture (&optional beg end bang)

modules/lang/org/autoload/notebook.el

@@ -1,4 +1,4 @@
-;;; lang/org/autoload/notebook.el
+;;; lang/org/autoload/notebook.el -*- lexical-binding: t; -*-
 
 ;;;###autoload
 (defun +org-mode-notes-dir ()

modules/lang/org/autoload/org.el

@@ -1,4 +1,4 @@
-;;; lang/org/autoload/org.el
+;;; lang/org/autoload/org.el -*- lexical-binding: t; -*-
 
 ;;;###autoload
 (defun +org/indent ()
@@ -86,7 +86,7 @@ wrong places)."
              (insert "[ ] ")))
 
           ((memq type '(table table-row))
-           (cl-case direction
+           (pcase direction
              ('below (org-table-insert-row t))
              ('above (+org/table-prepend-row-or-shift-up))))
 
@@ -99,7 +99,7 @@ wrong places)."
                             (if (eq (org-element-type subcontext) 'headline)
                                 subcontext
                               1)))))
-             (cl-case direction
+             (pcase direction
                ('below
                 (let ((at-eol (= (point) (1- (line-end-position)))))
                   (goto-char (line-end-position))

modules/lang/org/autoload/tables.el

@@ -1,4 +1,4 @@
-;;; lang/org/autoload/tables.el
+;;; lang/org/autoload/tables.el -*- lexical-binding: t; -*-
 
 ;;;###autoload
 (defun +org/table-next-row ()

modules/lang/org/autoload/util.el

@@ -1,4 +1,4 @@
-;;; lang/org/autoload/util.el
+;;; lang/org/autoload/util.el -*- lexical-binding: t; -*-
 
 ;;;###autoload
 (defun +org-get-property (name &optional file)

modules/lang/org/config.el

@@ -1,4 +1,4 @@
-;;; lang/org/config.el
+;;; lang/org/config.el -*- lexical-binding: t; -*-
 
 ;; A few things you can expect
 ;;   + `org-capture' in a popup frame (can be invoked from outside emacs too)