emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
doomemacs/modules/lang/org/contrib/dragndrop.el

77 lines
3.4 KiB
EmacsLisp
Raw Normal View History

lang/org: major refactor The motivation for this change was to rethink lang/org's flags. Many of its former flags represented non-features. Therefore, its flags have been reduced to five: +dragndrop, +ipython, +pandoc, +gnuplot and +present. Everything else is included as org-load-hooks and treated as reasonable defaults. Other changes: - Fixes #1502: don't autopair certain pairs when in a math region - Fixes #1483: broken localleader in org-agenda - Adds gnuplot support #1108 - Doom's org submodules have been moved into lang/org/contrib/, because I expect there will be *many* more to come, and I don't want to pollute the moudle's root.
2019-06-28 16:53:26 +02:00
;;; lang/org/contrib/dragndrop.el -*- lexical-binding: t; -*-
lang/org: refactor contrib modules - Fix #1546 - Ensure contrib modules aren't included in byte-compilation/autoload generation if their requisite flags aren't enabled
2019-07-09 22:44:51 +02:00
;;;###if (featurep! +dragndrop)
lang/org: major refactor The motivation for this change was to rethink lang/org's flags. Many of its former flags represented non-features. Therefore, its flags have been reduced to five: +dragndrop, +ipython, +pandoc, +gnuplot and +present. Everything else is included as org-load-hooks and treated as reasonable defaults. Other changes: - Fixes #1502: don't autopair certain pairs when in a math region - Fixes #1483: broken localleader in org-agenda - Adds gnuplot support #1108 - Doom's org submodules have been moved into lang/org/contrib/, because I expect there will be *many* more to come, and I don't want to pollute the moudle's root.
2019-06-28 16:53:26 +02:00
:boom: Rename def-package! -> use-package! Calling this pivotal macro "def-package!" has frequently been a source of confusion. It is a thin wrapper around use-package, and it should be obvious that it is so. For this reason, and to match the naming convention used with other convenience macros/wrappers, it is now use-package!. Also changes def-package-hook! -> use-package-hook! The old macros are now marked obsolete and will be removed when straight integration is merged.
2019-07-23 12:44:03 +02:00
(use-package! org-download
Autoload org-download-{yank,screenshot} Fixes #2429
2020-01-27 17:04:29 -05:00
:commands
org-download-dnd
org-download-yank
org-download-screenshot
org-download-dnd-base64
lang/org: major refactor The motivation for this change was to rethink lang/org's flags. Many of its former flags represented non-features. Therefore, its flags have been reduced to five: +dragndrop, +ipython, +pandoc, +gnuplot and +present. Everything else is included as org-load-hooks and treated as reasonable defaults. Other changes: - Fixes #1502: don't autopair certain pairs when in a math region - Fixes #1483: broken localleader in org-agenda - Adds gnuplot support #1108 - Doom's org submodules have been moved into lang/org/contrib/, because I expect there will be *many* more to come, and I don't want to pollute the moudle's root.
2019-06-28 16:53:26 +02:00
:init
General, minor reformatting across the board And an offering of blood to our great lord Byte Compiler-sama.
2019-07-21 23:31:42 +02:00
;; HACK We add these manually so that org-download is truly lazy-loaded
lang/org: minor refactor of contrib submodules
2019-10-20 18:45:15 -04:00
(pushnew! dnd-protocol-alist
'("^\\(?:https?\\|ftp\\|file\\|nfs\\):" . +org-dragndrop-download-dnd-fn)
'("^data:" . org-download-dnd-base64))
lang/org: major refactor The motivation for this change was to rethink lang/org's flags. Many of its former flags represented non-features. Therefore, its flags have been reduced to five: +dragndrop, +ipython, +pandoc, +gnuplot and +present. Everything else is included as org-load-hooks and treated as reasonable defaults. Other changes: - Fixes #1502: don't autopair certain pairs when in a math region - Fixes #1483: broken localleader in org-agenda - Adds gnuplot support #1108 - Doom's org submodules have been moved into lang/org/contrib/, because I expect there will be *many* more to come, and I don't want to pollute the moudle's root.
2019-06-28 16:53:26 +02:00
(advice-add #'org-download-enable :override #'ignore)
Fix inline previews for "download:%s" org links #2539
2020-02-19 18:21:24 -05:00
(after! org
;; A shorter link to attachments
(+org-def-link "download" org-attach-id-dir)
(setf (alist-get "download" org-link-abbrev-alist nil nil #'equal)
(abbreviate-file-name org-attach-id-dir)))
lang/org: major refactor The motivation for this change was to rethink lang/org's flags. Many of its former flags represented non-features. Therefore, its flags have been reduced to five: +dragndrop, +ipython, +pandoc, +gnuplot and +present. Everything else is included as org-load-hooks and treated as reasonable defaults. Other changes: - Fixes #1502: don't autopair certain pairs when in a math region - Fixes #1483: broken localleader in org-agenda - Adds gnuplot support #1108 - Doom's org submodules have been moved into lang/org/contrib/, because I expect there will be *many* more to come, and I don't want to pollute the moudle's root.
2019-06-28 16:53:26 +02:00
:config
lang/org: use org-attach instead of custom system - Adds more keys under `<localleader> a` - Reconfigures org-download to use org-attach system - Make org-id-track-globally = t a global default now (not just for org-brain) - Renamed +org-init-centralized-attachments-h to +org-init-attachments-h - org-attach-store-link-p = t (stores a link to an attachment when it is attached) - org-attach-use-inheritance = t (inherit attachment properties from parent nodes)
2019-12-29 16:31:25 -05:00
(setq org-download-image-dir org-attach-id-dir
Fix #2429: replace defunct attach: links w/ download: Forgot that support for attach: links were removed some time ago, but I still want short org-download links, so I've added 'download:' links.
2020-01-26 02:20:39 -05:00
org-download-link-format "[[download:%s]]\n"
lang/org: use org-attach instead of custom system - Adds more keys under `<localleader> a` - Reconfigures org-download to use org-attach system - Make org-id-track-globally = t a global default now (not just for org-brain) - Renamed +org-init-centralized-attachments-h to +org-init-attachments-h - org-attach-store-link-p = t (stores a link to an attachment when it is attached) - org-attach-use-inheritance = t (inherit attachment properties from parent nodes)
2019-12-29 16:31:25 -05:00
org-download-method 'attach
lang/org: major refactor The motivation for this change was to rethink lang/org's flags. Many of its former flags represented non-features. Therefore, its flags have been reduced to five: +dragndrop, +ipython, +pandoc, +gnuplot and +present. Everything else is included as org-load-hooks and treated as reasonable defaults. Other changes: - Fixes #1502: don't autopair certain pairs when in a math region - Fixes #1483: broken localleader in org-agenda - Adds gnuplot support #1108 - Doom's org submodules have been moved into lang/org/contrib/, because I expect there will be *many* more to come, and I don't want to pollute the moudle's root.
2019-06-28 16:53:26 +02:00
org-download-heading-lvl nil
org-download-timestamp "_%Y%m%d_%H%M%S"
org-download-screenshot-method
(cond (IS-MAC "screencapture -i %s")
(IS-LINUX
(cond ((executable-find "maim") "maim -s %s")
((executable-find "scrot") "scrot -s %s")))))
;; Handle non-image files a little differently. Images should be inserted
;; as-is, as image previews. Other files, like pdfs or zips, should be linked
;; to, with an icon indicating the type of file.
def-advice!->defadvice! & conform to new advice conventions This commit does two things: - Renames def-advice! to defadvice!, in the spirit of naming convenience macros after the function/macro they enhance or replace. - Correct the names of advice functions to indicate visibility and intent. A public advice function like doom-set-jump-a is meant to be used elsewhere. A private one like +dired--cleanup-header-line-a shouldn't -- it likely won't work anywhere but the function(s) it was made to advise.
2019-07-23 17:24:56 +02:00
(defadvice! +org--dragndrop-insert-link-a (_link filename)
:boom: lang/org: conform to new name conventions
2019-07-21 02:38:42 +02:00
"Produces and inserts a link to FILENAME into the document.
lang/org: major refactor The motivation for this change was to rethink lang/org's flags. Many of its former flags represented non-features. Therefore, its flags have been reduced to five: +dragndrop, +ipython, +pandoc, +gnuplot and +present. Everything else is included as org-load-hooks and treated as reasonable defaults. Other changes: - Fixes #1502: don't autopair certain pairs when in a math region - Fixes #1483: broken localleader in org-agenda - Adds gnuplot support #1108 - Doom's org submodules have been moved into lang/org/contrib/, because I expect there will be *many* more to come, and I don't want to pollute the moudle's root.
2019-06-28 16:53:26 +02:00
:boom: lang/org: conform to new name conventions
2019-07-21 02:38:42 +02:00
If FILENAME is an image, produce an attach:%s path, otherwise use file:%s (with
lang/org: major refactor & add org-fancy-priorities package - Fixes an issue where evil bindings weren't working in org-mode - Significantly slims down on unnecessary keybinds - Remove +org-init-keybinds-for-evil-h hook and reli more on our new evil-org fork, which has upstreamed some of our changes. - Documents undocumented functions, remove unnused ones, and reorganize org's autoload libraries by convention. - Adds org-fancy-priorities for more elegant (and subtle) priority display than ugly [#A] tags.
2019-10-25 20:00:06 -04:00
an file icon produced by `+org-attach-icon-for')."
:boom: lang/org: conform to new name conventions
2019-07-21 02:38:42 +02:00
:override #'org-download-insert-link
(if (looking-back "^[ \t]+" (line-beginning-position))
(delete-region (match-beginning 0) (match-end 0))
(newline))
(cond ((image-type-from-file-name filename)
(insert
Fix #2429: replace defunct attach: links w/ download: Forgot that support for attach: links were removed some time ago, but I still want short org-download links, so I've added 'download:' links.
2020-01-26 02:20:39 -05:00
(concat
(if (= org-download-image-html-width 0) ""
(format "#+attr_html: :width %dpx\n" org-download-image-html-width))
(if (= org-download-image-latex-width 0) ""
(format "#+attr_latex: :width %dcm\n" org-download-image-latex-width))
dragndrop: insert #+attr_org: :width if specified
2020-03-23 19:19:55 +01:00
(if (= org-download-image-org-width 0) ""
(format "#+attr_org: :width %dpx\n" org-download-image-org-width))
Fix #2429: replace defunct attach: links w/ download: Forgot that support for attach: links were removed some time ago, but I still want short org-download links, so I've added 'download:' links.
2020-01-26 02:20:39 -05:00
(format org-download-link-format
s/org-attach-directory/org-attach-id-dir The former is deprecated. Reported by @myshevchuk in 90ec41c
2020-03-27 22:23:20 -04:00
(cond ((file-in-directory-p filename org-attach-id-dir)
(file-relative-name filename org-attach-id-dir))
Fix #2429: replace defunct attach: links w/ download: Forgot that support for attach: links were removed some time ago, but I still want short org-download links, so I've added 'download:' links.
2020-01-26 02:20:39 -05:00
((file-in-directory-p filename org-directory)
(file-relative-name filename org-directory))
(filename)))))
:boom: lang/org: conform to new name conventions
2019-07-21 02:38:42 +02:00
(org-display-inline-images))
((insert
(format "%s [[./%s][%s]] "
lang/org: major refactor & add org-fancy-priorities package - Fixes an issue where evil bindings weren't working in org-mode - Significantly slims down on unnecessary keybinds - Remove +org-init-keybinds-for-evil-h hook and reli more on our new evil-org fork, which has upstreamed some of our changes. - Documents undocumented functions, remove unnused ones, and reorganize org's autoload libraries by convention. - Adds org-fancy-priorities for more elegant (and subtle) priority display than ugly [#A] tags.
2019-10-25 20:00:06 -04:00
(+org-attach-icon-for filename)
:boom: lang/org: conform to new name conventions
2019-07-21 02:38:42 +02:00
(file-relative-name filename (file-name-directory buffer-file-name))
(file-name-nondirectory (directory-file-name filename)))))))
(advice-add #'org-download--dir-2 :override #'ignore)
def-advice!->defadvice! & conform to new advice conventions This commit does two things: - Renames def-advice! to defadvice!, in the spirit of naming convenience macros after the function/macro they enhance or replace. - Correct the names of advice functions to indicate visibility and intent. A public advice function like doom-set-jump-a is meant to be used elsewhere. A private one like +dired--cleanup-header-line-a shouldn't -- it likely won't work anywhere but the function(s) it was made to advise.
2019-07-23 17:24:56 +02:00
(defadvice! +org--dragndrop-download-fullname-a (path)
lang/org: major refactor The motivation for this change was to rethink lang/org's flags. Many of its former flags represented non-features. Therefore, its flags have been reduced to five: +dragndrop, +ipython, +pandoc, +gnuplot and +present. Everything else is included as org-load-hooks and treated as reasonable defaults. Other changes: - Fixes #1502: don't autopair certain pairs when in a math region - Fixes #1483: broken localleader in org-agenda - Adds gnuplot support #1108 - Doom's org submodules have been moved into lang/org/contrib/, because I expect there will be *many* more to come, and I don't want to pollute the moudle's root.
2019-06-28 16:53:26 +02:00
"Write PATH relative to current file."
:boom: lang/org: conform to new name conventions
2019-07-21 02:38:42 +02:00
:filter-return #'org-download--fullname
lang/org: major refactor The motivation for this change was to rethink lang/org's flags. Many of its former flags represented non-features. Therefore, its flags have been reduced to five: +dragndrop, +ipython, +pandoc, +gnuplot and +present. Everything else is included as org-load-hooks and treated as reasonable defaults. Other changes: - Fixes #1502: don't autopair certain pairs when in a math region - Fixes #1483: broken localleader in org-agenda - Adds gnuplot support #1108 - Doom's org submodules have been moved into lang/org/contrib/, because I expect there will be *many* more to come, and I don't want to pollute the moudle's root.
2019-06-28 16:53:26 +02:00
(let ((dir (or (if buffer-file-name (file-name-directory buffer-file-name))
default-directory)))
(if (file-in-directory-p dir org-directory)
(file-relative-name path dir)
:boom: lang/org: conform to new name conventions
2019-07-21 02:38:42 +02:00
path))))
Reference in a new issue Copy permalink