remove: dependancy for org
This commit is contained in:
parent
d7d53fb9f6
commit
f27fe786d3
6 changed files with 0 additions and 5641 deletions
|
@ -1,170 +0,0 @@
|
|||
" ------------------------------------------------------------------------------
|
||||
" File: autoload/utl_lib.vim -- Finish installation and
|
||||
" data migration support
|
||||
" Part of the Utl plugin, see ../plugin/utl.vim
|
||||
" Author: Stefan Bittner <stb@bf-consulting.de>
|
||||
" Licence: This program is free software; you can redistribute it and/or
|
||||
" modify it under the terms of the GNU General Public License.
|
||||
" See http://www.gnu.org/copyleft/gpl.txt
|
||||
" Version: utl 3.0a
|
||||
" ------------------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
" Intended to finish installation after Utl 3.0a files have been installed
|
||||
" by UseVimball. Will automatically be called after UseVimball in
|
||||
" utl_3_0a.vba. But can be called at any later time or can be called multiple
|
||||
" times. As an autoload function it can be called directly from within
|
||||
" :so utl_3_0a.vba without starting a new Vim instance.
|
||||
"
|
||||
" - Deletes any existing obsolete files: plugin/utl_arr.vim, doc/utl_ref.txt
|
||||
" - Data migration: Checks for utl_2.0 configuration variables and print
|
||||
" instructions to user how to migrate them.
|
||||
"
|
||||
" Note: Utl 3.0a installation saved file plugin/utl_rc.vim to
|
||||
" plugin/utl_old_rc.vim prior to Utl 3.0a installation (Preinstall). So the
|
||||
" old variables remain and will be visible in new Vim instance.
|
||||
"
|
||||
function! utl_lib#Postinstall()
|
||||
|
||||
echo "----------------------------------------------------------------------"
|
||||
echo "Info: Start of Utl 3.0a post installation."
|
||||
echo " This will handle relicts of any previously installed Utl version"
|
||||
echo "\n"
|
||||
|
||||
if ! exists("g:utl_vim")
|
||||
echo "Info: No previously installed Utl version found (variable g:utl_vim)"
|
||||
echo " does not exist). Nothing to do at all."
|
||||
if exists("g:utl_rc_vim")
|
||||
echo "\n"
|
||||
echo "Warning: But file ".g:utl_rc_vim." still exists"
|
||||
echo " You should remove it from the plugin directory"
|
||||
endif
|
||||
echo "\n"
|
||||
echo " To start with Utl open a new Vim, type:"
|
||||
echo " :help utl"
|
||||
echo " and follow the live examples"
|
||||
echo "\n"
|
||||
echo " End of Utl 3.0a post installation"
|
||||
echo "----------------------------------------------------------------------\n"
|
||||
call input("<Hit Return to continue>")
|
||||
return
|
||||
endif
|
||||
|
||||
"--- 2. Delete obsolete Utl 2.0 files
|
||||
if exists("g:utl_arr_vim")
|
||||
if filereadable(g:utl_arr_vim)
|
||||
if delete(g:utl_arr_vim)==0
|
||||
echo "Info: obsolete Utl 2.0 file ".g:utl_arr_vim." deleted successfully"
|
||||
else
|
||||
echohl WarningMsg
|
||||
echo "Warning: Could not delete obsolete Utl 2.0 file".g:utl_arr_vim."."
|
||||
echo " This does not affect proper function but you might want to"
|
||||
echo " delete it manually in order to cleanup your plugin directory"
|
||||
echohl None
|
||||
endif
|
||||
else
|
||||
echo "Warning: no obsolete Utl 2.0 file ".g:utl_arr_vim." found"
|
||||
endif
|
||||
else
|
||||
echo "Warning: variable g:utl_arr_vim not found. Inconsistent installation"
|
||||
endif
|
||||
|
||||
if exists("g:utl_vim") " no variable for utl_ref, so start from utl.vim
|
||||
let utl_ref_txt = fnamemodify(g:utl_vim, ":p:h:h") . "/doc/utl_ref.txt"
|
||||
if filereadable(utl_ref_txt)
|
||||
if delete(utl_ref_txt)==0
|
||||
echo "Info: obsolete Utl 2.0 file ".utl_ref_txt." deleted successfully"
|
||||
else
|
||||
echohl WarningMsg
|
||||
echo "Warning: Could not delete obsolete Utl 2.0 file ".utl_ref_txt
|
||||
echo " but you might want to delete it manually to avoid garbage"
|
||||
echo " docs / help tags"
|
||||
echohl None
|
||||
endif
|
||||
else
|
||||
echo "Warning: no obsolete Utl 2.0 file ".utl_ref_txt." found"
|
||||
endif
|
||||
endif
|
||||
|
||||
"--- 3. Check for Utl V2.0 variables
|
||||
" The user might want to migrate these to Utl 2.1 variable names
|
||||
" g:utl_rc_xxx -> g:utl_cfg_xxx
|
||||
" g:utl_config_highl_urls -> g:utl_opt_highlight_urls
|
||||
" g:utl_mt_xxx -> utl_cfg_mth__xxx
|
||||
let varMap = {}
|
||||
|
||||
if exists("g:utl_rc_app_mailer")
|
||||
let varMap['g:utl_rc_app_mailer'] = 'g:utl_cfg_hdl_scm_mailto'
|
||||
endif
|
||||
|
||||
if exists("g:utl_rc_app_browser")
|
||||
let varMap['g:utl_rc_app_browser'] = 'g:utl_cfg_hdl_scm_http'
|
||||
endif
|
||||
|
||||
if exists("g:utl_config_highl")
|
||||
let varMap['g:utl_config_highl'] = 'g:utl_opt_highlight_urls'
|
||||
endif
|
||||
|
||||
" All utl_mt_ variables. Get them by capturing the ':let' output
|
||||
redir => redirBuf
|
||||
silent let
|
||||
redir END
|
||||
|
||||
let line=split(redirBuf)
|
||||
let prefix='utl_mt_'
|
||||
for item in line
|
||||
if item=~ '^'.prefix
|
||||
let suffix = strpart(item, strlen(prefix))
|
||||
let newName = 'utl_cfg_hdl_mt_'.suffix
|
||||
|
||||
let varMap['utl_mt_'.suffix] = newName
|
||||
|
||||
endif
|
||||
endfor
|
||||
|
||||
if ! empty(varMap)
|
||||
echo "\n"
|
||||
echohl WarningMsg
|
||||
echo "Warning: The following Vim variable(s) from a previously installed"
|
||||
echo " Utl version have been detected. You might a) want to rename"
|
||||
echo " them to the new Utl version 3.0a names as given in the table below."
|
||||
echo " Or you might b) want just delete the old variables."
|
||||
echo "\n"
|
||||
echo " If you don't care, then choose b), i.e. just remove those variables"
|
||||
echo " from your vimrc or delete utl_rc_old.vim (which possibly has been"
|
||||
echo " created during preinstall (see second line in utl_3_0a.vba)). This is"
|
||||
echo " not a bad choice since Utl 3.0 provides a generic handler variable"
|
||||
echo " which discharges you from maintaining specific handler variables for"
|
||||
echo " each file type."
|
||||
echohl None
|
||||
else
|
||||
echo "Info: No variables of a previous Utl installation detected."
|
||||
echo " So nothing no further instructions for moving them away needed."
|
||||
endif
|
||||
for key in sort(keys(varMap))
|
||||
echo printf(" %-40s -> %s", key, varMap[key])
|
||||
endfor
|
||||
if ! empty(varMap)
|
||||
echo "\n"
|
||||
endif
|
||||
|
||||
echo "\n"
|
||||
echo "Info: You can perform post installation again anytime with the command:"
|
||||
echo " :call utl_lib#Postinstall()\n"
|
||||
echo " You can also just install again by :source'ing Utl_3_0a.vba"
|
||||
echo "\n"
|
||||
echo " You should move the possibly created file plugin/utl_old_rc.vim out of"
|
||||
echo " the way when done with data migration. I.e. delete it or rename it to"
|
||||
echo " other file name extension than .vim or move it away from the plugin"
|
||||
echo " directory."
|
||||
echo "\n"
|
||||
echo " To start with Utl open a new Vim and type:"
|
||||
echo " :help utl"
|
||||
echo "\n"
|
||||
echo "Info: End of Utl 3.0a post installation"
|
||||
echo "----------------------------------------------------------------------\n"
|
||||
call input("<Hit Return to continue>")
|
||||
|
||||
endfunction
|
2194
doc/utl_usr.txt
2194
doc/utl_usr.txt
File diff suppressed because it is too large
Load diff
1846
plugin/utl.vim
1846
plugin/utl.vim
File diff suppressed because it is too large
Load diff
|
@ -1,423 +0,0 @@
|
|||
" BEGIN OF UTL PLUGIN CONFIGURATION id=utl_rc [
|
||||
" vim: fdm=marker
|
||||
|
||||
let utl__file_rc = expand("<sfile>") " Do not remove this line
|
||||
|
||||
" Hints id=hints
|
||||
"
|
||||
" - Choose a template variable and uncomment it or create a new one.
|
||||
" Then issue the command :so % to activate it. You can check whether
|
||||
" a variable is defined with the command :let utl_cfg_<name>
|
||||
"
|
||||
" - You can change the variables in this file whenever you want, not just when
|
||||
" Utl.vim automatically presented you this file.
|
||||
"
|
||||
" - You might want to take any variables defined here into your vimrc file.
|
||||
" Since vimrc is always loaded before any plugin files you should comment
|
||||
" all variables to avoid overwriting of your vimrc settings.
|
||||
" (Deletion of utl_rc.vim is also possible. In this case you should
|
||||
" preserve the Utl link targets id=xxx plus line :let utl__file_rc
|
||||
" above (i.e. also take over into you vimrc file).)
|
||||
|
||||
|
||||
" id=schemeHandlers------------------------------------------------------------[
|
||||
|
||||
|
||||
" id=schemeHandlerHttp---------------------------------------------------------[
|
||||
"
|
||||
" Allowed conversion specifiers are:
|
||||
" %u - URL (without fragment, e.g. 'http://www.vim.org/download.php'
|
||||
" %f - fragment (what comes after the '#', if any)
|
||||
" %d - display mode (e.g. 'edit', 'tabedit', 'split' etc. Probably only relevant
|
||||
" if downloaded document handled in Vim)
|
||||
|
||||
|
||||
" [id=utl_cfg_hdl_scm_http]
|
||||
"
|
||||
" Hints:
|
||||
" 1. If g:utl_cfg_hdl_mt_generic is defined then you can probably
|
||||
" construct utl_cfg_hdl_scm_http by just replacing %u -> %p (Unix) or %u
|
||||
" -> %P (Windows).
|
||||
" 2. Instead of directly defining g:utl_cfg_hdl_scm_http it is recommended
|
||||
" to define g:utl_cfg_hdl_scm_http_system . Doing so enables the dynamic
|
||||
" handler switching:
|
||||
" 3. Suggestion for mapping for dynamic switch between handlers [id=map_http]
|
||||
" :map <Leader>uhs :let g:utl_cfg_hdl_scm_http=g:utl_cfg_hdl_scm_http_system<cr>
|
||||
" :map <Leader>uhw :let g:utl_cfg_hdl_scm_http=g:utl_cfg_hdl_scm_http__wget<cr>
|
||||
|
||||
|
||||
" [id=utl_cfg_hdl_scm_http_system] {
|
||||
" Definition of your system's standard web handler, e.g. Firefox.
|
||||
" Either directly (e.g. Firefox), or indirectly ("start" command
|
||||
" in Windows).
|
||||
" Note: Needs not necessarily be the system's standard handler.
|
||||
" Can be anything but should be seen in contrast to
|
||||
" utl_cfg_hdl_scm_http__wget below
|
||||
"
|
||||
if !exists("g:utl_cfg_hdl_scm_http_system")
|
||||
|
||||
if has("win32")
|
||||
let g:utl_cfg_hdl_scm_http_system = 'silent !cmd /q /c start "dummy title" "%u"'
|
||||
"let g:utl_cfg_hdl_scm_http_system = 'silent !start C:\Program Files\Internet Explorer\iexplore.exe %u#%f'
|
||||
"let g:utl_cfg_hdl_scm_http_system = 'silent !start C:\Program Files\Mozilla Firefox\firefox.exe %u#%f'
|
||||
|
||||
elseif has("unix")
|
||||
|
||||
" TODO: Standard Handler for Unixes that can be shipped
|
||||
" preconfigured with next utl.vim release
|
||||
" Probably to distinguish different Unix/Linux flavors.
|
||||
"
|
||||
" Proposed for Ubuntu/Debian by Jeremy Cantrell
|
||||
" to use xdg-open program
|
||||
" 'silent !xdg-open %u' <- does this work?
|
||||
"
|
||||
" 2nd best solution: explicitly configured browser:
|
||||
"
|
||||
" Konqueror
|
||||
"let g:utl_cfg_hdl_scm_http_system = "silent !konqueror '%u#%f' &"
|
||||
"
|
||||
" Lynx Browser.
|
||||
"let g:utl_cfg_hdl_scm_http_system = "!xterm -e lynx '%u#%f'"
|
||||
"
|
||||
" Firefox
|
||||
" Check if an instance is already running, and if yes use it, else start firefox.
|
||||
" See <URL:http://www.mozilla.org/unix/remote.html> for mozilla/firefox -remote control
|
||||
"let g:utl_cfg_hdl_scm_http_system = "silent !firefox -remote 'ping()' && firefox -remote 'openURL( %u )' || firefox '%u#%f' &"
|
||||
|
||||
endif
|
||||
" else if MacOS
|
||||
" ??
|
||||
"let g:utl_cfg_hdl_scm_http_system = "silent !open -a Safari '%u#%f'"
|
||||
"
|
||||
"}
|
||||
|
||||
endif
|
||||
|
||||
if !exists("g:utl_cfg_hdl_scm_http")
|
||||
if exists("g:utl_cfg_hdl_scm_http_system")
|
||||
let g:utl_cfg_hdl_scm_http=g:utl_cfg_hdl_scm_http_system
|
||||
endif
|
||||
endif
|
||||
|
||||
|
||||
" [id=utl_cfg_hdl_scm_http__wget]
|
||||
let g:utl_cfg_hdl_scm_http__wget="call Utl_if_hdl_scm_http__wget('%u')"
|
||||
|
||||
" Platform independent
|
||||
" Delegate to netrw.vim [id=http_netrw]
|
||||
"let g:utl_cfg_hdl_scm_http="silent %d %u"
|
||||
"
|
||||
|
||||
"]
|
||||
|
||||
" id=schemeHandlerScp--------------------------------------------------------------[
|
||||
" Allowed conversion specifiers are:
|
||||
" %u - URL (without fragment, e.g. 'scp://www.someServer.de/someFile.txt'
|
||||
" %f - fragment (what comes after the '#', if any)
|
||||
" %d - display mode (e.g. 'edit', 'tabedit', 'split' etc. Probably only relevant
|
||||
" if downloaded document handled in Vim)
|
||||
|
||||
" [id=utl_cfg_hdl_scm_scp]
|
||||
" Delegate to netrw.vim. TODO: Should set utl__hdl_scm_ret_list to buffer name
|
||||
" NOTE: On Windows I have set g:netrw_scp_cmd="pscp -q" (pscp comes with
|
||||
" the putty tool), see also <url:vimscript:NetrwSettings>
|
||||
if !exists("g:utl_cfg_hdl_scm_scp")
|
||||
let g:utl_cfg_hdl_scm_scp = "silent %d %u"
|
||||
endif
|
||||
|
||||
"]
|
||||
|
||||
" id=schemeHandlerMailto-----------------------------------------------------------[
|
||||
" Allowed conversion specifiers are:
|
||||
" %u - will be replaced with the mailto URL
|
||||
"
|
||||
if !exists("g:utl_cfg_hdl_scm_mailto")
|
||||
|
||||
" [id=utl_cfg_hdl_scm_mailto] {
|
||||
if has("win32")
|
||||
let g:utl_cfg_hdl_scm_mailto = 'silent !cmd /q /c start "dummy title" "%u"'
|
||||
endif
|
||||
" Samples:
|
||||
" Windows
|
||||
" Outlook
|
||||
"let g:utl_cfg_hdl_scm_mailto = 'silent !start C:\Programme\Microsoft Office\Office11\OUTLOOK.EXE /c ipm.note /m %u'
|
||||
"let g:utl_cfg_hdl_scm_mailto = 'silent !start C:\Program Files\Microsoft Office\Office10\OUTLOOK.exe /c ipm.note /m %u'
|
||||
"
|
||||
" Unix
|
||||
"let g:utl_cfg_hdl_scm_mailto = "!xterm -e mutt '%u'"
|
||||
"let g:utl_cfg_hdl_scm_mailto = "silent !kmail '%u' &"
|
||||
"}
|
||||
|
||||
endif
|
||||
|
||||
|
||||
" id=schemeHandlerMail---------------------------------------------------------[
|
||||
" Allowed conversion specifiers are:
|
||||
" %a - main folder Example:
|
||||
" %p - folder path Given the URL
|
||||
" %d - date <url:mail://myfolder/Inbox?date=12.04.2008 15:04&from=foo&subject=bar>
|
||||
" %f - from the specifiers will be converted as
|
||||
" %s - subject %a=myfolder, %p=Inbox, %d=12.04.2008 15:04, %f=foo, %s=bar
|
||||
|
||||
" Windows
|
||||
" Outlook [id=utl_cfg_hdl_scm_mail__outlook]
|
||||
if has("win32")
|
||||
let g:utl_cfg_hdl_scm_mail__outlook = "call Utl_if_hdl_scm_mail__outlook('%a','%p','%d','%f','%s')"
|
||||
endif
|
||||
|
||||
" [id=utl_cfg_hdl_scm_mail] {
|
||||
if !exists("g:utl_cfg_hdl_scm_mail")
|
||||
"let g:utl_cfg_hdl_scm_mail=g:utl_cfg_hdl_scm_mail__outlook
|
||||
endif
|
||||
"}
|
||||
|
||||
"]
|
||||
|
||||
" id=mediaTypeHandlers---------------------------------------------------------[
|
||||
" Setup of handlers for media types which you don't want to be displayed by Vim.
|
||||
"
|
||||
" Allowed conversion specifiers:
|
||||
"
|
||||
" %p - Replaced by full path to file or directory
|
||||
"
|
||||
" %P - Replaced by full path to file or directory, where the path components
|
||||
" are separated with backslashes (most Windows programs need this).
|
||||
" Note that full path might also contain a drive letter.
|
||||
"
|
||||
" %f - Replaced by fragment if given in URL, else replaced by empty string.
|
||||
"
|
||||
" Details :
|
||||
" - The variable name is g:utl_cfg_hdl_mt_<media type>, where the characters / . + -
|
||||
" which can appear in media types are mapped to _ to make a valid variable
|
||||
" name, e.g. Vim variable for media type 'video/x-msvideo' is
|
||||
" 'g:utl_cfg_hdl_mt_video_x_msvideo'
|
||||
" - The "" around the %P is needed to support file names containing blanks
|
||||
" - Remove the :silent when you are testing with a new string to see what's
|
||||
" going on (see <URL:vimhelp::silent> for infos on the :silent command).
|
||||
" Perhaps you like :silent also for production (I don't).
|
||||
" - NOTE: You can supply any command here, i.e. does not need to be a shell
|
||||
" command that calls an external program (some cmdline special treatment
|
||||
" though, see <URL:utl.vim#r=esccmd>)
|
||||
" - You can introduce new media types to not handle a certain media type
|
||||
" by Vim (e.g. display it as text in Vim window). Just make sure that the
|
||||
" new media type is also supported at this place:
|
||||
" <URL:utl.vim#r=utl_checkmtype>
|
||||
" - Use the pseudo handler 'VIM' if you like the media type be displayed by
|
||||
" by Vim. This yields the same result as if the media type is not defined,
|
||||
" see last item.
|
||||
|
||||
|
||||
" [id=utl_cfg_hdl_mt_generic] {
|
||||
" You can either define the generic variable or a variable
|
||||
" for the specific media type, see #r=mediaTypeHandlersSpecific
|
||||
if !exists("g:utl_cfg_hdl_mt_generic")
|
||||
if has("win32")
|
||||
let g:utl_cfg_hdl_mt_generic = 'silent !cmd /q /c start "dummy title" "%P"'
|
||||
elseif has("unix")
|
||||
if $WINDOWMANAGER =~? 'kde'
|
||||
let g:utl_cfg_hdl_mt_generic = 'silent !konqueror "%p" &'
|
||||
endif
|
||||
" ? Candidate for Debian/Ubuntu: 'silent !xdg-open %u'
|
||||
endif
|
||||
endif
|
||||
"}
|
||||
|
||||
|
||||
" [id=mediaTypeHandlersSpecific] {
|
||||
|
||||
"if !exists("g:utl_cfg_hdl_mt_application_excel")
|
||||
" let g:utl_cfg_hdl_mt_application_excel = ':silent !start C:\Program Files\Microsoft Office\Office10\EXCEL.EXE "%P"'
|
||||
"endif
|
||||
|
||||
"if !exists("g:utl_cfg_hdl_mt_application_msmsg")
|
||||
" let g:utl_cfg_hdl_mt_application_msmsg = ':silent !start C:\Program Files\Microsoft Office\Office10\OUTLOOK.EXE -f "%P"'
|
||||
"endif
|
||||
|
||||
"if !exists("g:utl_cfg_hdl_mt_application_powerpoint")
|
||||
" let g:utl_cfg_hdl_mt_application_powerpoint = ':silent !start C:\Program Files\Microsoft Office\Office10\POWERPNT.EXE "%P"'
|
||||
"endif
|
||||
|
||||
"if !exists("g:utl_cfg_hdl_mt_application_rtf")
|
||||
" let g:utl_cfg_hdl_mt_application_rtf = ':silent !start C:\Program Files\Windows NT\Accessories\wordpad.exe "%P"'
|
||||
"endif
|
||||
|
||||
"if !exists("g:utl_cfg_hdl_mt_text_html")
|
||||
" let g:utl_cfg_hdl_mt_text_html = 'VIM'
|
||||
" Windows
|
||||
" let g:utl_cfg_hdl_mt_text_html = 'silent !start C:\Program Files\Internet Explorer\iexplore.exe %P'
|
||||
" KDE
|
||||
" let g:utl_cfg_hdl_mt_text_html = ':silent !konqueror %p#%f &'
|
||||
"endif
|
||||
|
||||
|
||||
"if !exists("g:utl_cfg_hdl_mt_application_zip")
|
||||
" let g:utl_cfg_hdl_mt_application_zip = ':!start C:\winnt\explorer.exe "%P"'
|
||||
"endif
|
||||
|
||||
"if !exists("g:utl_cfg_hdl_mt_video_x_msvideo")
|
||||
" let g:utl_cfg_hdl_mt_video_x_msvideo = ':silent !start C:\Program Files\VideoLAN\VLC\vlc.exe "%P"'
|
||||
"endif
|
||||
|
||||
|
||||
"--- Some alternatives for displaying directories [id=utl_cfg_hdl_mt_text_directory] {
|
||||
if has("win32")
|
||||
let g:utl_cfg_hdl_mt_text_directory__cmd = ':!start cmd /K cd /D "%P"' " Dos box
|
||||
endif
|
||||
let g:utl_cfg_hdl_mt_text_directory__vim = 'VIM' " Vim builtin file explorer
|
||||
|
||||
if !exists("g:utl_cfg_hdl_mt_text_directory")
|
||||
let g:utl_cfg_hdl_mt_text_directory=utl_cfg_hdl_mt_text_directory__vim
|
||||
"
|
||||
" KDE
|
||||
"let g:utl_cfg_hdl_mt_text_directory = ':silent !konqueror %p &'
|
||||
endif
|
||||
" Suggestion for mappings for dynamic switch between handlers [id=map_directory]
|
||||
":map <Leader>udg :let g:utl_cfg_hdl_mt_text_directory=g:utl_cfg_hdl_mt_generic<cr>
|
||||
":map <Leader>udv :let g:utl_cfg_hdl_mt_text_directory=g:utl_cfg_hdl_mt_text_directory__vim<cr>
|
||||
":map <Leader>udc :let g:utl_cfg_hdl_mt_text_directory=g:utl_cfg_hdl_mt_text_directory__cmd<cr>
|
||||
"
|
||||
"}
|
||||
|
||||
|
||||
" [id=utl_cfg_hdl_mt_application_pdf__acrobat] {
|
||||
"let g:utl_cfg_hdl_mt_application_pdf__acrobat="call Utl_if_hdl_mt_application_pdf_acrobat('%P', '%f')"
|
||||
"if !exists("g:utl_cfg_hdl_mt_application_pdf")
|
||||
" let g:utl_cfg_hdl_mt_application_pdf = g:utl_cfg_hdl_mt_application_pdf__acrobat
|
||||
"
|
||||
" Linux/KDE
|
||||
" let g:utl_cfg_hdl_mt_application_pdf = ':silent !acroread %p &'
|
||||
"endif
|
||||
"}
|
||||
|
||||
|
||||
" [id=utl_cfg_hdl_mt_application_msword__word] {
|
||||
"let g:utl_cfg_hdl_mt_application_msword__word = "call Utl_if_hdl_mt_application_msword__word('%P','%f')"
|
||||
"if !exists("g:utl_cfg_hdl_mt_application_msword")
|
||||
" let g:utl_cfg_hdl_mt_application_msword = g:utl_cfg_hdl_mt_application_msword__word
|
||||
" Linux/Unix
|
||||
" let g:utl_cfg_hdl_mt_application_msword = ... Open Office
|
||||
"endif
|
||||
"}
|
||||
|
||||
|
||||
"if !exists("g:utl_cfg_hdl_mt_application_postscript")
|
||||
" Seem to need indirect call via xterm, otherwise no way to
|
||||
" stop at each page
|
||||
" let g:utl_cfg_hdl_mt_application_postscript = ':!xterm -e gs %p &'
|
||||
"endif
|
||||
|
||||
"if !exists("g:utl_cfg_hdl_mt_audio_mpeg")
|
||||
" let g:utl_cfg_hdl_mt_audio_mpeg = ':silent !xmms %p &'
|
||||
"endif
|
||||
|
||||
"if !exists("g:utl_cfg_hdl_mt_image_jpeg")
|
||||
" let g:utl_cfg_hdl_mt_image_jpeg = ':!xnview %p &'
|
||||
"endif
|
||||
|
||||
"}
|
||||
|
||||
"]
|
||||
|
||||
" Utl interface variables " id=utl_drivers [
|
||||
|
||||
" id=utl_if_hdl_scm_http_wget_setup--------------------------------------------[
|
||||
"
|
||||
" To make Wget work you need a wget executable in the PATH.
|
||||
" Windows : Wget not standard. Download for example from
|
||||
" <url:http://users.ugent.be/~bpuype/wget/#download>
|
||||
" and put it into to c:\windows\system32
|
||||
" Unix : Should work under Unix out of the box since wget standard!?
|
||||
"
|
||||
" ]
|
||||
|
||||
|
||||
" id=utl_if_hdl_scm_mail__outlook_setup----------------------------------------[
|
||||
"
|
||||
" To make Outlook work you for the mail:// schemes you need the VBS OLE
|
||||
" Automation file:
|
||||
"
|
||||
" 1. Adapt the VBS source code to your locale by editing the file utl.vim at
|
||||
" the position: <url:./utl.vim#r=received> and then :write the file (utl.vim).
|
||||
"
|
||||
" 2. Execute the following link to (re-)create the VBS file by cutting it
|
||||
" out from utl.vim:
|
||||
"
|
||||
" <url:vimscript:call Utl_utilCopyExtract(g:utl__file, g:utl__file_if_hdl_scm__outlook, '=== FILE_OUTLOOK_VBS' )>
|
||||
"
|
||||
" ]
|
||||
|
||||
|
||||
" id=Utl_if_hdl_mt_application_pdf_acrobat_setup-------------------------------[
|
||||
"
|
||||
" To make acrobat work with fragments you need to provide the variable
|
||||
" g:utl_cfg_hdl_mt_application_pdf_acrobat_exe_path.
|
||||
"
|
||||
" Modify and uncomment one of the samples below, then do :so %
|
||||
" Windows:
|
||||
" Normally you should get the path by executing in a dos box:
|
||||
" cmd> ftype acroexch.document
|
||||
" Here are two samples:
|
||||
" let g:utl_cfg_hdl_mt_application_pdf_acrobat_exe_path = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe"
|
||||
" let g:utl_cfg_hdl_mt_application_pdf_acrobat_exe_path = 'C:\Programme\Adobe\Reader 8.0\Reader\AcroRd32.exe'
|
||||
" Full path not needed if Acrobat Reader in path
|
||||
" Unix:
|
||||
" Probably Acrobat Reader is in the path, with program's name `acroread'.
|
||||
" But most certainly the command line options used below will not fit,
|
||||
" see <url:#r=ar_switches>, and have to be fixed. Please send me proper
|
||||
" setup for Linux, Solaris etc. I'm also interested in xpdf instead
|
||||
" of Acrobat Reader (function Utl_if_hdl_mt_application_pdf_xpdf).
|
||||
" ?? let g:utl_cfg_hdl_mt_application_pdf_acrobat_exe_path = "acroread - ?? "
|
||||
"
|
||||
" ]
|
||||
|
||||
|
||||
" id=Utl_if_hdl_mt_application_msword__word_setup------------------------------[
|
||||
"
|
||||
" To make MSWord support fragments you need:
|
||||
"
|
||||
" 1. Create the VBS OLE Automation file by executing this link:
|
||||
" <url:vimscript:call Utl_utilCopyExtract(g:utl__file, g:utl__file_if_hdl_mt_application_msword__word, '=== FILE_WORD_VBS' )>
|
||||
" (This will (re-)create that file by cutting it out from the bottom of this file.)
|
||||
"
|
||||
" 2. Provide the variable g:utl_cfg_hdl_mt_application_msword__word_exe_path.
|
||||
" Modify and uncomment one of the samples below, then do :so %
|
||||
" Windows:
|
||||
" Normally you should get the path by executing in a dos box:
|
||||
" cmd> ftype Word.Document.8
|
||||
" Here are two samples:
|
||||
" let g:utl_cfg_hdl_mt_application_msword__word_exe_path = 'C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE'
|
||||
" let g:utl_cfg_hdl_mt_application_msword__word_exe_path = 'C:\Programme\Microsoft Office\OFFICE11\WINWORD.EXE'
|
||||
|
||||
" ]
|
||||
" ]
|
||||
|
||||
|
||||
" Utl Options id=_utl_options [
|
||||
|
||||
"id=utl_opt_verbose------------------------------------------------------------[
|
||||
" Option utl_opt_verbose switches on tracing. This is useful to figure out
|
||||
" what's going on, to learn about Utl or to see why things don't work as
|
||||
" expected.
|
||||
"
|
||||
"let utl_opt_verbose=0 " Tracing off (default)
|
||||
"let utl_opt_verbose=1 " Tracing on
|
||||
|
||||
" ]
|
||||
|
||||
"id=utl_opt_highlight_urls-----------------------------------------------------[
|
||||
" Option utl_opt_highlight_urls controls if URLs are highlighted or not.
|
||||
" Note that only embedded URLs like <url:http://www.vim.org> are highlighted.
|
||||
"
|
||||
" Note: Change of the value will only take effect a) after you restart your
|
||||
" Vim session or b) by :call Utl_setHighl() and subsequent reedit (:e) of the
|
||||
" current file. Perform the latter by simply executing this URL:
|
||||
" <url:vimscript:call Utl_setHighl()|:e>
|
||||
|
||||
"let utl_opt_highlight_urls='yes' " Highlighting on (default)
|
||||
"let utl_opt_highlight_urls='no' " Highlighting off
|
||||
|
||||
"]
|
||||
"]
|
||||
|
||||
" END OF UTL PLUGIN CONFIGURATION FILE ]
|
||||
|
|
@ -1,716 +0,0 @@
|
|||
" ------------------------------------------------------------------------------
|
||||
" File: plugin/utl_scm.vim -- callbacks implementing the different
|
||||
" schemes
|
||||
" Part of the Utl plugin, see ./utl.vim
|
||||
" Author: Stefan Bittner <stb@bf-consulting.de>
|
||||
" Licence: This program is free software; you can redistribute it and/or
|
||||
" modify it under the terms of the GNU General Public License.
|
||||
" See http://www.gnu.org/copyleft/gpl.txt
|
||||
" Version: utl 3.0a
|
||||
" ------------------------------------------------------------------------------
|
||||
|
||||
|
||||
" In this file some scheme specific retrieval functions are defined.
|
||||
" For each scheme one function named Utl_AddrScheme_xxx() is needed.
|
||||
"
|
||||
" - If a scheme (i.e. functions) is missing, the caller Utl_processUrl()
|
||||
" will notice it and show an appropriate message to the user.
|
||||
"
|
||||
" - You can define your own functions:
|
||||
|
||||
|
||||
" How to write a Utl_AddrScheme_xxx function (id=implscmfunc)
|
||||
" ------------------------------------------
|
||||
" To implement a specific scheme (e.g. `file', `http') you have to write
|
||||
" write a handler function named `Utl_AddrScheme_<scheme>' which obeys the
|
||||
" following rules:
|
||||
"
|
||||
" - It takes three arguments:
|
||||
"
|
||||
" 1. Arg: Absolute URI
|
||||
" (See <URL:vimhelp:utl-uri-relabs> to get an absolute URI explained). The
|
||||
" given `auri' will not have a fragment (without #... at the end).
|
||||
"
|
||||
" 2. Arg: Fragment
|
||||
" Where the value will be '<undef>' if there is no fragment. In most cases a
|
||||
" handler will not actually deal with the fragment but leaves that job for
|
||||
" standard fragment processing in Utl by returning a non empty list (see
|
||||
" next). Examples for fragment processing handlers are
|
||||
" Utl_AddressScheme_http and Utl_AddressScheme_foot.
|
||||
"
|
||||
" 3. Arg: display Mode (dispMode)
|
||||
" Most handlers will ignore this argument. Exception for instance handlers
|
||||
" which actually display the retrieved or determined file like
|
||||
" Utl_AddressScheme_foot. If your function is smart it might, if applicable,
|
||||
" support the special dispMode values copyFileName (see examples in this file).
|
||||
"
|
||||
"
|
||||
" - It then does what ever it wants.
|
||||
" But what it normally wants is: retrieve, load, query, address the resource
|
||||
" identified by `auri'.
|
||||
|
||||
" - It Returns a list with 0 (empty list), 1 or 2 elements. [id=scm_ret_list]
|
||||
" (See vimhelp:List if you don't know what a list is in Vim)
|
||||
"
|
||||
" * Empty list means: no subsequent processing by Utl.vim
|
||||
" Examples where this makes sense:
|
||||
" ° If the retrieve was not successful, or
|
||||
" ° if handler already cared for displaying the file (e.g. URL
|
||||
" delegated to external handler)
|
||||
"
|
||||
" * 1st list element = file name (called localPath) provided means:
|
||||
" a) Utl.vim will delegate localPath to the appropriate file type handler
|
||||
" or display it the file in Vim-Window.
|
||||
" It also possible, that the localPath is already displayed in this case
|
||||
" (Utl.vim will check if the localPath corresponds to a buffer name.)
|
||||
" Note : It is even possible that localPath does not correspond to
|
||||
" an existing file or to a file at all. Executing a http URL with
|
||||
" netrw is an example for this, see: ../plugin/utl_rc.vim#http_netrw.
|
||||
" Netrw uses the URL as buffer name.
|
||||
" c) Fragment will be processed (if any).
|
||||
"
|
||||
" Details :
|
||||
" ° File name should be a pathname to (an existing) local file or directory.
|
||||
" Note : the
|
||||
" ° File name's path separator should be slash (not backslash).
|
||||
" ° It does not hurt if file is already displayed (an example for this is
|
||||
" vimhelp scheme).
|
||||
"
|
||||
" * 2nd list element = fragment Mode (fragMode). Allowed values:
|
||||
" `abs', 'rel'. Defaults to `abs' if no 2nd list element.
|
||||
" `abs': Fragment will be addressed to beginning of file.
|
||||
" `rel': Fragment will be addressed relative to current cursor position
|
||||
" (example: Vimhelp scheme).
|
||||
|
||||
"
|
||||
" Specification of 'scheme handler variable interface' (id=spec_ihsv)
|
||||
" ----------------------------------------------------
|
||||
"
|
||||
" - Variable naming: utl_cfg_hdl_scm_<scheme>
|
||||
"
|
||||
" - Variables executed by :exe (see <vimhelp::exe>).
|
||||
" This implies that the variable has to a valid ex command. (to execute more
|
||||
" than one line of ex commands a function can be called).
|
||||
"
|
||||
" - Should handle the actual link, e.g. download the file.
|
||||
" But it can do whatever it wants :-)
|
||||
"
|
||||
" - Input data: scheme specific conversion specifiers should appear in the
|
||||
" variable. They will be replaced by Utl.vim when executing an URL, e.g %u
|
||||
" will be replaced by the actual URL. The available conversion specifiers are
|
||||
" defined at <url:../plugin/utl_rc.vim#r=utl_cfg_hdl_scm_http> for http etc.
|
||||
"
|
||||
" - Output data: an optional global list, which is the same as that of the
|
||||
" handler itself, see <url:../plugin/utl_scm.vim#r=scm_ret_list>. Since the
|
||||
" variable's value can be any ex command (and, for instance, not always a
|
||||
" function) a global variable is used:
|
||||
" g:utl_hdl_scm_ret_list
|
||||
" This variable will be initialized to an empty list [] by Utl.vim before
|
||||
" executing the contents of the variable.
|
||||
"
|
||||
" - Exception handling: Normally nothing needs to be done in the variable code.
|
||||
" Utl.vim checks for v:shell_error and v:errmsg after execution. There are
|
||||
" situation where setting v:errmsg makes sense. The variable might want to
|
||||
" issue the error message (Utl.vim does not).
|
||||
"
|
||||
|
||||
|
||||
if exists("loaded_utl_scm") || &cp || v:version < 700
|
||||
finish
|
||||
endif
|
||||
let loaded_utl_scm = 1
|
||||
let s:save_cpo = &cpo
|
||||
set cpo&vim
|
||||
let g:utl__file_scm = expand("<sfile>")
|
||||
|
||||
let s:utl_esccmdspecial = '%#' " keep equal to utl.vim#__esc
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
" Addresses/retrieves a local file.
|
||||
"
|
||||
" - If `auri' gives a query, then the file is executed (it should be an
|
||||
" executable program) with the query expression passed as arguments
|
||||
" arguments. The program's output is written to a (tempname constructed)
|
||||
" result file.
|
||||
"
|
||||
" - else, the local file itself is the result file and is returned.
|
||||
"
|
||||
fu! Utl_AddressScheme_file(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_file",1,1)
|
||||
|
||||
" authority: can be a
|
||||
" - windows drive, e.g. `c:'
|
||||
" - server name - interpret URL as a network share
|
||||
let authority = UtlUri_authority(a:auri)
|
||||
let path = ''
|
||||
if authority =~? '^[a-z]:$'
|
||||
if has("win32") || has("win16") || has("win64") || has("dos32") || has("dos16")
|
||||
call Utl_trace("- Am under Windows. Server part denotes a Windows drive: `".authority."'")
|
||||
let path = authority
|
||||
endif
|
||||
elseif authority != '<undef>' && authority != ''
|
||||
if has("win32") || has("win16") || has("win64") || has("dos32") || has("dos16")
|
||||
call Utl_trace("- Am under Windows. Server part specified: `".authority."',")
|
||||
call Utl_trace(" will convert to UNC path //server/sharefolder/path.")
|
||||
let path = '//' . authority
|
||||
elseif has("unix")
|
||||
call Utl_trace("- Am under Unix. Server part specified: `".authority."',")
|
||||
call Utl_trace(" will convert to server:/path")
|
||||
" don't know if this really makes sense. See <http://en.wikipedia.org/wiki/Path_%28computing%29>
|
||||
let path = authority . ':'
|
||||
endif
|
||||
endif
|
||||
|
||||
let path = path . UtlUri_unescape(UtlUri_path(a:auri))
|
||||
call Utl_trace("- local path constructed from URL: `".path."'")
|
||||
|
||||
" Support of tilde ~ notation.
|
||||
if stridx(path, "~") != -1
|
||||
let tildeuser = expand( substitute(path, '\(.*\)\(\~[^/]*\)\(.*\)', '\2', "") )
|
||||
let path = tildeuser . substitute(path, '\(.*\)\(\~[^/]*\)\(.*\)', '\3', "")
|
||||
call Utl_trace("- found a ~ (tilde) character in path, expand to $HOME in local path:")
|
||||
let path = Utl_utilBack2FwdSlashes( path )
|
||||
call Utl_trace(" ".path."'")
|
||||
endif
|
||||
|
||||
if a:dispMode =~ '^copyFileName'
|
||||
call Utl_trace("- mode is `copyFileName to clipboard': so quit after filename is known now")
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_file",1,-1)
|
||||
return [path]
|
||||
endif
|
||||
|
||||
" If Query defined, then execute the Path (id=filequery)
|
||||
let query = UtlUri_query(a:auri)
|
||||
if query != '<undef>' " (N.B. empty query is not undef)
|
||||
call Utl_trace("- URL contains query expression (".query.") - so try to execute path")
|
||||
|
||||
" (Should make functions Query_form(), Query_keywords())
|
||||
if match(query, '&') != -1 " id=query_form
|
||||
" (application/x-www-form-urlencoded query to be implemented
|
||||
" e.g. `?foo=bar&otto=karl')
|
||||
let v:errmsg = 'form encoded query to be implemented'
|
||||
echohl ErrorMsg | echo v:errmsg | echohl None
|
||||
elseif match(query, '+') != -1 " id=query_keywords
|
||||
let query = substitute(query, '+', ' ', 'g')
|
||||
endif
|
||||
let query = UtlUri_unescape(query)
|
||||
" (Whitespace in keywords should now be escaped before handing off to shell)
|
||||
let cacheFile = ''
|
||||
" If redirection char '>' at the end:
|
||||
" Supply a temp file for redirection and execute the program
|
||||
" synchronously to wait for its output
|
||||
if strlen(query)!=0 && stridx(query, '>') == strlen(query)-1
|
||||
call Utl_trace("- query with > character at end: assume output to a temp file and use it as local path")
|
||||
let cacheFile = Utl_utilBack2FwdSlashes( tempname() )
|
||||
let cmd = "!".path." ".query." ".cacheFile
|
||||
call Utl_trace("- trying to execute command `".cmd."'")
|
||||
exe cmd
|
||||
" else start it detached
|
||||
else
|
||||
if has("win32") || has("win16") || has("win64") || has("dos32") || has("dos16")
|
||||
let cmd = "!start ".path." ".query
|
||||
else
|
||||
let cmd = "!".path." ".query.'&'
|
||||
endif
|
||||
call Utl_trace("- trying to execute command `".cmd."'")
|
||||
exe cmd
|
||||
endif
|
||||
|
||||
if v:shell_error
|
||||
let v:errmsg = 'Shell Error from execute searchable Resource'
|
||||
echohl ErrorMsg | echo v:errmsg | echohl None
|
||||
if cacheFile != ''
|
||||
call delete(cacheFile)
|
||||
endif
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_file",1,-1)
|
||||
return []
|
||||
endif
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_file",1,-1)
|
||||
if cacheFile == ''
|
||||
return []
|
||||
else
|
||||
return [cacheFile]
|
||||
endif
|
||||
|
||||
endif
|
||||
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_file",1,-1)
|
||||
return [path]
|
||||
endfu
|
||||
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
"
|
||||
fu! Utl_AddressScheme_ftp(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_ftp",1,1)
|
||||
call Utl_trace("- delegating to http scheme handler")
|
||||
let ret = Utl_AddressScheme_http(a:auri, a:fragment, a:dispMode)
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_ftp",1,-1)
|
||||
return ret
|
||||
endfu
|
||||
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
"
|
||||
fu! Utl_AddressScheme_https(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_https",1,1)
|
||||
call Utl_trace("- delegating to http scheme handler")
|
||||
let ret = Utl_AddressScheme_http(a:auri, a:fragment, a:dispMode)
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_https",1,-1)
|
||||
return ret
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
"
|
||||
fu! Utl_AddressScheme_http(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_http",1,1)
|
||||
|
||||
if a:dispMode =~ '^copyFileName'
|
||||
echohl ErrorMsg | echo "function `copyFileName to clipboard' not possible for scheme `http:'" | echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_http",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
if ! exists('g:utl_cfg_hdl_scm_http') " Entering setup
|
||||
call Utl_trace("- Vim variable g:utl_cfg_hdl_scm_http does not exist")
|
||||
echohl WarningMsg
|
||||
call input("No scheme handler variable g:utl_cfg_hdl_scm_http defined yet. Entering Setup now. <RETURN>")
|
||||
echohl None
|
||||
Utl openLink config:#r=utl_cfg_hdl_scm_http split " (recursion, setup)
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_http",1,-1)
|
||||
return []
|
||||
endif
|
||||
call Utl_trace("- Vim variable g:utl_cfg_hdl_scm_http exists, value=`".g:utl_cfg_hdl_scm_http."'")
|
||||
|
||||
let convSpecDict= { 'u': a:auri, 'f': a:fragment, 'd': a:dispMode }
|
||||
let [errmsg,cmd] = Utl_utilExpandConvSpec(g:utl_cfg_hdl_scm_http, convSpecDict)
|
||||
if errmsg != ""
|
||||
echohl ErrorMsg
|
||||
echo "The content of your Vim variable `".g:utl_cfg_hdl_scm_http."' is invalid and has to be fixed!"
|
||||
echo "Reason: `".errmsg."'"
|
||||
echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_http",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
call Utl_trace("- Escape cmdline-special characters (".s:utl_esccmdspecial.") before execution")
|
||||
" see <URL:vimhelp:cmdline-special>).
|
||||
let cmd = escape( cmd, s:utl_esccmdspecial)
|
||||
|
||||
let g:utl__hdl_scm_ret_list=[]
|
||||
let v:errmsg = ""
|
||||
call Utl_trace("- trying to execute command: `".cmd."'")
|
||||
exe cmd
|
||||
|
||||
if v:shell_error || v:errmsg!=""
|
||||
call Utl_trace("- execution of scm handler returned with v:shell_error or v:errmsg set")
|
||||
call Utl_trace(" v:shell_error=`".v:shell_error."'")
|
||||
call Utl_trace(" v:errmsg=`".v:errmsg."'")
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_http (not successful)",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_http (successful)",1,-1)
|
||||
return g:utl__hdl_scm_ret_list
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
" Retrieve file via scp.
|
||||
"
|
||||
fu! Utl_AddressScheme_scp(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_scp",1,1)
|
||||
|
||||
if a:dispMode =~ '^copyFileName'
|
||||
echohl ErrorMsg | echo "function `copyFileName name to clipboard' not possible for scheme `scp:'" | echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_scp",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
if ! exists('g:utl_cfg_hdl_scm_scp') " Entering setup
|
||||
call Utl_trace("- Vim variable g:utl_cfg_hdl_scm_scp does not exist")
|
||||
echohl WarningMsg
|
||||
call input("No scheme handler variable g:utl_cfg_hdl_scm_scp defined yet. Entering Setup now. <RETURN>")
|
||||
echohl None
|
||||
Utl openLink config:#r=utl_cfg_hdl_scm_scp split " (recursion, setup)
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_scp",1,-1)
|
||||
return []
|
||||
endif
|
||||
call Utl_trace("- Vim variable g:utl_cfg_hdl_scm_scp exists, value=`".g:utl_cfg_hdl_scm_scp."'")
|
||||
|
||||
let convSpecDict= { 'u': a:auri, 'f': a:fragment, 'd': a:dispMode }
|
||||
let [errmsg,cmd] = Utl_utilExpandConvSpec(g:utl_cfg_hdl_scm_scp, convSpecDict)
|
||||
if errmsg != ""
|
||||
echohl ErrorMsg
|
||||
echo "The content of your Vim variable `".g:utl_cfg_hdl_scm_scp."' is invalid and has to be fixed!"
|
||||
echo "Reason: `".errmsg."'"
|
||||
echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_scp",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
call Utl_trace("- Escape cmdline-special characters (".s:utl_esccmdspecial.") before execution")
|
||||
" see <URL:vimhelp:cmdline-special>).
|
||||
let cmd = escape( cmd, s:utl_esccmdspecial)
|
||||
|
||||
let g:utl__hdl_scm_ret_list=[]
|
||||
let v:errmsg = ""
|
||||
call Utl_trace("- trying to execute command: `".cmd."'")
|
||||
exe cmd
|
||||
|
||||
if v:shell_error || v:errmsg!=""
|
||||
call Utl_trace("- execution of scm handler returned with v:shell_error or v:errmsg set")
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_scp (not successful)",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_scp",1,-1)
|
||||
return g:utl__hdl_scm_ret_list
|
||||
|
||||
endfu
|
||||
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
" The mailto scheme.
|
||||
" It was mainly implemented to serve as a demo. To show that a resource
|
||||
" needs not to be a file or document.
|
||||
"
|
||||
" Returns empty list. But you could create one perhaps containing
|
||||
" the return receipt, e.g. 'mail sent succesfully'.
|
||||
"
|
||||
fu! Utl_AddressScheme_mailto(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_mailto",1,1)
|
||||
|
||||
if a:dispMode =~ '^copyFileName'
|
||||
echohl ErrorMsg | echo "function `copyFileName name to clipboard' not possible for scheme `http:'" | echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_http",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
if ! exists('g:utl_cfg_hdl_scm_mailto') " Entering setup
|
||||
call Utl_trace("- Vim variable g:utl_cfg_hdl_scm_mailto does not exist")
|
||||
echohl WarningMsg
|
||||
call input("No scheme handler variable g:utl_cfg_hdl_scm_mailto defined yet. Entering Setup now. <RETURN>")
|
||||
echohl None
|
||||
Utl openLink config:#r=utl_cfg_hdl_scm_mailto split " (recursion, setup)
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_mailto",1,-1)
|
||||
return []
|
||||
endif
|
||||
call Utl_trace("- Vim variable g:utl_cfg_hdl_scm_mailto exists, value=`".g:utl_cfg_hdl_scm_mailto."'")
|
||||
|
||||
let convSpecDict= { 'u': UtlUri_build_2(a:auri,a:fragment) }
|
||||
let [errmsg,cmd] = Utl_utilExpandConvSpec(g:utl_cfg_hdl_scm_mailto, convSpecDict)
|
||||
if errmsg != ""
|
||||
echohl ErrorMsg
|
||||
echo "The content of your Vim variable `".g:utl_cfg_hdl_scm_mailto."' is invalid and has to be fixed!"
|
||||
echo "Reason: `".errmsg."'"
|
||||
echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_mailto",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
|
||||
call Utl_trace("- Escape cmdline-special characters (".s:utl_esccmdspecial.") before execution")
|
||||
let cmd = escape( cmd, s:utl_esccmdspecial)
|
||||
|
||||
let g:utl__hdl_scm_ret_list=[]
|
||||
let v:errmsg = ""
|
||||
call Utl_trace("- trying to execute command: `".cmd."'")
|
||||
exe cmd
|
||||
|
||||
if v:shell_error || v:errmsg!=""
|
||||
call Utl_trace("- execution of scm handler returned with v:shell_error or v:errmsg set")
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_mailto (not successful)",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_mailto",1,-1)
|
||||
return g:utl__hdl_scm_ret_list
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
" Scheme for accessing Unix Man Pages.
|
||||
" Useful for commenting program sources.
|
||||
"
|
||||
" Example: /* "See <URL:man:fopen#r+> for the r+ argument" */
|
||||
"
|
||||
" Possible enhancement: Support sections, i.e. <URL:man:fopen(3)#r+>
|
||||
"
|
||||
fu! Utl_AddressScheme_man(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_man",1,1)
|
||||
|
||||
if a:dispMode =~ '^copyFileName'
|
||||
echohl ErrorMsg | echo "function `copyFileName name to clipboard' not possible for scheme `man:'" | echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_man",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
exe "Man " . UtlUri_unescape( UtlUri_opaque(a:auri) )
|
||||
if v:errmsg =~ '^Sorry, no man entry for'
|
||||
return []
|
||||
endif
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_man",1,-1)
|
||||
return [Utl_utilBack2FwdSlashes( expand("%:p") ), 'rel']
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
" Scheme for footnotes. Normally by heuristic URL like [1], which is
|
||||
" transformed into foot:1 before calling this handler. Given
|
||||
" foot:1 as reference, a referent is searched beginning from
|
||||
" the end of the current file. The referent can look like:
|
||||
" [1] or
|
||||
" [1]:
|
||||
" where only whitespace can appear in front in the same line. If the reference
|
||||
" has a fragment, e.g. [1]#string or even an empty fragment, e.g. [1]#
|
||||
" the value of the footnote is tried to derefence, i.e. automatic forwarding.
|
||||
"
|
||||
fu! Utl_AddressScheme_foot(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_foot",1,1)
|
||||
|
||||
if a:dispMode =~ '^copyFileName'
|
||||
echohl ErrorMsg | echo "function `copyFileName name to clipboard' not possible for scheme `foot:'" | echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_foot",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
let opaque = UtlUri_unescape( UtlUri_opaque(a:auri) )
|
||||
|
||||
let reftPat = '\c\m^\s*\(\['.opaque.'\]:\?\)'
|
||||
call Utl_trace("- searching for referent pattern `".reftPat."' bottom up until current line...",0)
|
||||
|
||||
let refcLine = line('.') | let refcCol = col('.')
|
||||
call cursor( line('$'), col('$') )
|
||||
|
||||
let reftLine = search(reftPat, 'Wb', refcLine+1)
|
||||
if reftLine==0
|
||||
call Utl_trace("not found")
|
||||
endif
|
||||
|
||||
if reftLine==0
|
||||
call Utl_trace("- now searching for referent pattern `".reftPat."' top down until current line...",0)
|
||||
call cursor(1, 1)
|
||||
" (avoid stopline==0, this is special somehow. With -1 instead,
|
||||
" stopping works in the case of reference in line 1)
|
||||
let reftLine = search(reftPat, 'Wc', refcLine==1 ? -1 : refcLine-1 )
|
||||
if reftLine==0
|
||||
call Utl_trace("not found. Giving up")
|
||||
call cursor(refcLine, refcCol)
|
||||
endif
|
||||
endif
|
||||
|
||||
if reftLine==0
|
||||
let v:errmsg = "Reference has not target in current buffer. Provide another line starting with `[".opaque."]' or `".opaque.".' !"
|
||||
echohl ErrorMsg | echo v:errmsg | echohl None
|
||||
return []
|
||||
endif
|
||||
call Utl_trace("found, in line `".reftLine."'")
|
||||
|
||||
" Feature automatic forwarding
|
||||
if a:fragment != '<undef>'
|
||||
call Utl_trace("- fragment is defined, so try dereferencing foonote's content")
|
||||
call Utl_trace(" by trying to position one character past referent")
|
||||
" This should exactly fail in case there is no one additional non white character
|
||||
let l=search(reftPat.'.', 'ce', reftLine)
|
||||
if l == 0
|
||||
let v:errmsg = "Cannot dereference footnote: Empty footnote"
|
||||
echohl ErrorMsg | echo v:errmsg | echohl None
|
||||
return []
|
||||
elseif l != reftLine
|
||||
let v:errmsg = "Cannot dereference footnote: Internal Error: line number mismatch"
|
||||
echohl ErrorMsg | echo v:errmsg | echohl None
|
||||
return []
|
||||
endif
|
||||
call Utl_trace("- fine, footnote not empty and cursor positioned to start of its")
|
||||
call Utl_trace(" content (column ".col('.').") and try to get URL from under the cursor")
|
||||
|
||||
let uriRef = Utl_getUrlUnderCursor()
|
||||
if uriRef == ''
|
||||
let v:errmsg = "Cannot not dereference footnote: No URL under cursor"
|
||||
echohl ErrorMsg | echo v:errmsg | echohl None
|
||||
return []
|
||||
endif
|
||||
call Utl_trace("- combine URL / URL-reference under cursor with fragment of [] reference")
|
||||
let uri = UriRef_getUri(uriRef)
|
||||
let fragmentOfReferent = UriRef_getFragment(uriRef)
|
||||
if fragmentOfReferent != '<undef>'
|
||||
call Utl_trace("- discard non empty fragment `".fragmentOfReferent."' of referent")
|
||||
endif
|
||||
call Utl('openLink', UtlUri_build_2(uri, a:fragment), a:dispMode)
|
||||
endif
|
||||
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_foot",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_foot",1,-1)
|
||||
return [Utl_utilBack2FwdSlashes( expand("%:p") )]
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
" A scheme for quickly going to the setup file utl_rc.vim, e.g.
|
||||
" :Gu config:
|
||||
"
|
||||
fu! Utl_AddressScheme_config(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_config",1,1)
|
||||
let path = g:utl__file_rc
|
||||
call Utl_trace("- set local path to equal utl variable g:utl__file_scm: `".path."'")
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_config",1,-1)
|
||||
return [ Utl_utilBack2FwdSlashes(path) ]
|
||||
endfu
|
||||
|
||||
"id=vimscript-------------------------------------------------------------------
|
||||
" A non standard scheme for executing vim commands
|
||||
" <URL:vimscript:set ts=4>
|
||||
"
|
||||
fu! Utl_AddressScheme_vimscript(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_vimscript",1,1)
|
||||
|
||||
if a:dispMode =~ '^copyFileName'
|
||||
echohl ErrorMsg | echo "function `copyFileName name to clipboard' not possible for scheme `vimscript:'" | echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_vimscript",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
let exCmd = UtlUri_unescape( UtlUri_opaque(a:auri) )
|
||||
call Utl_trace("- executing Vim Ex-command: `:".exCmd."'\n") " CR054_extra_nl
|
||||
"echo " DBG utl_opt_verbose=`".g:utl_opt_verbose."'"
|
||||
exe exCmd
|
||||
"echo " DBG (after) utl_opt_verbose=`".g:utl_opt_verbose."'"
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_vimscript (successful)",1,-1)
|
||||
return []
|
||||
endfu
|
||||
|
||||
fu! Utl_AddressScheme_vimtip(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_vimtip",1,1)
|
||||
let url = "http://vim.sf.net/tips/tip.php?tip_id=". UtlUri_unescape( UtlUri_opaque(a:auri) )
|
||||
call Utl_trace("- delegating to http scheme handler with URL `".url."'")
|
||||
let ret = Utl_AddressScheme_http(url, a:fragment, a:dispMode)
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_vimtip",1,-1)
|
||||
return ret
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
" A non standard scheme for getting Vim help
|
||||
"
|
||||
fu! Utl_AddressScheme_vimhelp(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_vimhelp",1,1)
|
||||
|
||||
if a:dispMode =~ '^copyFileName'
|
||||
echohl ErrorMsg | echo "function `copyFileName name to clipboard' not possible for scheme `vimhelp:'" | echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_vimhelp",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
let exCmd = "help ".UtlUri_unescape( UtlUri_opaque(a:auri) )
|
||||
call Utl_trace("- executing Vim Ex-command: `:".exCmd."'\n") " CR054_extra_nl
|
||||
exe exCmd
|
||||
if v:errmsg =~ '^Sorry, no help for'
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_vimhelp",1,-1)
|
||||
return []
|
||||
endif
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_vimhelp (successful)",1,-1)
|
||||
return [ Utl_utilBack2FwdSlashes( expand("%:p") ), 'rel' ]
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
" The mail-scheme.
|
||||
" This is not an official scheme in the internet. I invented it to directly
|
||||
" access individual Mails from a mail client.
|
||||
"
|
||||
" Synopsis :
|
||||
" mail://<box-path>?query
|
||||
"
|
||||
" where query = [date=]<date>[&from=<from>][&subject=<subject>]
|
||||
"
|
||||
" Examples :
|
||||
" <url:mail:///Inbox?24.07.2007 13:23>
|
||||
" <url:mail://archive/Inbox?24.07.2007 13:23>
|
||||
"
|
||||
fu! Utl_AddressScheme_mail(auri, fragment, dispMode)
|
||||
call Utl_trace("- start execution of Utl_AddressScheme_mail",1,1)
|
||||
|
||||
if a:dispMode =~ '^copyFileName'
|
||||
echohl ErrorMsg | echo "function `copyFileName name to clipboard' not possible for scheme `mail:'" | echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_mail",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
if ! exists('g:utl_cfg_hdl_scm_mail') " Entering setup
|
||||
call Utl_trace("- Vim variable g:utl_cfg_hdl_scm_mail does not exist")
|
||||
echohl WarningMsg
|
||||
call input("No scheme handler variable g:utl_cfg_hdl_scm_mail defined yet. Entering Setup now. <RETURN>")
|
||||
echohl None
|
||||
Utl openLink config:#r=utl_cfg_hdl_scm_mail split
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_mail",1,-1)
|
||||
return []
|
||||
endif
|
||||
call Utl_trace("- Vim variable g:utl_cfg_hdl_scm_mail exists, value=`".g:utl_cfg_hdl_scm_mail."'")
|
||||
|
||||
let authority = UtlUri_unescape( UtlUri_authority(a:auri) )
|
||||
let path = UtlUri_unescape( UtlUri_path(a:auri) )
|
||||
let query = UtlUri_unescape( UtlUri_query(a:auri) )
|
||||
call Utl_trace("- URL path components: authority=`".authority."', path=`".path."'" )
|
||||
|
||||
" Parse query expression
|
||||
if query == '<undef>' || query == ""
|
||||
let v:errmsg = 'Query expression missing'
|
||||
echohl ErrorMsg | echo v:errmsg | echohl None
|
||||
return []
|
||||
endif
|
||||
let q_from = ''
|
||||
let q_subject = ''
|
||||
let q_date = ''
|
||||
while 1
|
||||
let pos = stridx(query, '&')
|
||||
if pos == -1
|
||||
let entry = query
|
||||
else
|
||||
let entry = strpart(query, 0, pos)
|
||||
let query = strpart(query, pos+1)
|
||||
endif
|
||||
|
||||
if entry =~ '^from='
|
||||
let q_from = substitute(entry, '.*=', '', '')
|
||||
elseif entry =~ '^subject='
|
||||
let q_subject = substitute(entry, '.*=', '', '')
|
||||
elseif entry =~ '^date='
|
||||
let q_date = substitute(entry, '.*=', '', '')
|
||||
else
|
||||
let q_date = entry
|
||||
endif
|
||||
if pos == -1
|
||||
break
|
||||
endif
|
||||
endwhile
|
||||
call Utl_trace("- URL query attributes: date=`".q_date."', subject=`".q_subject."', from=`".q_from."'" )
|
||||
|
||||
let convSpecDict= { 'a': authority, 'p': path, 'd': q_date, 'f': q_from, 's': q_subject }
|
||||
let [errmsg,cmd] = Utl_utilExpandConvSpec(g:utl_cfg_hdl_scm_mail, convSpecDict)
|
||||
if errmsg != ""
|
||||
echohl ErrorMsg
|
||||
echo "The content of your Vim variable g:utl_cfg_hdl_scm_mail=".g:utl_cfg_hdl_scm_mail."' is invalid and has to be fixed!"
|
||||
echo "Reason: `".errmsg."'"
|
||||
echohl None
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_mail (not successful)",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
call Utl_trace("- Escape cmdline-special characters (".s:utl_esccmdspecial.") before execution")
|
||||
let cmd = escape( cmd, s:utl_esccmdspecial)
|
||||
|
||||
let g:utl__hdl_scm_ret_list=[]
|
||||
let v:errmsg = ""
|
||||
call Utl_trace("- trying to execute command `".cmd."'")
|
||||
exe cmd
|
||||
|
||||
if v:shell_error || v:errmsg!=""
|
||||
call Utl_trace("- execution of scm handler returned with v:shell_error or v:errmsg set")
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_mail (not successful)",1,-1)
|
||||
return []
|
||||
endif
|
||||
|
||||
call Utl_trace("- end execution of Utl_AddressScheme_mail (successful)",1,-1)
|
||||
return g:utl__hdl_scm_ret_list
|
||||
endfu
|
||||
|
||||
let &cpo = s:save_cpo
|
||||
|
|
@ -1,292 +0,0 @@
|
|||
" ------------------------------------------------------------------------------
|
||||
" File: plugin/utl_uri.vim -- module for parsing URIs
|
||||
" Part of the Utl plugin, see ./utl.vim
|
||||
" Author: Stefan Bittner <stb@bf-consulting.de>
|
||||
" Licence: This program is free software; you can redistribute it and/or
|
||||
" modify it under the terms of the GNU General Public License.
|
||||
" See http://www.gnu.org/copyleft/gpl.txt
|
||||
" Version: utl 3.0a
|
||||
" ------------------------------------------------------------------------------
|
||||
|
||||
" Parses URI-References.
|
||||
" (Can be used independantly from Utl.)
|
||||
" (An URI-Reference is an URI + fragment: myUri#myFragment.
|
||||
" See also <URL:vimhelp:utl-uri-refs>.
|
||||
" Aims to be compliant with <URL:http://www.ietf.org/rfc/rfc2396.txt>
|
||||
"
|
||||
" NOTE: The distinction between URI and URI-Reference won't be hold out
|
||||
" (is that correct english? %-\ ). It should be clear from the context.
|
||||
" The fragment goes sometimes with the URI, sometimes not.
|
||||
"
|
||||
" Usage:
|
||||
"
|
||||
" " Parse an URI
|
||||
" let uri = 'http://www.google.com/search?q=vim#tn=ubiquitous'
|
||||
"
|
||||
" let scheme = UtlUri_scheme(uri)
|
||||
" let authority = UtlUri_authority(uri)
|
||||
" let path = UtlUri_path(uri)
|
||||
" let query = UtlUri_query(uri)
|
||||
" let fragment = UtlUri_fragment(uri)
|
||||
"
|
||||
" " Rebuild the URI
|
||||
" let uriRebuilt = UtlUri_build(scheme, authority, path, query, fragment)
|
||||
"
|
||||
" " UtlUri_build a new URI
|
||||
" let uriNew = UtlUri_build('file', 'localhost', 'path/to/file', '<undef>', 'myFrag')
|
||||
"
|
||||
" " Recombine an uri-without-fragment with fragment to an uri
|
||||
" let uriRebuilt = UtlUri_build_2(absUriRef, fragment)
|
||||
"
|
||||
" let unesc = UtlUri_unescape('a%20b%3f') " -> unesc==`a b?'
|
||||
"
|
||||
" Details:
|
||||
" Authority, query and fragment can have the <undef> value (literally!)
|
||||
" (similar to undef-value in Perl). That's distinguished from
|
||||
" _empty_ values! Example: http:/// yields UtlUri_authority=='' where as
|
||||
" http:/path/to/file yields UtlUri_authority=='<undef>'.
|
||||
" See also
|
||||
" <URL:http://www.ietf.org/rfc/rfc2396.txt#Note that we must be careful>
|
||||
"
|
||||
" Internal Note:
|
||||
" Ist not very performant in typical usage (but clear).
|
||||
" s:UtlUri_parse executed n times for getting n components of same uri
|
||||
|
||||
if exists("loaded_utl_uri") || &cp || v:version < 700
|
||||
finish
|
||||
endif
|
||||
let loaded_utl_uri = 1
|
||||
let s:save_cpo = &cpo
|
||||
set cpo&vim
|
||||
let g:utl__file_uri = expand("<sfile>")
|
||||
|
||||
|
||||
"------------------------------------------------------------------------------
|
||||
" Parses `uri'. Used by ``public'' functions like UtlUri_path().
|
||||
" - idx selects the component (see below)
|
||||
fu! s:UtlUri_parse(uri, idx)
|
||||
|
||||
" See <URL:http://www.ietf.org/rfc/rfc2396.txt#^B. Parsing a URI Reference>
|
||||
"
|
||||
" ^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?
|
||||
" 12 3 4 5 6 7 8 9
|
||||
"
|
||||
" scheme = \2
|
||||
" authority = \4
|
||||
" path = \5
|
||||
" query = \7
|
||||
" fragment = \9
|
||||
|
||||
" (don't touch! ;-) id=_regexparse
|
||||
return substitute(a:uri, '^\(\([^:/?#]\+\):\)\=\(//\([^/?#]*\)\)\=\([^?#]*\)\(?\([^#]*\)\)\=\(#\(.*\)\)\=', '\'.a:idx, '')
|
||||
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
fu! UtlUri_scheme(uri)
|
||||
let scheme = s:UtlUri_parse(a:uri, 2)
|
||||
" empty scheme impossible (an uri like `://a/b' is interpreted as path = `://a/b').
|
||||
if( scheme == '' )
|
||||
return '<undef>'
|
||||
endif
|
||||
" make lowercase, see
|
||||
" <URL:http://www.ietf.org/rfc/rfc2396.txt#resiliency>
|
||||
return tolower( scheme )
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
fu! UtlUri_opaque(uri)
|
||||
return s:UtlUri_parse(a:uri, 3) . s:UtlUri_parse(a:uri, 5) . s:UtlUri_parse(a:uri, 6)
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
fu! UtlUri_authority(uri)
|
||||
if s:UtlUri_parse(a:uri, 3) == s:UtlUri_parse(a:uri, 4)
|
||||
return '<undef>'
|
||||
else
|
||||
return s:UtlUri_parse(a:uri, 4)
|
||||
endif
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
fu! UtlUri_path(uri)
|
||||
return s:UtlUri_parse(a:uri, 5)
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
fu! UtlUri_query(uri)
|
||||
if s:UtlUri_parse(a:uri, 6) == s:UtlUri_parse(a:uri, 7)
|
||||
return '<undef>'
|
||||
else
|
||||
return s:UtlUri_parse(a:uri, 7)
|
||||
endif
|
||||
endfu
|
||||
|
||||
"-------------------------------------------------------------------------------
|
||||
fu! UtlUri_fragment(uri)
|
||||
if s:UtlUri_parse(a:uri, 8) == s:UtlUri_parse(a:uri, 9)
|
||||
return '<undef>'
|
||||
else
|
||||
return s:UtlUri_parse(a:uri, 9)
|
||||
endif
|
||||
endfu
|
||||
|
||||
|
||||
"------------------------------------------------------------------------------
|
||||
" Concatenate uri components into an uri -- opposite of s:UtlUri_parse
|
||||
" see <URL:http://www.ietf.org/rfc/rfc2396.txt#are recombined>
|
||||
"
|
||||
" - it should hold: s:UtlUri_parse + UtlUri_build = exactly the original Uri
|
||||
"
|
||||
fu! UtlUri_build(scheme, authority, path, query, fragment)
|
||||
|
||||
|
||||
let result = ""
|
||||
if a:scheme != '<undef>'
|
||||
let result = result . a:scheme . ':'
|
||||
endif
|
||||
|
||||
if a:authority != '<undef>'
|
||||
let result = result . '//' . a:authority
|
||||
endif
|
||||
|
||||
let result = result . a:path
|
||||
|
||||
if a:query != '<undef>'
|
||||
let result = result . '?' . a:query
|
||||
endif
|
||||
|
||||
if a:fragment != '<undef>'
|
||||
let result = result . '#' . a:fragment
|
||||
endif
|
||||
|
||||
return result
|
||||
endfu
|
||||
|
||||
"------------------------------------------------------------------------------
|
||||
" Build uri from uri without fragment and fragment
|
||||
"
|
||||
fu! UtlUri_build_2(absUriRef, fragment)
|
||||
|
||||
let result = ""
|
||||
if a:absUriRef != '<undef>'
|
||||
let result = result . a:absUriRef
|
||||
endif
|
||||
if a:fragment != '<undef>'
|
||||
let result = result . '#' . a:fragment
|
||||
endif
|
||||
return result
|
||||
endfu
|
||||
|
||||
|
||||
"------------------------------------------------------------------------------
|
||||
" Constructs an absolute URI from a relative URI `uri' by the help of given
|
||||
" `base' uri and returns it.
|
||||
"
|
||||
" See
|
||||
" <URL:http://www.ietf.org/rfc/rfc2396.txt#^5.2. Resolving Relative References>
|
||||
" - `uri' may already be absolute (i.e. has scheme), is then returned
|
||||
" unchanged
|
||||
" - `base' should really be absolute! Otherwise the returned Uri will not be
|
||||
" absolute (scheme <undef>). Furthermore `base' should be reasonable (e.g.
|
||||
" have an absolute Path in the case of hierarchical Uri)
|
||||
"
|
||||
fu! UtlUri_abs(uri, base)
|
||||
|
||||
" see <URL:http://www.ietf.org/rfc/rfc2396.txt#If the scheme component>
|
||||
if UtlUri_scheme(a:uri) != '<undef>'
|
||||
return a:uri
|
||||
endif
|
||||
|
||||
let scheme = UtlUri_scheme(a:base)
|
||||
|
||||
" query, fragment never inherited from base, wether defined or not,
|
||||
" see <URL:http://www.ietf.org/rfc/rfc2396.txt#not inherited from the base URI>
|
||||
let query = UtlUri_query(a:uri)
|
||||
let fragment = UtlUri_fragment(a:uri)
|
||||
|
||||
" see <URL:http://www.ietf.org/rfc/rfc2396.txt#If the authority component is defined>
|
||||
let authority = UtlUri_authority(a:uri)
|
||||
if authority != '<undef>'
|
||||
return UtlUri_build(scheme, authority, UtlUri_path(a:uri), query, fragment)
|
||||
endif
|
||||
|
||||
let authority = UtlUri_authority(a:base)
|
||||
|
||||
" see <URL:http://www.ietf.org/rfc/rfc2396.txt#If the path component begins>
|
||||
let path = UtlUri_path(a:uri)
|
||||
if path[0] == '/'
|
||||
return UtlUri_build(scheme, authority, path, query, fragment)
|
||||
endif
|
||||
|
||||
" see <URL:http://www.ietf.org/rfc/rfc2396.txt#needs to be merged>
|
||||
|
||||
" step a)
|
||||
let new_path = substitute( UtlUri_path(a:base), '[^/]*$', '', '')
|
||||
" step b)
|
||||
let new_path = new_path . path
|
||||
|
||||
" TODO: implement the missing steps (purge a/b/../c/ into a/c/ etc),
|
||||
" CR048#r=_diffbuffs: Implement one special case though: Remove ./ segments
|
||||
" since these can trigger a Vim-Bug where two path which specify the same
|
||||
" file lead to different buffers, which in turn is a problem for Utl.
|
||||
" Have to substitute twice since adjacent ./ segments, e.g. a/././b
|
||||
" not substituted else (despite 'g' flag). Another Vim-Bug?
|
||||
let new_path = substitute( new_path, '/\./', '/', 'g')
|
||||
let new_path = substitute( new_path, '/\./', '/', 'g')
|
||||
|
||||
return UtlUri_build(scheme, authority, new_path, query, fragment)
|
||||
|
||||
|
||||
endfu
|
||||
|
||||
"------------------------------------------------------------------------------
|
||||
" strip eventual #myfrag.
|
||||
" return uri. can be empty
|
||||
"
|
||||
fu! UriRef_getUri(uriref)
|
||||
let idx = match(a:uriref, '#')
|
||||
if idx==-1
|
||||
return a:uriref
|
||||
endif
|
||||
return strpart(a:uriref, 0, idx)
|
||||
endfu
|
||||
|
||||
"------------------------------------------------------------------------------
|
||||
" strip eventual #myfrag.
|
||||
" return uri. can be empty or <undef>
|
||||
"
|
||||
fu! UriRef_getFragment(uriref)
|
||||
let idx = match(a:uriref, '#')
|
||||
if idx==-1
|
||||
return '<undef>'
|
||||
endif
|
||||
return strpart(a:uriref, idx+1, 9999)
|
||||
endfu
|
||||
|
||||
|
||||
"------------------------------------------------------------------------------
|
||||
" Unescape unsafe characters in given string,
|
||||
" e.g. transform `10%25%20is%20enough' to `10% is enough'.
|
||||
"
|
||||
" - typically string is an uri component (path or fragment)
|
||||
"
|
||||
" (see <URL:http://www.ietf.org/rfc/rfc2396.txt#2. URI Characters and Escape Sequences>)
|
||||
"
|
||||
fu! UtlUri_unescape(esc)
|
||||
" perl: $str =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg
|
||||
let esc = a:esc
|
||||
let unesc = ''
|
||||
while 1
|
||||
let ibeg = match(esc, '%[0-9A-Fa-f]\{2}')
|
||||
if ibeg == -1
|
||||
return unesc . esc
|
||||
endif
|
||||
let chr = nr2char( "0x". esc[ibeg+1] . esc[ibeg+2] )
|
||||
let unesc = unesc . strpart(esc, 0, ibeg) . chr
|
||||
let esc = strpart(esc, ibeg+3, 9999)
|
||||
|
||||
endwhile
|
||||
endfu
|
||||
|
||||
let &cpo = s:save_cpo
|
Reference in a new issue