Browse Source

allow shortcut .lnk navigation on non-windows

master
Julian Noble 4 days ago
parent
commit
0f065129d8
  1. 5
      src/bootsupport/modules/punk/path-0.1.0.tm
  2. 2
      src/bootsupport/modules/punk/winlnk-0.1.0.tm
  3. 5
      src/modules/punk/path-999999.0a1.0.tm
  4. 2
      src/modules/punk/winlnk-999999.0a1.0.tm
  5. 5
      src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/path-0.1.0.tm
  6. 2
      src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winlnk-0.1.0.tm
  7. 5
      src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/path-0.1.0.tm
  8. 2
      src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/winlnk-0.1.0.tm
  9. 5
      src/vfs/_vfscommon.vfs/modules/punk/path-0.1.0.tm
  10. 2
      src/vfs/_vfscommon.vfs/modules/punk/winlnk-0.1.0.tm

5
src/bootsupport/modules/punk/path-0.1.0.tm

@ -395,10 +395,9 @@ namespace eval punk::path {
return [join $finalparts /] return [join $finalparts /]
} }
} }
if {"windows" eq $::tcl_platform(platform) && [file extension [lindex $finalparts end]] eq ".lnk"} { if {[file extension [lindex $finalparts end]] eq ".lnk"} {
if {![catch {package require punk::winlnk}]} { if {![catch {package require punk::winlnk}]} {
set path [punk::winlnk::target $result] if {![catch {punk::winlnk::target $result} path]} {
if {$path ne ""} {
return $path return $path
} }
} }

2
src/bootsupport/modules/punk/winlnk-0.1.0.tm

@ -752,7 +752,7 @@ tcl::namespace::eval punk::winlnk {
#[para]Return the target path of the .lnk file specified in path #[para]Return the target path of the .lnk file specified in path
set info [resolve $path] set info [resolve $path]
if {[dict exists $info error]} { if {[dict exists $info error]} {
return [dict get $info error] error [dict get $info error]
} else { } else {
return [dict get $info link_target] return [dict get $info link_target]
} }

5
src/modules/punk/path-999999.0a1.0.tm

@ -395,10 +395,9 @@ namespace eval punk::path {
return [join $finalparts /] return [join $finalparts /]
} }
} }
if {"windows" eq $::tcl_platform(platform) && [file extension [lindex $finalparts end]] eq ".lnk"} { if {[file extension [lindex $finalparts end]] eq ".lnk"} {
if {![catch {package require punk::winlnk}]} { if {![catch {package require punk::winlnk}]} {
set path [punk::winlnk::target $result] if {![catch {punk::winlnk::target $result} path]} {
if {$path ne ""} {
return $path return $path
} }
} }

2
src/modules/punk/winlnk-999999.0a1.0.tm

@ -752,7 +752,7 @@ tcl::namespace::eval punk::winlnk {
#[para]Return the target path of the .lnk file specified in path #[para]Return the target path of the .lnk file specified in path
set info [resolve $path] set info [resolve $path]
if {[dict exists $info error]} { if {[dict exists $info error]} {
return [dict get $info error] error [dict get $info error]
} else { } else {
return [dict get $info link_target] return [dict get $info link_target]
} }

5
src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/path-0.1.0.tm

@ -395,10 +395,9 @@ namespace eval punk::path {
return [join $finalparts /] return [join $finalparts /]
} }
} }
if {"windows" eq $::tcl_platform(platform) && [file extension [lindex $finalparts end]] eq ".lnk"} { if {[file extension [lindex $finalparts end]] eq ".lnk"} {
if {![catch {package require punk::winlnk}]} { if {![catch {package require punk::winlnk}]} {
set path [punk::winlnk::target $result] if {![catch {punk::winlnk::target $result} path]} {
if {$path ne ""} {
return $path return $path
} }
} }

2
src/project_layouts/custom/_project/punk.project-0.1/src/bootsupport/modules/punk/winlnk-0.1.0.tm

@ -752,7 +752,7 @@ tcl::namespace::eval punk::winlnk {
#[para]Return the target path of the .lnk file specified in path #[para]Return the target path of the .lnk file specified in path
set info [resolve $path] set info [resolve $path]
if {[dict exists $info error]} { if {[dict exists $info error]} {
return [dict get $info error] error [dict get $info error]
} else { } else {
return [dict get $info link_target] return [dict get $info link_target]
} }

5
src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/path-0.1.0.tm

@ -395,10 +395,9 @@ namespace eval punk::path {
return [join $finalparts /] return [join $finalparts /]
} }
} }
if {"windows" eq $::tcl_platform(platform) && [file extension [lindex $finalparts end]] eq ".lnk"} { if {[file extension [lindex $finalparts end]] eq ".lnk"} {
if {![catch {package require punk::winlnk}]} { if {![catch {package require punk::winlnk}]} {
set path [punk::winlnk::target $result] if {![catch {punk::winlnk::target $result} path]} {
if {$path ne ""} {
return $path return $path
} }
} }

2
src/project_layouts/custom/_project/punk.shell-0.1/src/bootsupport/modules/punk/winlnk-0.1.0.tm

@ -752,7 +752,7 @@ tcl::namespace::eval punk::winlnk {
#[para]Return the target path of the .lnk file specified in path #[para]Return the target path of the .lnk file specified in path
set info [resolve $path] set info [resolve $path]
if {[dict exists $info error]} { if {[dict exists $info error]} {
return [dict get $info error] error [dict get $info error]
} else { } else {
return [dict get $info link_target] return [dict get $info link_target]
} }

5
src/vfs/_vfscommon.vfs/modules/punk/path-0.1.0.tm

@ -395,10 +395,9 @@ namespace eval punk::path {
return [join $finalparts /] return [join $finalparts /]
} }
} }
if {"windows" eq $::tcl_platform(platform) && [file extension [lindex $finalparts end]] eq ".lnk"} { if {[file extension [lindex $finalparts end]] eq ".lnk"} {
if {![catch {package require punk::winlnk}]} { if {![catch {package require punk::winlnk}]} {
set path [punk::winlnk::target $result] if {![catch {punk::winlnk::target $result} path]} {
if {$path ne ""} {
return $path return $path
} }
} }

2
src/vfs/_vfscommon.vfs/modules/punk/winlnk-0.1.0.tm

@ -752,7 +752,7 @@ tcl::namespace::eval punk::winlnk {
#[para]Return the target path of the .lnk file specified in path #[para]Return the target path of the .lnk file specified in path
set info [resolve $path] set info [resolve $path]
if {[dict exists $info error]} { if {[dict exists $info error]} {
return [dict get $info error] error [dict get $info error]
} else { } else {
return [dict get $info link_target] return [dict get $info link_target]
} }

Loading…
Cancel
Save