From: Lars Ingebrigtsen Date: Thu, 4 Aug 2022 09:13:48 +0000 (+0200) Subject: Make url-about.el obsolete (bug#56885) X-Git-Tag: emacs-29.0.90~1447^2~474 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f3a33c90f0652363b1fd4c7870f95d9a02ae7e2;p=emacs.git Make url-about.el obsolete (bug#56885) --- diff --git a/lisp/obsolete/url-about.el b/lisp/obsolete/url-about.el new file mode 100644 index 00000000000..a50986d511a --- /dev/null +++ b/lisp/obsolete/url-about.el @@ -0,0 +1,103 @@ +;;; url-about.el --- Show internal URLs -*- lexical-binding: t; -*- + +;; Copyright (C) 2001-2022 Free Software Foundation, Inc. + +;; Keywords: comm, data, processes, hypermedia + +;; This file is part of GNU Emacs. +;; +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . + +;;; Commentary: + +;;; Code: + +(require 'url-util) +(require 'url-parse) + +(defun url-probe-protocols () + "Return a list of all potential URL schemes." + (or (get 'url-extension-protocols 'probed) + (mapc (lambda (s) (url-scheme-get-property s 'name)) + (or (get 'url-extension-protocols 'schemes) + (let ((schemes '("info" "man" "rlogin" "telnet" + "tn3270" "data" "snews"))) + (mapc (lambda (d) + (mapc (lambda (f) + (if (string-match "url-\$.*\$.el$" f) + (push (match-string 1 f) schemes))) + (directory-files d nil "\\`url-.*\\.el\\'"))) + (seq-filter #'file-exists-p load-path)) + (put 'url-extension-protocols 'schemes schemes) + schemes))))) + +(defvar url-scheme-registry) + +(defun url-about-protocols (_url) + (url-probe-protocols) + (insert "\n" + " \n" + " Supported Protocols\n" + " \n" + " \n" + "

Supported Protocols - URL package in Emacs " emacs-version "

\n" + " \n" + " \n" + " \n") + (mapc (lambda (k) + (if (string= k "proxy") + ;; Ignore the proxy setting... its magic! + nil + (insert " \n") + ;; The name of the protocol + (insert "

Protocol\n" + "	Properties\n" + "	Description\n" + "
" (or (url-scheme-get-property k 'name) k) "\n") + + ;; Now the properties. Currently just asynchronous + ;; status, default port number, and proxy status. + (insert "	" + (if (url-scheme-get-property k 'asynchronous-p) "As" "S") + "ynchronous \n" + (if (url-scheme-get-property k 'default-port) + (format "Default Port: %d \n" + (url-scheme-get-property k 'default-port)) + "") + (if (assoc k url-proxy-services) + (format "Proxy: %s \n" (assoc k url-proxy-services)) "")) + ;; Now the description... + (insert "	" + (or (url-scheme-get-property k 'description) "N/A")))) + (sort (let (x) (maphash (lambda (k _v) (push k x)) url-scheme-registry) x) + #'string-lessp)) + (insert "

\n" + " \n" + "\n")) + +(defun url-about (url) + "Show internal URLs." + (let* ((item (downcase (url-filename url))) + (func (intern (format "url-about-%s" item)))) + (if (fboundp func) + (progn + (set-buffer (generate-new-buffer " *about-data*")) + (insert "Content-type: text/plain\n\n") + (funcall func url) + (current-buffer)) + (error "URL does not know about `%s'" item)))) + +(provide 'url-about) + +;;; url-about.el ends here diff --git a/lisp/url/url-about.el b/lisp/url/url-about.el deleted file mode 100644 index a50986d511a..00000000000 --- a/lisp/url/url-about.el +++ /dev/null @@ -1,103 +0,0 @@ -;;; url-about.el --- Show internal URLs -*- lexical-binding: t; -*- - -;; Copyright (C) 2001-2022 Free Software Foundation, Inc. - -;; Keywords: comm, data, processes, hypermedia - -;; This file is part of GNU Emacs. -;; -;; GNU Emacs is free software: you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; GNU Emacs is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with GNU Emacs. If not, see . - -;;; Commentary: - -;;; Code: - -(require 'url-util) -(require 'url-parse) - -(defun url-probe-protocols () - "Return a list of all potential URL schemes." - (or (get 'url-extension-protocols 'probed) - (mapc (lambda (s) (url-scheme-get-property s 'name)) - (or (get 'url-extension-protocols 'schemes) - (let ((schemes '("info" "man" "rlogin" "telnet" - "tn3270" "data" "snews"))) - (mapc (lambda (d) - (mapc (lambda (f) - (if (string-match "url-\$.*\$.el$" f) - (push (match-string 1 f) schemes))) - (directory-files d nil "\\`url-.*\\.el\\'"))) - (seq-filter #'file-exists-p load-path)) - (put 'url-extension-protocols 'schemes schemes) - schemes))))) - -(defvar url-scheme-registry) - -(defun url-about-protocols (_url) - (url-probe-protocols) - (insert "\n" - " \n" - " Supported Protocols\n" - " \n" - " \n" - "

Supported Protocols - URL package in Emacs " emacs-version "

\n" - " \n" - " \n" - " \n") - (mapc (lambda (k) - (if (string= k "proxy") - ;; Ignore the proxy setting... its magic! - nil - (insert " \n") - ;; The name of the protocol - (insert "

Protocol\n" - "	Properties\n" - "	Description\n" - "
" (or (url-scheme-get-property k 'name) k) "\n") - - ;; Now the properties. Currently just asynchronous - ;; status, default port number, and proxy status. - (insert "	" - (if (url-scheme-get-property k 'asynchronous-p) "As" "S") - "ynchronous \n" - (if (url-scheme-get-property k 'default-port) - (format "Default Port: %d \n" - (url-scheme-get-property k 'default-port)) - "") - (if (assoc k url-proxy-services) - (format "Proxy: %s \n" (assoc k url-proxy-services)) "")) - ;; Now the description... - (insert "	" - (or (url-scheme-get-property k 'description) "N/A")))) - (sort (let (x) (maphash (lambda (k _v) (push k x)) url-scheme-registry) x) - #'string-lessp)) - (insert "

\n" - " \n" - "\n")) - -(defun url-about (url) - "Show internal URLs." - (let* ((item (downcase (url-filename url))) - (func (intern (format "url-about-%s" item)))) - (if (fboundp func) - (progn - (set-buffer (generate-new-buffer " *about-data*")) - (insert "Content-type: text/plain\n\n") - (funcall func url) - (current-buffer)) - (error "URL does not know about `%s'" item)))) - -(provide 'url-about) - -;;; url-about.el ends here