1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
## This script sets the background color of .adb files and .ads files
## automatically when they are loaded.
## It demonstrates the use of hooks, and the setting of preferences in GPS
import GPS
def set_bg_color (hook_name, file):
name = file.name()
if name [len(name) - 4 :] == ".adb":
GPS.Editor.set_background_color (file.name(), GPS.Preference ("custom-adb-file-color").get())
elif name [len(name) - 4 :] == ".ads":
GPS.Editor.set_background_color (file.name(), GPS.Preference ("custom-ads-file-color").get())
GPS.parse_xml ("""
<preference name="custom-adb-file-color"
label="Background color for .adb files"
page="Editor:Fonts & Colors"
default="yellow"
type="color" />
<preference name="custom-ads-file-color"
label="Background color for .ads files"
page="Editor:Fonts & Colors"
default="red"
type="color" />
""")
GPS.Hook ("file_edited").add (set_bg_color)
|
