cliphist Namespace Reference

Functions
	load
	save
	add_from_clipboard
	add_detail str txt
	add_to_clipboard str
	get_history
	show_cliphist
	printable_hist
	handle_cliphist_depth name1 name2 op

Function Documentation

add_detail()

cliphist::add_detail			str txt

Definition at line 121 of file cliphist.tcl.

  proc add_detail {str txt} {

    $txt insert end $str

  }

add_from_clipboard()

cliphist::add_from_clipboard

Definition at line 88 of file cliphist.tcl.

  proc add_from_clipboard {} {

    variable hist

    # Get the clipboard content
    set str [string map {\{ \\\{} [clipboard get]]

    if {[string trim $str] ne ""} {

      # If the string doesn't exist in history, add it
      if {[set index [lsearch -exact $hist $str]] == -1} {

        # Append the string to the history file
        lappend hist $str

        # Trim the history to meet the maxsize requirement, if necessary
        if {[llength $hist] > [preferences::get Editor/ClipboardHistoryDepth]} {
          set hist [lrange $hist 1 end]
        }

      # Otherwise, move the current string to the beginning of the history
      } else {

        set hist [linsert [lreplace $hist $index $index] end $str]

      }

    }

  }

add_to_clipboard()

cliphist::add_to_clipboard			str

Definition at line 131 of file cliphist.tcl.

  proc add_to_clipboard {str} {

    # Add the string to the clipboard
    clipboard clear
    clipboard append [string map {\\\{ \{} $str]

    # We need to make sure that this string is updated within the clipboard
    add_from_clipboard

    # Insert the string in the current text widget
    gui::paste_and_format

  }

get_history()

cliphist::get_history

Definition at line 149 of file cliphist.tcl.

  proc get_history {} {

    variable hist

    set items [list]

    foreach item [lreverse $hist] {
      set lines [split $item \n]
      set short [lindex $lines 0]
      if {[llength $lines] > 1} {
        append short "  ..."
      }
      lappend items [list [string map {\\\{ \{} $short] [string map {\\\{ \{} $item]]
    }

    return $items

  }

handle_cliphist_depth()

cliphist::handle_cliphist_depth			name1 name2 op

Definition at line 199 of file cliphist.tcl.

  proc handle_cliphist_depth {name1 name2 op} {

    variable hist

    if {[set diff [expr [llength $hist] - [preferences::get Editor/ClipboardHistoryDepth]]] > 0} {
      set hist [lrange $hist $diff end]
    }

  }

load()

cliphist::load

Definition at line 32 of file cliphist.tcl.

  proc load {} {

    variable cliphist_file
    variable hist

    if {![catch { open $cliphist_file r} rc]} {

      # Read the contents of the file
      set contents [read $rc]
      close $rc

      # Parse the file
      set in_history 0
      foreach line [split $contents \n] {
        if {$line eq "clipping:"} {
          set in_history 1
          set clipping   ""
        } elseif {$in_history && [regexp {^\t(.*)$} $line -> str]} {
          append clipping "$str\n"
        } elseif {$in_history} {
          set clipping   [string range $clipping 0 end-1]
          set in_history 0
          lappend hist $clipping
        }
      }

    }

    # Handle any changes to the clipboard history depth
    trace variable preferences::prefs(Editor/ClipboardHistoryDepth) w cliphist::handle_cliphist_depth

  }

printable_hist()

cliphist::printable_hist

Definition at line 189 of file cliphist.tcl.

  proc printable_hist {} {

    variable hist

    return [format {  -%s } [join $hist "\n  -"]]

  }

save()

cliphist::save

Definition at line 68 of file cliphist.tcl.

  proc save {} {

    variable cliphist_file
    variable hist

    if {![catch { open $cliphist_file w} rc]} {
      foreach clipping $hist {
        puts $rc "clipping:"
        foreach line [split $clipping \n] {
          puts $rc "\t$line"
        }
        puts $rc ""
      }
      close $rc
    }

  }

show_cliphist()

cliphist::show_cliphist

Definition at line 170 of file cliphist.tcl.

  proc show_cliphist {} {

    variable hist

    # Add temporary registries to launcher
    set i 0
    foreach strs [get_history] {
      lassign $strs name str
      launcher::register_temp "`CLIPHIST:$name" [list cliphist::add_to_clipboard $str] $name $i [list cliphist::add_detail $str]
      incr i
    }

    # Display the launcher in CLIPHIST: mode
    launcher::launch "`CLIPHIST:" 1

  }