You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
276 lines
8.4 KiB
276 lines
8.4 KiB
# -*- tcl -*- |
|
# Maintenance Instruction: leave the 999999.xxx.x as is and use punkshell 'pmix make' or bin/punkmake to update from <pkg>-buildversion.txt |
|
# module template: shellspy/src/decktemplates/vendor/punk/modules/template_module-0.0.3.tm |
|
# |
|
# Please consider using a BSD or MIT style license for greatest compatibility with the Tcl ecosystem. |
|
# Code using preferred Tcl licenses can be eligible for inclusion in Tcllib, Tklib and the punk package repository. |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
# (C) 2024 |
|
# |
|
# @@ Meta Begin |
|
# Application poshinfo 999999.0a1.0 |
|
# Meta platform tcl |
|
# Meta license <unspecified> |
|
# @@ Meta End |
|
|
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
# doctools header |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
#*** !doctools |
|
#[manpage_begin shellspy_module_poshinfo 0 999999.0a1.0] |
|
#[copyright "2024"] |
|
#[titledesc {Module API}] [comment {-- Name section and table of contents description --}] |
|
#[moddesc {-}] [comment {-- Description at end of page heading --}] |
|
#[require poshinfo] |
|
#[keywords module] |
|
#[description] |
|
#[para] - |
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
|
|
#*** !doctools |
|
#[section Overview] |
|
#[para] overview of poshinfo |
|
#[subsection Concepts] |
|
#[para] - |
|
|
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
## Requirements |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
|
|
#*** !doctools |
|
#[subsection dependencies] |
|
#[para] packages used by poshinfo |
|
#[list_begin itemized] |
|
|
|
package require Tcl 8.6- |
|
package require punk::config |
|
package require json ;#tcllib |
|
#toml, yaml? |
|
|
|
#*** !doctools |
|
#[item] [package {Tcl 8.6}] |
|
#[item] [package {punk::config}] |
|
#[item] [package {json}] |
|
|
|
# #package require frobz |
|
# #*** !doctools |
|
# #[item] [package {frobz}] |
|
|
|
#*** !doctools |
|
#[list_end] |
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
|
|
#*** !doctools |
|
#[section API] |
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
# oo::class namespace |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
#tcl::namespace::eval poshinfo::class { |
|
#*** !doctools |
|
#[subsection {Namespace poshinfo::class}] |
|
#[para] class definitions |
|
#if {[tcl::info::commands [tcl::namespace::current]::interface_sample1] eq ""} { |
|
#*** !doctools |
|
#[list_begin enumerated] |
|
|
|
# oo::class create interface_sample1 { |
|
# #*** !doctools |
|
# #[enum] CLASS [class interface_sample1] |
|
# #[list_begin definitions] |
|
|
|
# method test {arg1} { |
|
# #*** !doctools |
|
# #[call class::interface_sample1 [method test] [arg arg1]] |
|
# #[para] test method |
|
# puts "test: $arg1" |
|
# } |
|
|
|
# #*** !doctools |
|
# #[list_end] [comment {-- end definitions interface_sample1}] |
|
# } |
|
|
|
#*** !doctools |
|
#[list_end] [comment {--- end class enumeration ---}] |
|
#} |
|
#} |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
# Base namespace |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
tcl::namespace::eval poshinfo { |
|
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
|
#variable xyz |
|
|
|
#*** !doctools |
|
#[subsection {Namespace poshinfo}] |
|
#[para] Core API functions for poshinfo |
|
#[list_begin definitions] |
|
|
|
|
|
|
|
#proc sample1 {p1 n args} { |
|
# #*** !doctools |
|
# #[call [fun sample1] [arg p1] [arg n] [opt {option value...}]] |
|
# #[para]Description of sample1 |
|
# #[para] Arguments: |
|
# # [list_begin arguments] |
|
# # [arg_def tring p1] A description of string argument p1. |
|
# # [arg_def integer n] A description of integer argument n. |
|
# # [list_end] |
|
# return "ok" |
|
#} |
|
|
|
proc info_from_filename {fname} { |
|
#string based filename processing: we are deliberately avoiding test of file existence etc here |
|
if {$fname eq ""} { |
|
error "poshinfo::info_from_filename unable to determine name from empty string" |
|
} |
|
if {[string first . $fname] < 0} { |
|
#theoretically we could have a file without dots - but it's more likely an error in this context |
|
error "poshinfo::info_from_filename supplied value '$fname' doesn't look like a filename. Cowardly refusing to guess a shortname." |
|
} |
|
set ftail [file tail $fname] |
|
set rootname [file rootname $ftail] |
|
set format [string trimleft [file extension $ftail] .] |
|
set parts [split $rootname .] |
|
if {[lindex $parts end] eq "omp"} { |
|
set type omp |
|
set shortname [join [lrange $parts 0 end-1] .] |
|
} else { |
|
if {$rootname eq "schema"} { |
|
set type schema |
|
} else { |
|
set type unknown |
|
} |
|
set shortname $rootname |
|
} |
|
return [dict create shortname $shortname format $format type $type] |
|
} |
|
|
|
proc themes_dict {{globfor *}} { |
|
set running_config [punk::config::get running-config] |
|
set posh_themes_path [tcl::dict::get $running_config posh_themes_path] |
|
#posh_themes_path_extra ?? |
|
|
|
set themes [tcl::dict::create] |
|
|
|
if {[string length $posh_themes_path]} { |
|
if {[file exists $posh_themes_path]} { |
|
set files [glob -nocomplain -directory $posh_themes_path -tails $globfor] |
|
foreach ftail $files { |
|
set themeinfo [info_from_filename $ftail] |
|
set shortname [dict get $themeinfo shortname] |
|
dict set themeinfo path [file join $posh_themes_path $ftail] |
|
if {![dict exists $themes $shortname]} { |
|
dict set themes $shortname [list $themeinfo] |
|
} else { |
|
dict lappend themes $shortname $themeinfo |
|
} |
|
} |
|
} |
|
} |
|
return $themes |
|
} |
|
proc themes {{globfor *}} { |
|
set themes [themes_dict $globfor] |
|
set posh_theme [file normalize [punk::config::get_running_global posh_theme]] |
|
set t [textblock::class::table new "Posh Themes"] |
|
$t configure -show_header 1 -show_hseps 0 |
|
$t add_column -headers Shortname |
|
$t add_column -headers Path |
|
dict for {shortname themeinfolist} $themes { |
|
#hack - support just one for now |
|
set themeinfo [lindex $themeinfolist 0] |
|
|
|
set path [dict get $themeinfo path] |
|
$t add_row [list $shortname $path] |
|
set fg "" |
|
set bg "" |
|
switch -- [dict get $themeinfo type] { |
|
schema { |
|
set bg Web-orange |
|
} |
|
omp {} |
|
unknown { |
|
set bg Web-red |
|
} |
|
default { |
|
#we shouldn't be getting other values |
|
set bg Web-yellow |
|
} |
|
} |
|
if {$posh_theme eq [file normalize $path]} { |
|
set fg web-limegreen |
|
} |
|
if {"$fg$bg" ne ""} { |
|
$t configure_row [expr {[$t row_count]-1}] -ansibase [a+ {*}$fg {*}$bg] |
|
} |
|
} |
|
set result [$t print] |
|
$t destroy |
|
return $result |
|
} |
|
|
|
|
|
#*** !doctools |
|
#[list_end] [comment {--- end definitions namespace poshinfo ---}] |
|
} |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
|
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
# Secondary API namespace |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
tcl::namespace::eval poshinfo::lib { |
|
tcl::namespace::export {[a-z]*} ;# Convention: export all lowercase |
|
tcl::namespace::path [tcl::namespace::parent] |
|
#*** !doctools |
|
#[subsection {Namespace poshinfo::lib}] |
|
#[para] Secondary functions that are part of the API |
|
#[list_begin definitions] |
|
|
|
#proc utility1 {p1 args} { |
|
# #*** !doctools |
|
# #[call lib::[fun utility1] [arg p1] [opt {?option value...?}]] |
|
# #[para]Description of utility1 |
|
# return 1 |
|
#} |
|
|
|
|
|
|
|
#*** !doctools |
|
#[list_end] [comment {--- end definitions namespace poshinfo::lib ---}] |
|
} |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
|
|
|
|
|
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
#*** !doctools |
|
#[section Internal] |
|
#tcl::namespace::eval poshinfo::system { |
|
#*** !doctools |
|
#[subsection {Namespace poshinfo::system}] |
|
#[para] Internal functions that are not part of the API |
|
|
|
|
|
|
|
#} |
|
# ++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ |
|
## Ready |
|
package provide poshinfo [tcl::namespace::eval poshinfo { |
|
variable pkg poshinfo |
|
variable version |
|
set version 999999.0a1.0 |
|
}] |
|
return |
|
|
|
#*** !doctools |
|
#[manpage_end] |
|
|
|
|