File: util.sl

package info (click to toggle)
slrn 1.0.3%2Bdfsg-3
  • links: PTS
  • area: main
  • in suites: buster
  • size: 6,412 kB
  • sloc: ansic: 39,852; sh: 3,777; perl: 467; makefile: 229; sed: 24
file content (70 lines) | stat: -rw-r--r-- 936 bytes parent folder | download | duplicates (13)
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70

define group_bob ()
{
   call ("bob");
}

define group_eob ()
{
   call ("eob");
}

define header_bob ()
{
   call ("header_bob");
}

define header_eob ()
{
   call ("header_eob");
}

define art_quit ()
{
   call ("quit");
}

define art_select_article ()
{
   !if (3 == is_article_visible ())
     call ("article_page_down");
}

define art_hide_article_window ()
{
   if (is_article_visible ())
     call ("hide_article");
}

define mark_spot ()
{
   call ("mark_spot");
}

define goto_spot ()
{
   call ("exchange_mark");   
}

define star_tag_header () 
{
   if (is_thread_collapsed ())
     {
	uncollapse_thread ();
	loop (thread_size () - 1)
	  {
	     () = header_down (1);
	     set_header_flags (get_header_flags () | HEADER_TAGGED);
	  }
	collapse_thread ();
     }
	
   set_header_flags (get_header_flags () | HEADER_TAGGED);
}

define star_untag_header () 
{
   set_header_flags (get_header_flags () & ~(HEADER_TAGGED));
}