重写 ox-hugo/ox-hugo.el 中的 org-hugo--attachment-rewrite-maybe 方法（大约在3189行）
1
2
3
4
5
6
7
| ;;...
(let* ((file-name-relative-path
;; ...
;; ...
((string-match (regexp-quote default-directory) path-true)
(substring path-true (match-end 0)))
;; ...
|
把 (substring path-true (match-end 0)) (大约 3267 行) 修改为：
1
2
3
4
5
6
| (let* ((attach-path (substring path-true (match-end 0)))
;; 如果 以 ~org-attach-directory~ 开头，通常是： ~xxxxx/.attach/xx/xxxxxx/xxxx.
(rewrite-attach-path (if (string-match (regexp-quote (file-truename org-attach-directory)) path-true)
(concat "attach/" (file-name-nondirectory attach-path)) attach-path)))
;;(message "[ox-hugo DBG attch rewrite BUNDLE 2] attch along with Org content: %s" rewrite-attach-path)
rewrite-attach-path)
|
完整内容如下：#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
| (defun org-hugo--attachment-rewrite-maybe (path info)
"Copy local images and pdfs to the static/bundle directory if needed.
Also update the link paths to match those.
PATH is the path to the image or any other attachment.
INFO is a plist used as a communication channel."
;;(message "[ox-hugo attachment DBG] The Hugo section is: %s" (plist-get info :hugo-section))
;;(message "[ox-hugo attachment DBG] The Hugo base dir is: %s" (plist-get info :hugo-base-dir)) ;
(let* ((pub-dir (org-hugo--get-pub-dir info)) ;This needs to happen first so that the check for HUGO_BASE_DIR happens.
(hugo-base-dir (file-name-as-directory (plist-get info :hugo-base-dir)))
(path-unhexified (url-unhex-string path))
(path-true (file-truename path-unhexified))
(exportables org-hugo-external-file-extensions-allowed-for-copying)
(bundle-dir (and (plist-get info :hugo-bundle) pub-dir))
(bundle-name (when bundle-dir
(let* ((content-dir (file-truename
(file-name-as-directory
(expand-file-name "content" hugo-base-dir))))
(is-home-branch-bundle (string= bundle-dir content-dir)))
(cond
(is-home-branch-bundle
"_home")
(t ;`bundle-dir'="/foo/bar/" -> `bundle-name'="bar"
(file-name-base (directory-file-name bundle-dir)))))))
(static-dir (file-truename
(file-name-as-directory
(expand-file-name "static" hugo-base-dir))))
(dest-dir (or bundle-dir static-dir))
ret)
(unless (file-directory-p static-dir)
(user-error "Please create the %s directory" static-dir))
;; (message "[ox-hugo DBG attch rewrite] Image export dir is: %s" static-dir)
;; (message "[ox-hugo DBG attch rewrite] path: %s" path)
;; (message "[ox-hugo DBG attch rewrite] path-true: %s" path-true)
;; (message "[ox-hugo DBG attch rewrite] bundle-dir: %s" bundle-dir)
;; (message "[ox-hugo DBG attch rewrite] bundle-name: %s" bundle-name)
;; (message "[ox-hugo DBG attch rewrite] default-dir: %s" default-directory)
;; (message "[ox-hugo DBG attch rewrite] dest-dir: %s" dest-dir)
(if (and (file-exists-p path-true)
(member (file-name-extension path-unhexified) exportables)
(file-directory-p dest-dir))
(progn
;; Check if `path-true' is already inside `dest-dir'.
(if (string-match (regexp-quote dest-dir) path-true)
(progn
;; If so, return *only* the path considering the
;; destination directory as root.
(setq ret (concat "/" (substring path-true (match-end 0)))))
(let* ((file-name-relative-path
(cond
((string-match "/static/" path-true)
;; `path-true' is "/foo/static/bar/baz.png",
;; return "bar/baz.png".
;;(message "[ox-hugo DBG attch rewrite] path contains static")
;; If path-true contains "/static/", set the
;; `dest-dir' to `static-dir' (even if this is a
;; page bundle).
(setq dest-dir static-dir)
(substring path-true (match-end 0)))
(bundle-dir
(cond
((string-match (concat "/" (regexp-quote bundle-name) "/") path-true)
;; This is a page bundle. `bundle-name' is
;; "<BUNDLE_NAME>", `path-true' is
;; "<ORG_FILE_DIR>/bar/<BUNDLE_NAME>/zoo/baz.png",
;; return "zoo/baz.png".
;; (message "[ox-hugo DBG attch rewrite BUNDLE 1] bundle-name: %s" bundle-name)
;; (message "[ox-hugo DBG attch rewrite BUNDLE 1] attch along with Org content: %s" (substring path-true (match-end 0)))
(substring path-true (match-end 0)))
((string-match (regexp-quote default-directory) path-true)
;; This is a page bundle. `default-path' is
;; "<ORG_FILE_DIR>/", `path-true' is
;; "<ORG_FILE_DIR>/bar/baz.png", return
;; "bar/baz.png".
;;
;; 修复 =org-mode= 附件格式以 =attach= 保存时，附件能正常复制到 ~content/~ 文件夹下，但不能正常发布的问题；
(let* ((attach-path (substring path-true (match-end 0)))
;; 如果 以 ~org-attach-directory~ 开头，通常是： ~xxxxx/.attach/xx/xxxxxx/xxxx.
(rewrite-attach-path (if (string-match (regexp-quote (file-truename org-attach-directory)) path-true)
(concat "attach/" (file-name-nondirectory attach-path)) attach-path)))
;;(message "[ox-hugo DBG attch rewrite BUNDLE 2] attch along with Org content: %s" rewrite-attach-path)
rewrite-attach-path))
(t
;; This is a page bundle. `default-path' is
;; "<ORG_FILE_DIR>/", `path-true' is
;; "/foo/bar/baz.png", return "baz.png".
;;(message "[ox-hugo DBG attch rewrite BUNDLE 3] attch neither in static nor in Org file dir")
(file-name-nondirectory path-unhexified))))
(t
;; Else, `path-true' is "/foo/bar/baz.png",
;; return "ox-hugo/baz.png". "ox-hugo" is the
;; default value of
;; `org-hugo-default-static-subdirectory-for-externals'.
;;(message "[ox-hugo DBG attch rewrite] neither BUNDLE nor contains static")
(concat
(file-name-as-directory org-hugo-default-static-subdirectory-for-externals)
(file-name-nondirectory path-unhexified)))))
(dest-path (concat dest-dir file-name-relative-path))
(dest-path-dir (file-name-directory dest-path)))
;; The `dest-dir' would already exist. But if
;; `file-name-relative-path' is "images/image.png" or
;; "foo/bar.txt", it's likely that "`dest-dir'/images"
;; or "`dest-dir'/foo" might not exist. So create those
;; if needed below.
(unless (file-exists-p dest-path-dir)
(mkdir dest-path-dir :parents))
;; (message "[ox-hugo DBG attch rewrite] file-name-relative-path: %s" file-name-relative-path)
;; (message "[ox-hugo DBG attch rewrite] dest-path: %s" dest-path)
;; (message "[ox-hugo DBG attch rewrite] dest-path-dir: %s" dest-path-dir)
;; Do the copy only if the file to be copied is newer or
;; doesn't exist in the static dir.
(when (file-newer-than-file-p path-true dest-path)
(message "[ez-ox-hugo] Copied %S to %S" path-true dest-path)
(copy-file path-true dest-path :ok-if-already-exists))
(setq ret (if (and bundle-dir
(string= bundle-dir dest-dir))
;; If attachments are copied to the bundle
;; directory, don't prefix the path as "/"
;; as those paths won't exist at the site
;; base URL.
file-name-relative-path
(concat "/" file-name-relative-path))))))
(setq ret path))
;;(message "[ox-hugo DBG attch rewrite] returned path: %s" ret)
ret))
|