copy only lhs and hs files
This commit is contained in:
parent
11f3685b54
commit
7e023469e1
1 changed files with 9 additions and 1 deletions
10
prev
10
prev
|
@ -15,11 +15,19 @@ print -- "Create article"
|
||||||
./create_ymd.sh > $webroot/latest.ymd
|
./create_ymd.sh > $webroot/latest.ymd
|
||||||
|
|
||||||
print -- "Copy source codes"
|
print -- "Copy source codes"
|
||||||
|
ycp() {
|
||||||
|
print -- $*
|
||||||
|
cp $*
|
||||||
|
}
|
||||||
latestArticleDir=$(ls -l $webroot/latest.ymd | perl -pi -e 's#.*/##; s#.md$##')
|
latestArticleDir=$(ls -l $webroot/latest.ymd | perl -pi -e 's#.*/##; s#.md$##')
|
||||||
for langue in en fr; do
|
for langue in en fr; do
|
||||||
dst="$webroot/output/Scratch/$langue/blog/$latestArticleDir/code"
|
dst="$webroot/output/Scratch/$langue/blog/$latestArticleDir/code"
|
||||||
[[ ! -d $dst ]] && mkdir -p $dst
|
[[ ! -d $dst ]] && mkdir -p $dst
|
||||||
cp -r *.lhs ??_*(N/) $dst
|
ycp *.lhs(N) $dst
|
||||||
|
for dir in ??_*(N/); do
|
||||||
|
mkdir $dst/$dir
|
||||||
|
ycp $dir/*.{lhs,hs} $dst/$dir
|
||||||
|
done
|
||||||
done
|
done
|
||||||
|
|
||||||
cd $webroot
|
cd $webroot
|
||||||
|
|
Loading…
Reference in a new issue