users 18531 plus doc etc.: new expand-absolute-path widget

Functions/Zle/.distfiles

@@ -10,6 +10,7 @@ delete-whole-word-match
 down-case-word-match
 down-line-or-beginning-search
 edit-command-line
+expand-absolute-path
 forward-word-match
 history-beginning-search-menu
 history-pattern-search

Functions/Zle/expand-absolute-path

@@ -0,0 +1,19 @@
+# expand-absolute-path
+# This is a ZLE widget to expand the absolute path to a file,
+# using directory naming to shorten the path where possible.
+
+emulate -L zsh
+setopt extendedglob cbases
+
+autoload -Uz modify-current-argument
+
+if (( ! ${+functions[glob-expand-absolute-path]} )); then
+  glob-expand-absolute-path() {
+    local -a files
+    files=(${~1}(N:A))
+    (( ${#files} )) || return
+    REPLY=${(D)files[1]}
+  }
+fi
+
+modify-current-argument glob-expand-absolute-path