home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / SLRN_CP / MACROS / TIN-ART.SL < prev    next >
Text File  |  1996-12-09  |  2KB  |  84 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. definekey ("tin_art_quit", "\e[D", "article");   %  left arrow
  47. definekey ("tin_art_quit", "\eOD", "article");
  48. definekey ("art_select_article", "\e[C", "article");   %  right arrow
  49. definekey ("art_select_article", "\eOC", "article");
  50.  
  51. define tin_space_key_cmd ()
  52. {
  53.    !if (is_article_visible ())
  54.      {
  55.     ERROR_BLOCK
  56.       {
  57.          _clear_error ();
  58.          header_bob ();
  59.       }
  60.     call ("pagedn");
  61.     return;
  62.      }
  63.    
  64.    call ("article_pagedn");
  65. }
  66. definekey ("tin_space_key_cmd", " ", "article");
  67.  
  68. define tin_art_catchup_quit ()
  69. {
  70.    call ("catchup_all");
  71.    % Provide visual feedback that catchup worked
  72.    update ();
  73.    art_quit ();
  74. }
  75.  
  76. define tin_art_catchup_next ()
  77. {
  78.    tin_art_catchup_quit ();
  79.    tin_group_next_unread ();
  80. }
  81. definekey ("tin_art_catchup_quit", "c", "article");
  82. definekey ("tin_art_catchup_next", "C", "article");
  83.  
  84.