class HYPERLINK_NOTE_SUBSTITUTION

(source code)

description

Expand hyperlink in class note

note
	description: "Expand hyperlink in class note"

	author: "Finnian Reilly"
	copyright: "Copyright (c) 2001-2022 Finnian Reilly"
	contact: "finnian at eiffel hyphen loop dot com"

	license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
	date: "2024-01-23 9:33:27 GMT (Tuesday 23rd January 2024)"
	revision: "9"


class
	HYPERLINK_NOTE_SUBSTITUTION

inherit
	HYPERLINK_SUBSTITUTION
		redefine
			new_expanded_link
		end

	PUBLISHER_CONSTANTS

	EL_PATH_CONSTANTS

create
	make

feature {NONE} -- Implementation

	new_expanded_link (a_path, text: ZSTRING): ZSTRING
		local
			path: ZSTRING; html_path: FILE_PATH
			first_index: INTEGER
		do
			path := a_path
			if path.starts_with (Current_dir_forward_slash) then
				first_index := Current_dir_forward_slash.count + 1
				if path.occurrences ('/') > 1 then
					html_path := path.substring_end (first_index)
					path := html_path.universal_relative_path (relative_page_dir)

				elseif path.valid_index (first_index) and then path [first_index] = '#' then
					path := Back_dir_step.multiplied (relative_page_dir.step_count) + path.substring_end (first_index)
				end
			end
			Result := Html_link_template #$ [path, Empty_string, text]
		end

end