mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-15 23:50:44 +00:00
830 lines
24 KiB
Tcl
830 lines
24 KiB
Tcl
# options.tcl --
|
||
#
|
||
# This file contains defaults for all the options. These are just the
|
||
# built in defaults.
|
||
#
|
||
#
|
||
# TkRat software and its included text is Copyright 1996,1997,1998
|
||
# by Martin Forss.ANin
|
||
#
|
||
# Postilion software and its included text and images
|
||
# Copyright (C) 1998 Nic Bernstein
|
||
#
|
||
# The full text of the legal notices is contained in the files called
|
||
# COPYING and COPYRIGHT.TkRat, included with this distribution.
|
||
#
|
||
# This program is free software; you can redistribute it and/or
|
||
# modify it under the terms of the GNU General Public License
|
||
# as published by the Free Software Foundation; either version 2
|
||
# of the License, or (at your option) any later version.
|
||
#
|
||
# This program is distributed in the hope that it will be useful,
|
||
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
# GNU General Public License for more details.
|
||
#
|
||
# You should have received a copy of the GNU General Public License
|
||
# along with this program; if not, write to the Free Software
|
||
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||
|
||
# OptionsInit --
|
||
#
|
||
# Initialize the options to their default values
|
||
#
|
||
# Arguments:
|
||
|
||
proc OptionsInit {} {
|
||
global env option postilion_version icons mailbox address mboxview
|
||
|
||
# Last run version
|
||
set option(last_version) ""
|
||
|
||
# The date of the last version used
|
||
set option(last_version_date) 0
|
||
|
||
# Want information about changes?
|
||
set option(info_changes) 1
|
||
|
||
# UI language
|
||
set option(language) en
|
||
|
||
# Search path for global configuration files
|
||
set option(global_config_path) $env(CONFIG_DIR)
|
||
|
||
# Personal config directory
|
||
set option(postilion_dir) ~/.postilion
|
||
|
||
# Database directory
|
||
set option(dbase_dir) ~/.postilion/db
|
||
|
||
# Directory to backup database messages to
|
||
set option(dbase_backup) ~/.postilion/backup
|
||
|
||
# Directory to store outgoing messages
|
||
set option(send_cache) ~/.postilion/send
|
||
|
||
# Delivery mode
|
||
set option(delivery_mode) direct
|
||
|
||
# whether to display the button bar
|
||
set option(button_bar) 1
|
||
|
||
# style of buttons to use (text or image)
|
||
set option(image_buttons) 1
|
||
|
||
# whether to display the sync button
|
||
set option(sync_but) 0
|
||
|
||
# what the sync button should do
|
||
set option(sync_oper) 0
|
||
|
||
# paths and files to use for images
|
||
set option(image_path) $env(LIBDIR)/images
|
||
|
||
# the up-arrow button
|
||
set icons(upabut) $option(image_path)/uparrow.gif
|
||
# the down-arrow button
|
||
set icons(dnabut) $option(image_path)/dnarrow.gif
|
||
# the move button
|
||
set icons(mvbut) $option(image_path)/mailbox.gif
|
||
# the delete button
|
||
set icons(delbut) $option(image_path)/trash.gif
|
||
# the compose button
|
||
set icons(compbut) $option(image_path)/compose.gif
|
||
# the find message button
|
||
set icons(fndbut) $option(image_path)/find.gif
|
||
# the synchronize button
|
||
set icons(updbut) $option(image_path)/sync.gif
|
||
# the reply button
|
||
set icons(repbut) $option(image_path)/reply.gif
|
||
# the reply-all button
|
||
set icons(rallbut) $option(image_path)/replyall.gif
|
||
# the forward button
|
||
set icons(fwrdbut) $option(image_path)/forward.gif
|
||
# the send image
|
||
set icons(sndbut) $option(image_path)/send.gif
|
||
# the send/save image
|
||
set icons(savbut) $option(image_path)/sendsave.gif
|
||
# the Spell check image
|
||
set icons(spllbut) $option(image_path)/spell.gif
|
||
# the attach-file image
|
||
set icons(atchbut) $option(image_path)/attach-mini.gif
|
||
# the attach-keys image
|
||
set icons(keybut) $option(image_path)/keys.gif
|
||
# the encrypt image
|
||
set icons(mcryptbut) $option(image_path)/pgp-mini.gif
|
||
# the sign image
|
||
set icons(msignbut) $option(image_path)/sign-mini.gif
|
||
# the PGP icon
|
||
set icons(mlockbut) $option(image_path)/keys-mini.gif
|
||
# the DSN icon
|
||
set icons(mrecpbut) $option(image_path)/recp-mini.gif
|
||
# the encrypt image
|
||
set icons(cryptbut) $option(image_path)/pgp.gif
|
||
# the sign image
|
||
set icons(signbut) $option(image_path)/sign.gif
|
||
# the PGP icon
|
||
set icons(lockbut) $option(image_path)/keys.gif
|
||
# the DSN icon
|
||
set icons(recpbut) $option(image_path)/receipt.gif
|
||
# the detach-file image
|
||
set icons(dtchbut) $option(image_path)/detach-mini.gif
|
||
# the base mbox icon
|
||
set icons(mbox_base) $option(image_path)/mailbox.gif
|
||
# the addresses icon
|
||
set icons(addrbut) $option(image_path)/addresses.gif
|
||
|
||
# information for the mailbox widget
|
||
# how many list boxes?
|
||
set mailbox(num_lbs) 3
|
||
|
||
# Width of listboxes in the mailbox widget
|
||
set mailbox(lbwidth) 20
|
||
|
||
# do we handle the hierarchy as a path or not?
|
||
# ie: for mailboxes, we need to keep track of how we got there,
|
||
# for addresses, we only care about the address, not how the user stores it
|
||
set mailbox(path) 1
|
||
|
||
# if this hierarchy uses a path, what is the path seperator
|
||
set mailbox(seperator) :
|
||
|
||
# the font to use for the headers in the mailbox widget
|
||
set mailbox(head_font) "-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*"
|
||
|
||
# A placekeeper
|
||
set mailbox(current) {}
|
||
|
||
# information for the mboxview widget
|
||
# Is it visible?
|
||
set option(mboxvis) 0
|
||
|
||
# how many list boxes?
|
||
set mboxview(num_lbs) 3
|
||
|
||
# Width of listboxes in the mboxview widget
|
||
set mboxview(lbwidth) 20
|
||
|
||
# the font to use for the headers in the mboxview widget
|
||
set mboxview(head_font) "-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*"
|
||
|
||
# A placekeeper
|
||
set mboxview(current) {}
|
||
|
||
# information for the address widget
|
||
# how many list boxes?
|
||
set address(num_lbs) 2
|
||
|
||
# Width of listboxes in the address widget
|
||
set address(lbwidth) {}
|
||
|
||
# do we handle the hierarchy as a path or not?
|
||
# ie: for mailboxes, we need to keep track of how we got there,
|
||
# for addresses, we only care about the address, not how the user stores it
|
||
set address(path) 0
|
||
|
||
# if this hierarchy uses a path, what is the path seperator
|
||
set address(seperator) :
|
||
|
||
# the font to use for the headers in the address widget
|
||
set address(head_font) "-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*"
|
||
|
||
# A placekeeper
|
||
set address(current) {}
|
||
|
||
# Whether to enable Offix DND support, must be 1 or 0
|
||
set option(DND) 0
|
||
|
||
# How long to wait between expiring the database (in days)
|
||
set option(expire_interval) 7
|
||
|
||
# Directory for message hold
|
||
set option(hold_dir) ~/.postilion/hold
|
||
|
||
# Userprocedures file
|
||
set option(userproc) ~/.postilion/userproc
|
||
|
||
# Main window name
|
||
set option(main_window_name) "Postilion v$postilion_version"
|
||
|
||
# Main window geometry
|
||
set option(main_geometry) +0+50
|
||
|
||
# Icon name
|
||
set option(icon_name) "Postilion v$postilion_version"
|
||
|
||
# Command to get default folder
|
||
set option(default_folder) "INBOX file {} /var/spool/mail/$env(USER)"
|
||
|
||
# Format of list of messages
|
||
set option(list_format) "%4S %6d %-24n %4B %s"
|
||
|
||
# How many headers we should show
|
||
set option(show_header) selected
|
||
|
||
# Which the selected headers are:
|
||
set option(show_header_selection) {From Subject Date To CC Reply-To}
|
||
|
||
# How many old directories we should remember
|
||
set option(prev_dir) 10
|
||
|
||
# Default permissions mask
|
||
set option(permissions) 0600
|
||
|
||
# Prefix for date type dynaminc folders
|
||
set option(date-prefix) sent
|
||
|
||
# Geometry of compose window
|
||
set option(compose_geometry) +0+50
|
||
|
||
# Which headers to compose
|
||
set option(compose_headers) {To Subject Cc}
|
||
|
||
# Which custom headers
|
||
set option(custom_headers) {}
|
||
|
||
# Which editor to use (%s will be expanded to a filename)
|
||
set option(editor) "emacs %s"
|
||
|
||
# Which domain we should pretend we are from
|
||
set option(masquerade_as) {}
|
||
|
||
# Which domain we are in
|
||
set option(domain) {}
|
||
|
||
# List of SMTP hosts
|
||
set option(smtp_hosts) {localhost}
|
||
|
||
# Default sening protocol
|
||
set option(sendprot) smtp
|
||
|
||
# Default sending program
|
||
set option(sendprog) /usr/lib/sendmail
|
||
|
||
# Can the sending program handle eightbit data
|
||
set option(sendprog_8bit) false
|
||
|
||
# Default character set for tcl
|
||
set option(charset) iso-8859-1
|
||
|
||
# Leader string for replies
|
||
set option(reply_lead) {>}
|
||
|
||
# Width of listboxes in vfolderdef window
|
||
set option(vfoldername_width) 15
|
||
|
||
# True (1) if we should show the watcher
|
||
set option(watcher_enable) 1
|
||
|
||
# Time between checking for new mail in different folders
|
||
set option(watcher_time) {{std 30} {dbase 0}}
|
||
|
||
# Geometry of watcher
|
||
set option(watcher_geometry) -140+0
|
||
|
||
# Watcher window name
|
||
set option(watcher_name) Watcher
|
||
|
||
# Watcher max height
|
||
set option(watcher_max_height) 10
|
||
|
||
# Font in watcher
|
||
set option(watcher_font) 5x7
|
||
|
||
# How many messages the watcher shall show
|
||
set option(watcher_show) new
|
||
|
||
# How many times the bell should be run when new messages arive
|
||
set option(watcher_bell) 2
|
||
|
||
# Format of list of messages in watcher
|
||
set option(watcher_format) "%4S %-24n %s"
|
||
|
||
# Print command
|
||
set option(print_command) "lpr %s"
|
||
|
||
# Headers to print
|
||
set option(print_header) selected
|
||
|
||
# Should we print non-text attachments
|
||
set option(print_non_text) 0
|
||
|
||
# Directory for temporary files
|
||
set option(tmp) /tmp
|
||
|
||
# Subject for replies to messages without subject
|
||
set option(no_subject) "Re: (no subject)"
|
||
|
||
# Default signature file
|
||
set option(signature) ~/.signature
|
||
|
||
# Default folder sort method
|
||
set option(folder_sort) folder
|
||
|
||
# Should we advance the message cursur when flaging messages
|
||
set option(adv_on_flag) 0
|
||
|
||
# Message attribution
|
||
set option(attribution) "On %d, %n wrote:"
|
||
|
||
# Forwarded tag
|
||
set option(forwarded_message) "------ Forwarded message ------"
|
||
|
||
# File typing
|
||
set option(typetable) { {*text* text/plain}
|
||
{*XPM* image/pixmap}
|
||
{*GIF* image/gif}
|
||
{*JPEG* image/jpeg}
|
||
{*JPG* image/jpeg}
|
||
{*TIF* image/tiff}
|
||
{*TIFF* image/tiff}
|
||
{"*8-bit u-law*" audio/basic}
|
||
{*PostScript* application/postscript}
|
||
{*data* application/octet-stream}}
|
||
|
||
# True if we want to see ALL messages from c-client (including babble)
|
||
set option(see_bable) 0
|
||
|
||
# True if we have looked for alias files
|
||
set option(scan_aliases) 0
|
||
|
||
# Number of messages to remember
|
||
set option(num_messages) 10
|
||
|
||
# True if we should lookup usernames in the local passwd-list
|
||
set option(lookup_name) true
|
||
|
||
# Default database expiration type
|
||
set option(def_extype) remove
|
||
|
||
# Default clock time format (12 or 24)
|
||
set option(clock_format) 24
|
||
|
||
# Default database expiration time
|
||
set option(def_exdate) +365
|
||
|
||
# How many messages are required for one chunk (in dbase backup)
|
||
set option(chunksize) 100
|
||
|
||
# Where we should store dsn files
|
||
set option(dsn_directory) ~/.postilion/DSN
|
||
|
||
# If we should default to request DSN
|
||
set option(dsn_request) 0
|
||
|
||
# If we should remove delivery reports from folders
|
||
set option(dsn_snarf_reports) 0
|
||
|
||
# How many days each DSN entry should be kept in the list
|
||
set option(dsn_expiration) 7
|
||
|
||
# How verbose we should be when recieving DSN's
|
||
set option(dsn_verbose) {{failed notify} {delayed status} {delivered status} {relayed status} {expanded none}}
|
||
|
||
# Which windows to display at startup
|
||
set option(start_win) [list [list mailboxes 0] [list compose 0] \
|
||
[list address 0] [list folder 1]]
|
||
|
||
# Whether to use a single NeXT style menu (1), or per-window menus (0)
|
||
set option(next_menu) 0
|
||
|
||
# Which message we should select when a folder is opened
|
||
set option(start_selection) first_new
|
||
|
||
# How long log messages should show (in ms)
|
||
set option(log_timeout) 3
|
||
|
||
# The default reply_to address
|
||
set option(reply_to) ""
|
||
|
||
# The font size we use
|
||
set option(fontsize) 12
|
||
|
||
# Folder window key combination
|
||
set option(folder_key_compose) <Key-m>
|
||
set option(folder_key_quit) <Alt-Key-F4>
|
||
set option(folder_key_nextu) <Key-Tab>
|
||
set option(folder_key_sync) <Control-Key-s>
|
||
set option(folder_key_update) <Control-Key-u>
|
||
set option(folder_key_delete) <Key-d>
|
||
set option(folder_key_undelete) <Key-u>
|
||
set option(folder_key_flag) <Key-g>
|
||
set option(folder_key_seen) <Key-s>
|
||
set option(folder_key_ans) <Key-a>
|
||
set option(folder_key_next) {<Key-Right> <Shift-Key-Down> <Key-n>}
|
||
set option(folder_key_prev) {<Key-Left> <Shift-Key-Up> <Key-p>}
|
||
set option(folder_key_replya) <Key-R>
|
||
set option(folder_key_replys) <Key-r>
|
||
set option(folder_key_replyq) <Key-q>
|
||
set option(folder_key_replyqa) <Key-Q>
|
||
set option(folder_key_forward_i) <Key-f>
|
||
set option(folder_key_forward_a) <Key-F>
|
||
set option(folder_key_bounce) <Key-b>
|
||
set option(folder_key_home) {<Key-0> <Key-F27>}
|
||
set option(folder_key_bottom) {<Key-F33> <Key-End>}
|
||
set option(folder_key_pagedown) {<Key-space> <Key-F35> <Key-z>}
|
||
set option(folder_key_pageup) {<Key-BackSpace> <Key-F29> <Control-b>}
|
||
set option(folder_key_linedown) {<Key-Down>}
|
||
set option(folder_key_lineup) {<Key-Up>}
|
||
set option(folder_key_cycle_header) <Key-h>
|
||
set option(folder_key_find) <Key-l>
|
||
set option(folder_key_select_all) <Key-A>
|
||
set option(folder_key_deselect_all) <Key-c>
|
||
|
||
# Compose window key combinations
|
||
set option(compose_key_send) <Control-s>
|
||
set option(compose_key_abort) <Alt-Key-F4>
|
||
set option(compose_key_editor) <Control-o>
|
||
set option(compose_key_undo) <Control-u>
|
||
set option(compose_key_cut) {<Shift-Delete> <Control-x>}
|
||
set option(compose_key_cut_all) <Control-W>
|
||
set option(compose_key_copy) {<Control-Insert> <Control-c>}
|
||
set option(compose_key_paste) {<Shift-Insert> <Control-v>}
|
||
set option(compose_key_replys) <Control-r>
|
||
set option(compose_key_replyq) <Control-q>
|
||
set option(compose_key_replya) <Control-R>
|
||
set option(compose_key_replyqa) <Control-Q>
|
||
set option(compose_key_insert) <Control-i>
|
||
|
||
# If we should check for stolen mail
|
||
set option(mail_steal) 1
|
||
|
||
# Data for netscape inbox
|
||
set option(ms_netscape_pref_file) $env(HOME)/.netscape/preferences
|
||
set option(ms_netscape_mtime) 0
|
||
|
||
# True if we should remember the window positions
|
||
set option(keep_pos) 1
|
||
|
||
# The default From: address (may be empty)
|
||
set option(from) {}
|
||
|
||
# True if we should let the user specify from address.
|
||
set option(use_from) 1
|
||
|
||
# The level of verboseness we should use when talking SMTP
|
||
set option(smtp_verbose) 1
|
||
|
||
# If we should try to send multiple letters though one channel
|
||
set option(smtp_reuse) 1
|
||
|
||
# The color set
|
||
set option(color_set) {gray67 black}
|
||
|
||
# The background color for the compose and message "paper"
|
||
set option(paper_color) white
|
||
|
||
# True if we should cache passwords
|
||
set option(cache_passwd) 1
|
||
|
||
# Which icon to set for the application
|
||
set icons(app_icon) $option(image_path)/postilion.gif
|
||
|
||
# the compose window icon
|
||
set icons(compicon) $option(image_path)/compicon.gif
|
||
|
||
# the addressbook window icon
|
||
set icons(addrwin) $option(image_path)/addrbook.gif
|
||
|
||
# the preferences window icon
|
||
set icons(prefwin) $option(image_path)/preficon.gif
|
||
|
||
# the help window icon
|
||
set icons(helpwin) $option(image_path)/helpicon.gif
|
||
|
||
# the mailbox window icon
|
||
set icons(mboxwin) $option(image_path)/mboxicon.gif
|
||
|
||
# the browser window icon
|
||
set icons(brwswin) $option(image_path)/brwsicon.gif
|
||
|
||
# the dimple image
|
||
set icons(dimple) $option(image_path)/dimple.gif
|
||
|
||
# the down dimple image
|
||
set icons(down) $option(image_path)/down.gif
|
||
|
||
# the up dimple image
|
||
set icons(up) $option(image_path)/up.gif
|
||
|
||
# the no-dimple image
|
||
set icons(none) $option(image_path)/none.gif
|
||
|
||
# The default expression mode
|
||
set option(expression_mode) basic
|
||
|
||
# If we should start up in iconic mode
|
||
set option(iconic) 0
|
||
|
||
# If the compose editor should warn about cutting all text etc
|
||
set option(compose_warn) 1
|
||
|
||
# Length of message list
|
||
set option(message_llength) 14
|
||
|
||
# Mailcap path
|
||
set option(mailcap_path) {~/.mailcap:/etc/mailcap:/usr/etc/mailcap:/usr/local/etc/mailcap}
|
||
|
||
# Terminal command
|
||
set option(terminal) "xterm -e sh -c"
|
||
|
||
# Imap port
|
||
set option(imap_port) 143
|
||
|
||
# SMTP timeout
|
||
set option(smtp_timeout) 120
|
||
|
||
# Should we send even though we have a bad hostname?
|
||
set option(force_send) 0
|
||
|
||
# Should we quote the original message when replying (1=no, 0=yes)?
|
||
set option(quote) 0
|
||
|
||
# Should we skip the signature of the message we are replying to
|
||
set option(skip_sig) true
|
||
|
||
# Are we PGP capable?
|
||
if [info exists env(PGPPATH)] {
|
||
set pgpdir $env(PGPPATH)
|
||
} else {
|
||
set pgpdir ~/.pgp
|
||
}
|
||
if {0 < [string length "$env(PGP)"] &&
|
||
1 == [file readable $pgpdir/pubring.pgp] &&
|
||
1 == [file readable $pgpdir/secring.pgp]} {
|
||
set option(pgp_enable) 1
|
||
} else {
|
||
set option(pgp_enable) 0
|
||
}
|
||
|
||
# Path to pgp program
|
||
set option(pgp_prog) $env(PGP)
|
||
|
||
# Extra pgp options
|
||
set option(pgp_args) {}
|
||
|
||
# If we should make a copy of attached files
|
||
set option(copy_attached) 1
|
||
|
||
# If we should sign outgoing letters
|
||
set option(pgp_sign) 0
|
||
|
||
# If we should encrypt outgoing letters
|
||
set option(pgp_encrypt) 0
|
||
|
||
# Default url viewer
|
||
set option(url_viewer) netscape
|
||
|
||
# Name (and path) of netscape executable
|
||
set option(netscape) netscape
|
||
|
||
# Extra arguments for netscape
|
||
set option(netscape_args) -install
|
||
|
||
# Color of URL
|
||
set option(url_color) blue
|
||
|
||
# Message list colors
|
||
set option(new_msg_col) green
|
||
set option(sel_msg_col) white
|
||
set option(fnd_msg_col) white
|
||
set option(flg_msg_col) red
|
||
set option(del_msg_col) yellow
|
||
set option(seen_msg_col) black
|
||
set option(ans_msg_col) blue
|
||
|
||
# System wide aliases
|
||
set option(system_aliases) "System postilion $env(CONFIG_DIR)/aliases"
|
||
set option(use_system_aliases) 1
|
||
|
||
# System wide mailboxes
|
||
set option(system_mailboxes) "$env(CONFIG_DIR)/sysvfolderdef"
|
||
set option(use_system_mboxes) 1
|
||
|
||
# Personal alias lists
|
||
set option(addrbooks) {{Personal postilion ~/.postilion/aliases}}
|
||
|
||
# Default alias book
|
||
set option(default_book) Personal
|
||
|
||
# Default browse mode
|
||
set option(browse) folder
|
||
|
||
# Default sort mode
|
||
set option(sort_mode) folder
|
||
|
||
# Default list format mode
|
||
set option(list_mode) folder
|
||
|
||
# Default signature mode
|
||
set option(sig_mode) folder
|
||
|
||
# Default start selection mode
|
||
set option(strsel_mode) folder
|
||
|
||
# Default From mode
|
||
set option(from_mode) folder
|
||
|
||
# Default reply to mode
|
||
set option(reply_mode) folder
|
||
|
||
# Caching data
|
||
set option(cache_pgp) 1
|
||
set option(cache_pgp_timeout) 300
|
||
set option(cache_passwd) 1
|
||
set option(cache_passwd_timeout) 300
|
||
set option(cache_conn) 1
|
||
set option(cache_conn_timeout) 10
|
||
|
||
# URL protocols
|
||
set option(urlprot) {http shttp ftp news telnet}
|
||
|
||
# Balloon help
|
||
set option(show_balhelp) 1
|
||
|
||
# Balloon help delay
|
||
set option(balhelp_delay) 500
|
||
|
||
# Message finding fields
|
||
set option(msgfind_format) "%s%n%b%D"
|
||
|
||
# Should we warn about tk version 8.2
|
||
set option(warn_tk82) 1
|
||
|
||
## Ispell options
|
||
# Turn Ispell On/Off
|
||
set option(ispellon) 1
|
||
|
||
# Re-Verify after Adds?
|
||
set option(ispellRecheckAfterAdd) 1
|
||
|
||
# Spell Check 'Text' only?
|
||
set option(ispelltextOnly) 1
|
||
|
||
# Default speller invocation
|
||
set option(ispelldefaultCommand) "ispell -a -S"
|
||
|
||
# Other Invocations
|
||
set option(ispellotherCommands) " German { ispell -a -d deutsch } \
|
||
French { ispell -a -d francais } \
|
||
English { ispell -a -d english } "
|
||
|
||
# Menu popup bound to:
|
||
set option(ispellpopupBinding) "ButtonPress-3"
|
||
|
||
# Miss-spelled word style
|
||
set option(ispellviewStyle) underline
|
||
|
||
# color for fgcolor and bgcolor
|
||
set option(ispellviewStyle-Color) red
|
||
|
||
# Style if 'other' is selected
|
||
set option(ispellviewStyle-Other) "-underline t -foreground red"
|
||
|
||
# Automatically expunge on folder close
|
||
set option(expunge_on_close) 0
|
||
}
|
||
|
||
# OptionsRead --
|
||
#
|
||
# Searches the filesystem for postilionrc files
|
||
#
|
||
# Arguments:
|
||
|
||
proc OptionsRead {} {
|
||
global option globalOption env ispellVars
|
||
|
||
# Read global files
|
||
foreach dir $option(global_config_path) {
|
||
if [file readable $dir/postilionrc] {
|
||
source $dir/postilionrc
|
||
}
|
||
}
|
||
# Take copy of global options
|
||
foreach name [array names option] {
|
||
set globalOption($name) $option($name)
|
||
}
|
||
# Read local modifications
|
||
if [file readable $option(postilion_dir)/postilionrc] {
|
||
source $option(postilion_dir)/postilionrc
|
||
}
|
||
# Set Ispell preferences array
|
||
foreach pick {on RecheckAfterAdd textOnly defaultCommand
|
||
otherCommands popupBinding viewStyle viewStyle-Color
|
||
viewStyle-Other} {
|
||
set ispellVars($pick) $option(ispell$pick)
|
||
}
|
||
}
|
||
|
||
# SaveOptions --
|
||
#
|
||
# Saves the users changes to the global options to disk.
|
||
#
|
||
# Arguments:
|
||
|
||
proc SaveOptions {} {
|
||
global option globalOption
|
||
|
||
# Warning message
|
||
set message {#
|
||
# BEWARE of making changes to this file. It is automatically generated.
|
||
# You can change the values in this file via the preferences window.
|
||
# This file can only contain "set option(<optname>) <value>" lines,
|
||
# everything else will be destroyed when the file is regenerated.
|
||
}
|
||
|
||
set fh [open $option(postilion_dir)/postilionrc w]
|
||
puts $fh $message
|
||
foreach name [array names globalOption] {
|
||
if [string compare $option($name) $globalOption($name)] {
|
||
puts $fh "set option($name) [list $option($name)]"
|
||
}
|
||
}
|
||
close $fh
|
||
}
|
||
|
||
# ReadUserproc --
|
||
#
|
||
# Source the users userproc file with some caution
|
||
#
|
||
# Arguments:
|
||
|
||
proc ReadUserproc {} {
|
||
global option t
|
||
if [file readable $option(userproc)] {
|
||
if [catch "source $option(userproc)" message] {
|
||
Popup "$t(error_in_userproc): $message"
|
||
}
|
||
}
|
||
}
|
||
|
||
# InitFonts --
|
||
#
|
||
# Initializes the default fonts
|
||
#
|
||
# These initializations can be overridden in the local configuration files.
|
||
# See the ../CONFIGURATION file for details.
|
||
#
|
||
# Arguments:
|
||
|
||
proc InitFonts {} {
|
||
AddFont iso-8859-1 8 {} *-courier-medium-r-normal-*-8-*-iso8859-1
|
||
AddFont iso-8859-1 8 {bold} *-courier-bold-r-normal-*-8-*-iso8859-1
|
||
AddFont iso-8859-1 8 {italic} *-courier-medium-o-normal-*-8-*-iso8859-1
|
||
AddFont iso-8859-1 8 {bold italic} *-courier-bold-o-normal-*-8-*-iso8859-1
|
||
AddFont iso-8859-1 10 {} *-courier-medium-r-normal-*-10-*-iso8859-1
|
||
AddFont iso-8859-1 10 {bold} *-courier-bold-r-normal-*-10-*-iso8859-1
|
||
AddFont iso-8859-1 10 {italic} *-courier-medium-o-normal-*-10-*-iso8859-1
|
||
AddFont iso-8859-1 10 {bold italic} *-courier-bold-o-normal-*-10-*-iso8859-1
|
||
AddFont iso-8859-1 12 {} *-courier-medium-r-normal-*-12-*-iso8859-1
|
||
AddFont iso-8859-1 12 {bold} *-courier-bold-r-normal-*-12-*-iso8859-1
|
||
AddFont iso-8859-1 12 {italic} *-courier-medium-o-normal-*-12-*-iso8859-1
|
||
AddFont iso-8859-1 12 {bold italic} *-courier-bold-o-normal-*-12-*-iso8859-1
|
||
AddFont iso-8859-1 14 {} *-courier-medium-r-normal-*-14-*-iso8859-1
|
||
AddFont iso-8859-1 14 {bold} *-courier-bold-r-normal-*-14-*-iso8859-1
|
||
AddFont iso-8859-1 14 {italic} *-courier-medium-o-normal-*-14-*-iso8859-1
|
||
AddFont iso-8859-1 14 {bold italic} *-courier-bold-o-normal-*-14-*-iso8859-1
|
||
AddFont iso-8859-1 18 {} *-courier-medium-r-normal-*-18-*-iso8859-1
|
||
AddFont iso-8859-1 18 {bold} *-courier-bold-r-normal-*-18-*-iso8859-1
|
||
AddFont iso-8859-1 18 {italic} *-courier-medium-o-normal-*-18-*-iso8859-1
|
||
AddFont iso-8859-1 18 {bold italic} *-courier-bold-o-normal-*-18-*-iso8859-1
|
||
AddFont iso-8859-1 24 {} *-courier-medium-r-normal-*-24-*-iso8859-1
|
||
AddFont iso-8859-1 24 {bold} *-courier-bold-r-normal-*-24-*-iso8859-1
|
||
AddFont iso-8859-1 24 {italic} *-courier-medium-o-normal-*-24-*-iso8859-1
|
||
AddFont iso-8859-1 24 {bold italic} *-courier-bold-o-normal-*-24-*-iso8859-1
|
||
}
|
||
|
||
# InitCharsetAliases
|
||
#
|
||
# Initialize the aliases of charcter sets
|
||
#
|
||
# Arguments:
|
||
|
||
proc InitCharsetAliases {} {
|
||
global charsetAlias option
|
||
|
||
# These are predefined (remember to only use lowercase letters)
|
||
set charsetAlias(bar) iso-8859-1
|
||
|
||
# Read global files
|
||
foreach dir $option(global_config_path) {
|
||
if [file readable $dir/charsetAliases] {
|
||
source $dir/charsetAliases
|
||
}
|
||
}
|
||
# Read local modifications
|
||
if [file readable $option(postilion_dir)/charsetAliases] {
|
||
source $option(postilion_dir)/charsetAliases
|
||
}
|
||
}
|
||
|
||
proc InitImages {} {
|
||
global icons
|
||
|
||
foreach name [array names icons] {
|
||
if {[file readable $icons($name)]} {
|
||
image create photo $name -file $icons($name)
|
||
}
|
||
}
|
||
}
|