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

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)