From aab5bfd074e57d06a79e39d7c7c4760e1f385a06 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 17 Oct 2022 21:41:28 -0500 Subject: Bankruptcy 9 --- lisp/+org-attach.el | 29 ----------------------------- 1 file changed, 29 deletions(-) delete mode 100644 lisp/+org-attach.el (limited to 'lisp/+org-attach.el') diff --git a/lisp/+org-attach.el b/lisp/+org-attach.el deleted file mode 100644 index 5e7cc7f..0000000 --- a/lisp/+org-attach.el +++ /dev/null @@ -1,29 +0,0 @@ -;;; +org-attach.el --- Fixes for org-attach -*- lexical-binding: t; -*- - -;;; Commentary: - -;; `org-attach-attach' doesn't fix the path name. Before I submit a bug, I'm -;; just fixing it by advising `org-attach-attach'. - -;;; Code: - -(defun +org-attach-attach-fix-args (args) - "ADVICE for `org-attach-attach' to normalize FILE first. -VISIT-DIR and METHOD are passed through unchanged. - -This should be applied as `:filter-args' advice." - (cons (expand-file-name (car args)) (cdr args))) - -(define-minor-mode +org-attach-fix-args-mode - "Fix the arguments passed to `org-attach-attach'. -This mode normalizes the filename passed to `org-attach-attach' -so that links can be properly made." - :lighter "" - :keymap nil - :global t ; I figure, what does this hurt? - (if +org-attach-fix-args-mode - (advice-add 'org-attach-attach :filter-args #'+org-attach-attach-fix-args) - (advice-remove 'org-attach-attach #'+org-attach-attach-fix-args))) - -(provide '+org-attach) -;;; +org-attach.el ends here -- cgit 1.4.1-21-gabe81