General refactor & cleanup

modules/lang/org/autoload/attach.el

@@ -26,8 +26,7 @@
     (user-error "Not an org buffer"))
   (org-save-outline-visibility nil
     (let ((attachments '())
-          element
-          file)
+          element)
       (when (and (file-directory-p org-attach-directory)
                  (> (length (file-expand-wildcards (expand-file-name "*" org-attach-directory))) 0))
         (save-excursion

modules/lang/org/autoload/evil.el

@@ -1,10 +1,10 @@
 ;;; 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)
+(evil-define-operator +org:capture (&optional beg end)
   "Send a selection to `doom/org-capture'."
   :move-point nil :type inclusive
-  (interactive "<r><!>")
+  (interactive "<r>")
   (org-capture-string
    (when (and (evil-visual-state-p) beg end)
      (buffer-substring beg end))))

modules/lang/org/autoload/org.el

@@ -155,8 +155,7 @@ fragments, opening links, or refreshing images."
   (interactive)
   (let* ((scroll-pt (window-start))
          (context (org-element-context))
-         (type (org-element-type context))
-         (value (org-element-property :value context)))
+         (type (org-element-type context)))
     (cond
      ((memq type '(planning timestamp))
       (org-follow-timestamp-link))

modules/lang/org/autoload/util.el

@@ -1,7 +1,7 @@
 ;;; lang/org/autoload/util.el -*- lexical-binding: t; -*-
 
 ;;;###autoload
-(defun +org-get-property (name &optional file)
+(defun +org-get-property (name &optional _file) ; TODO Add FILE
   "Get a propery from an org file."
   (save-excursion
     (goto-char 1)