home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / SLRN0931 / MACROS / TIN-ART.SL < prev    next >
Text File  |  1997-02-23  |  2KB  |  91 lines
  1.  
  2. % Simple mappings
  3. definekey ("art_bob", "^R", "article");
  4. definekey ("art_eob", "$", "article");
  5.  
  6. define tin_art_next_unread_or_group ()
  7. {
  8.    if (get_header_flags () & HEADER_READ)
  9.      {
  10.     !if (header_next_unread ())
  11.       {
  12.          header_bob ();
  13.          if (get_header_flags () & HEADER_READ)
  14.            {
  15.           !if (header_next_unread ())
  16.             {
  17.                !if (is_article_visible ())
  18.              {
  19.                 art_quit ();
  20.                 tin_group_next_unread ();
  21.                 return;
  22.              }
  23.                
  24.                art_hide_article_window ();
  25.                return;
  26.             }
  27.            }
  28.       }
  29.      }
  30.    art_select_article ();
  31. }
  32. definekey ("tin_art_next_unread_or_group", "\t", "article");
  33.  
  34.  
  35. define tin_art_quit ()
  36. {
  37.    if (is_article_visible ())
  38.      {
  39.     art_hide_article_window ();
  40.     return;
  41.      }
  42.    
  43.    art_quit ();
  44. }
  45. definekey ("tin_art_quit", "q", "article");
  46. #ifndef OS2
  47. definekey ("tin_art_quit", "\e[D", "article");   %  left arrow
  48. definekey ("tin_art_quit", "\eOD", "article");
  49. definekey ("tin_art_quit", "^(kl)", "article");
  50. definekey ("art_select_article", "\e[C", "article");   %  right arrow
  51. definekey ("art_select_article", "\eOC", "article");
  52. definekey ("art_select_article", "^(kr)", "article");
  53. #else
  54. definekey ("tin_art_quit", "\xE0K", "article");   %  left arrow
  55. definekey ("art_select_article", "\xE0M", "article");   %  right arrow
  56. #endif
  57.  
  58. define tin_space_key_cmd ()
  59. {
  60.    !if (is_article_visible ())
  61.      {
  62.     ERROR_BLOCK
  63.       {
  64.          _clear_error ();
  65.          header_bob ();
  66.       }
  67.     call ("pagedn");
  68.     return;
  69.      }
  70.    
  71.    call ("article_pagedn");
  72. }
  73. definekey ("tin_space_key_cmd", " ", "article");
  74.  
  75. define tin_art_catchup_quit ()
  76. {
  77.    call ("catchup_all");
  78.    % Provide visual feedback that catchup worked
  79.    update ();
  80.    art_quit ();
  81. }
  82.  
  83. define tin_art_catchup_next ()
  84. {
  85.    tin_art_catchup_quit ();
  86.    tin_group_next_unread ();
  87. }
  88. definekey ("tin_art_catchup_quit", "c", "article");
  89. definekey ("tin_art_catchup_next", "C", "article");
  90.  
  91.