shithub: plan9front

Download patch

ref: af95aa431d6e511355a6eb953ab7845f94c0e2d7
parent: 09b0eb0d1ac7a66569263d2c48aea96e524ccebe
author: Fulton Browne <git@fulton.software>
date: Fri Jun 11 19:26:50 EDT 2021

Remove ap(1)
Cool script - does not work.

--- a/rc/bin/ap	Tue Jun  8 16:13:57 2021
+++ /dev/null	Sun Oct 31 09:33:26 2021
@@ -1,36 +0,0 @@
-#!/bin/rc
-#
-#	get AP news headline list or the given story
-#
-
-wire='http://www.newsday.com/news/nationworld/wire'
-if ( ~ $#* 0 )
-	hget $wire | #tee /tmp/ap.$pid |
-		sed -n '/<h1>AP Top News/,/AP News Wire/p' |
-		htmlfmt -a -w 100 |
-		sed -n '
-			/^• / {
-				N
-				s/^• / /g
-				s/\n/ /g
-				s/\[\/news\/nationworld\/wire\//|/
-				s/sns-ap-//
-				s/\.story.*$//
-				p
-		}' |
-		awk -F '|' '
-			{
-			s = "";
-			for (i = 1; i < NF; i++)
-				s = s " " $i;
-			printf("ap %-40s # %s\n", $NF, s);
-		}'
-
-if not
-	hget $wire/sns-ap-^$1^.story |
-		htmlfmt |
-		sed '
-			1,/^AP Top News$/d
-			/^\* __$/,$d
-			/^Subscribe to Newsday home delivery/,$d
-		' 
--- a/sys/man/1/ap	Tue Jun  8 16:13:57 2021
+++ /dev/null	Sun Oct 31 09:33:26 2021
@@ -1,16 +0,0 @@
-.TH AP 1
-.SH NAME
-ap \- fetch Associated Press news articles
-.SH SYNOPSIS
-.B ap
-[
-.BI article-name
-]
-.SH DESCRIPTION
-.I ap
-fetches Associated Press news articles from http://www.newsday.com.
-Without any arguments it provides a two column list of article keys and descriptions.
-When invoked with an article key it fetches that article.
-.PP
-.SH SOURCE
-.B /rc/bin/ap