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 /]
}
}
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}]} {
set path [punk::winlnk::target $result]
if {$path ne ""} {
if {![catch {punk::winlnk::target $result} 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
set info [resolve $path]
if {[dict exists $info error]} {
return [dict get $info error]
error [dict get $info error]
} else {
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 /]
}
}
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}]} {
set path [punk::winlnk::target $result]
if {$path ne ""} {
if {![catch {punk::winlnk::target $result} 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
set info [resolve $path]
if {[dict exists $info error]} {
return [dict get $info error]
error [dict get $info error]
} else {
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 /]
}
}
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}]} {
set path [punk::winlnk::target $result]
if {$path ne ""} {
if {![catch {punk::winlnk::target $result} 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
set info [resolve $path]
if {[dict exists $info error]} {
return [dict get $info error]
error [dict get $info error]
} else {
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 /]
}
}
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}]} {
set path [punk::winlnk::target $result]
if {$path ne ""} {
if {![catch {punk::winlnk::target $result} 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
set info [resolve $path]
if {[dict exists $info error]} {
return [dict get $info error]
error [dict get $info error]
} else {
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 /]
}
}
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}]} {
set path [punk::winlnk::target $result]
if {$path ne ""} {
if {![catch {punk::winlnk::target $result} 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
set info [resolve $path]
if {[dict exists $info error]} {
return [dict get $info error]
error [dict get $info error]
} else {
return [dict get $info link_target]
}

Loading…
Cancel
Save