/[stamp]/stamp/config.lisp
ViewVC logotype

Contents of /stamp/config.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Wed Dec 5 12:18:52 2007 UTC (6 years, 4 months ago) by rstrandh
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +2 -0 lines
Added declaim with a debug level of 3 for better source tracking.
1 (in-package :stamp-gui)
2
3 (declaim (optimize (debug 3)))
4
5 ;; Size of minibuffer's pane
6 ;; width
7 (defparameter *width-mbp* 900)
8 ;; max width
9 (defparameter *width-mbp-max* 900)
10 ;; min width
11 (defparameter *width-mbp-min* 900)
12 ;; height
13 (defparameter *height-mbp* 20)
14 ;; max height
15 (defparameter *height-mbp-max* 20)
16 ;; min height
17 (defparameter *height-mbp-min* 20)
18
19 ;; Size of informations' pane
20 (defparameter *height-ip* 20)
21 ;; max height
22 (defparameter *height-ip-max* 20)
23 ;; min height
24 (defparameter *height-ip-min* 20)
25
26
27 ;; Size of filters' pane
28 ;; width
29 (defparameter *width-fp* 150)
30 ;; max width
31 (defparameter *width-fp-max* 350)
32 ;; min width
33 (defparameter *width-fp-min* 350)
34
35
36 ;; Size of scroll's pane
37 ;; width
38 (defparameter *width-sp* 150)
39 ;; max width
40 (defparameter *width-sp-max* 150)
41 ;; min width
42 (defparameter *width-sp-min* 150)
43
44
45 ;; Size of headers' pane
46 ;; width
47 (defparameter *width-hp* 800)
48 ;; max width
49 (defparameter *width-hp-max* 800)
50 ;; min width
51 (defparameter *width-hp-min* 800)
52 ;; height
53 (defparameter *height-hp* 450)
54 ;; max height
55 (defparameter *height-hp-max* 450)
56 ;; min height
57 (defparameter *height-hp-min* 450)
58
59
60 ;; Size of messages' pane
61 ;; height
62 (defparameter *height-mp* 450)
63 ;; max height
64 (defparameter *height-mp-max* 450)
65 ;; min height
66 (defparameter *height-mp-min* 450)
67
68 ;; default filter
69 (defparameter *default-filter* "unread")
70
71 ;; default mail directory
72 (defparameter *mail-folder*
73 (concatenate 'string
74 (namestring (user-homedir-pathname)) "Mail/inbox/"))
75
76 ;; Function for update panes' size
77
78 (defun set-size-mbp (h_mbp w_mbp)
79 "Resize of the minibuffer's pane"
80 (if (< w_mbp *width-mbp-min*)
81 (setq *width-mbp* *width-mbp-min*)
82 (if (> w_mbp *width-mbp-max*)
83 (setq *width-mbp* *width-mbp-max*)
84 (setq *width-mbp* w_mbp)))
85 (if (< h_mbp *height-mbp-min*)
86 (setq *height-mbp* *height-mbp-min*)
87 (if (> h_mbp *height-mbp-max*)
88 (setq *height-mbp* *height-mbp-max*)
89 (setq *height-mbp* h_mbp))))
90
91 (defun set-size-height-ip (h_ip)
92 "Resize of the information's pane"
93 (if (< h_ip *height-ip-min*)
94 (setq *height-ip* *height-ip-min*)
95 (if (> h_ip *height-ip-max*)
96 (setq *height-ip* *height-ip-max*)
97 (setq *height-ip* h_ip))))
98
99 (defun set-size-width-fp (w_fp)
100 "Resize of the filters' pane"
101 (if (< w_fp *width-fp-min*)
102 (setq *width-fp* *width-fp-min*)
103 (if (> w_fp *width-fp-max*)
104 (setq *width-fp* *width-fp-max*)
105 (setq *width-fp* w_fp))))
106
107 (defun set-size-width-sp (w_sp)
108 "Resize of the scroll's pane"
109 (if (< w_sp *width-sp-min*)
110 (setq *width-sp* *width-sp-min*)
111 (if (> w_sp *width-sp-max*)
112 (setq *width-sp* *width-sp-max*)
113 (setq *width-sp* w_sp))))
114
115 (defun set-size-hp (w_hp h_hp)
116 "Resize of the header's pane"
117 (if (< w_hp *width-hp-min*)
118 (setq *width-hp* *width-hp-min*)
119 (if (> w_hp *width-hp-max*)
120 (setq *width-hp* *width-hp-max*)
121 (setq *width-hp* w_hp)))
122 (if (< h_hp *height-hp-min*)
123 (setq *height-hp* *height-hp-min*)
124 (if (> h_hp *height-hp-max*)
125 (setq *height-hp* *height-hp-max*)
126 (setq *height-hp* h_hp))))
127
128 (defun set-size-height-mp (h_mp)
129 "Resize of the message's pane"
130 (if (< h_mp *height-mp-min*)
131 (setq *height-mp* *height-mp-min*)
132 (if (> h_mp *height-mp-max*)
133 (setq *height-mp* *height-mp-max*)
134 (setq *height-mp* h_mp))))
135
136 ;; Function for update the default filter
137 (defun set-default-filter (filter)
138 "Redifine the default filter"
139 (loop for f in (load-names)
140 when (equal filter (string-downcase f))
141 do (setf *default-filter* filter)))
142
143 ;; Function for update the mail directory
144 (defun set-mail-folder (dir)
145 "Redifine the pathname of the mail folder"
146 (setf *mail-folder* (concatenate 'string
147 (namestring (user-homedir-pathname)) dir)))

  ViewVC Help
Powered by ViewVC 1.1.5