Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
M
mooc-rr-ressources
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
4
Merge Requests
4
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Commits
Issue Boards
Open sidebar
Learning Lab
mooc-rr-ressources
Commits
75791358
Commit
75791358
authored
Mar 25, 2019
by
Arnaud Legrand
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[HTML] Trying to fix paths to internal documents
parent
cc1560a7
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
7 additions
and
2 deletions
+7
-2
pandoc_fixer.pl
bin/pandoc_fixer.pl
+7
-2
No files found.
bin/pandoc_fixer.pl
View file @
75791358
...
@@ -30,7 +30,8 @@ my($output_temp) = $output."tmp";
...
@@ -30,7 +30,8 @@ my($output_temp) = $output."tmp";
my
(
$input_path
)
=
$input
;
my
(
$input_path
)
=
$input
;
$input_path
=~
s
|
/[^/
]
*
$|
|
g
;
$input_path
=~
s
|
/[^/
]
*
$|
|
g
;
my
(
$url_path
)
=
"https://gitlab.inria.fr/learninglab/mooc-rr/mooc-rr-ressources/raw/master/"
.
$input_path
;
my
(
$raw_path
)
=
"https://gitlab.inria.fr/learninglab/mooc-rr/mooc-rr-ressources/raw/master/"
.
$input_path
;
my
(
$tree_path
)
=
"https://gitlab.inria.fr/learninglab/mooc-rr/mooc-rr-ressources/tree/master/"
.
$input_path
;
my
(
$gitlab_origin
)
=
"https://gitlab.inria.fr/learninglab/mooc-rr/mooc-rr-ressources/blob/master/"
;
my
(
$gitlab_origin
)
=
"https://gitlab.inria.fr/learninglab/mooc-rr/mooc-rr-ressources/blob/master/"
;
########### Pandoc #################
########### Pandoc #################
...
@@ -63,9 +64,13 @@ while(defined(my $line=<INPUT>)) {
...
@@ -63,9 +64,13 @@ while(defined(my $line=<INPUT>)) {
# $line =~ s|<p>TITLE:\(.*\)<br|<b>TITLE:$1</b><br|g;
# $line =~ s|<p>TITLE:\(.*\)<br|<b>TITLE:$1</b><br|g;
$line
=~
s
|
img
src
=
"http|img src="
%|
g
;
$line
=~
s
|
img
src
=
"http|img src="
%|
g
;
$line
=~
s
|
img
src
=
"([^%][^"
]
*
)
"|img src="
$
url_path
/
$1
?
inline
=
false
"|g;
$line
=~
s
|
img
src
=
"([^%][^"
]
*
)
"|img src="
$
raw_path
/
$1
"|g; # ?inline=false
$line =~ s|img src="
%|
img
src
=
"http|g;
$line =~ s|img src="
%|
img
src
=
"http|g;
$line =~ s|href="
http
|
href
=
"%|g;
$line =~ s|href="
([
^%
][
^
"]*)"
|
href
=
"$tree_path/$1"
|
g
;
# ?inline=false
$line
=~
s
|
href
=
"%|href="
http
|
g
;
# if($line =~ /img src="([^%][^"]*)"/) {
# if($line =~ /img src="([^%][^"]*)"/) {
# $line = "\t".$line;
# $line = "\t".$line;
# }
# }
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment