aboutsummaryrefslogtreecommitdiff
path: root/render.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-10 12:28:02 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-10 12:28:02 -0400
commit8de10aa414b9cce25003beb333f2a8b1bb858098 (patch)
treec6e977f9f544293ae69fceb5951bad94a0d2c9af /render.f90
parent526dd78357047702904420270544486e092ec90c (diff)
downloadLR-87-8de10aa414b9cce25003beb333f2a8b1bb858098.zip
LR-87-8de10aa414b9cce25003beb333f2a8b1bb858098.tar.gz
Fixed adjust link descriptions that contains tabs. Fixed minor makefile mixup.
Diffstat (limited to 'render.f90')
-rw-r--r--render.f9010
1 files changed, 8 insertions, 2 deletions
diff --git a/render.f90 b/render.f90
index 860e06a..387d897 100644
--- a/render.f90
+++ b/render.f90
@@ -301,7 +301,7 @@ contains
class(renderer)::r
character(*)::text
- integer::i_whitespace, d_length
+ integer::i_whitespace, d_length, i_start_display
character(len=:), allocatable::url, display
@@ -325,7 +325,13 @@ contains
else
d_length = len_trim(url) - i_whitespace + 1
allocate(character(len=d_length) :: display)
- display = adjustl(url(i_whitespace:len_trim(url)))
+
+ ! Adjustl doesn't handle tabs, so we need to do this manually...
+ i_start_display = i_whitespace
+ do while(any([" ", char(9)] == url(i_start_display:i_start_display)))
+ i_start_display = i_start_display + 1
+ end do
+ display = url(i_start_display:len_trim(url))
url = url(1:(i_whitespace-1))
end if