From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id AK8hByA5zl56dgAA0tVLHw (envelope-from ) for ; Wed, 27 May 2020 09:55:44 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2 with LMTPS id wFHwAiA5zl58fgAAB5/wlQ (envelope-from ) for ; Wed, 27 May 2020 09:55:44 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 7494D94029E for ; Wed, 27 May 2020 09:55:43 +0000 (UTC) Received: from localhost ([::1]:39196 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jdsmj-0004ge-4K for larch@yhetil.org; Wed, 27 May 2020 05:55:41 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:48398) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1jdsmP-0004fA-BY for emacs-orgmode@gnu.org; Wed, 27 May 2020 05:55:21 -0400 Received: from [183.249.132.153] (port=1932 helo=localhost) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1jdsmN-00070I-CY for emacs-orgmode@gnu.org; Wed, 27 May 2020 05:55:21 -0400 Received: by localhost (Postfix, from userid 1000) id 66F532413D6; Wed, 27 May 2020 17:55:11 +0800 (HKT) User-agent: mu4e 1.4; emacs 28.0.50 From: stardiviner To: Org Mode Subject: [Feature] add a new org-attach dispatcher command to offline save web page Date: Wed, 27 May 2020 17:55:11 +0800 Message-ID: <87sgflu2gw.fsf@gmail.com> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" X-Host-Lookup-Failed: Reverse DNS lookup failed for 183.249.132.153 (deferred) Received-SPF: softfail client-ip=183.249.132.153; envelope-from=numbchild@gmail.com; helo=localhost X-detected-operating-system: by eggs.gnu.org: First seen = 2020/05/27 05:55:12 X-ACL-Warn: Detected OS = Linux 2.2.x-3.x [generic] [fuzzy] X-Spam_score_int: 53 X-Spam_score: 5.3 X-Spam_bar: +++++ X-Spam_report: (5.3 / 5.0 requ) BAYES_00=-1.9, DKIM_ADSP_CUSTOM_MED=0.001, FORGED_GMAIL_RCVD=1, FREEMAIL_FROM=0.001, FSL_HELO_NON_FQDN_1=0.001, HELO_LOCALHOST=3.828, NML_ADSP_CUSTOM_MED=0.9, RDNS_NONE=0.793, SPF_SOFTFAIL=0.665, URIBL_BLOCKED=0.001 autolearn=_AUTOLEARN X-Spam_action: reject X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: numbchild@gmail.com Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Scanner: scn0 Authentication-Results: aspmx1.migadu.com; dkim=none; dmarc=fail reason="SPF not aligned (relaxed), No valid DKIM" header.from=gmail.com (policy=none); spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Spam-Score: -0.51 X-TUID: w1HkyXsWV7d/ --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable I attached the patch. I think this feature will be helpful for use who archive web page data usua= lly like me. To be more portable, I also added an defcustom option for other external command. And use an if condition to detect whether external command available, else warning user. =2D-=20 [ stardiviner ] I try to make every word tell the meaning that I want to express. Blog: https://stardiviner.github.io/ IRC(freenode): stardiviner, Matrix: stardiviner GPG: F09F650D7D674819892591401B5DF1C95AE89AC3 =20=20=20=20=20=20 --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-org-attach.el-add-a-new-command-to-offline-save-web-.patch Content-Transfer-Encoding: quoted-printable From=20fcf78b5a5447ae81479e7839df001da659ede5e3 Mon Sep 17 00:00:00 2001 From: stardiviner Date: Wed, 27 May 2020 17:42:24 +0800 Subject: [PATCH] * org-attach.el: add a new command to offline save web page * lisp/org-attach.el (org-attach-url-offline): A new org-attach dispatcher command to offline save web page to a single file. * lisp/org-agenda.el (org-attach-url-offline-command): A customize option to specify external command for offline save web page. * lisp/org-attach.el (org-attach-offline-url-with-monolith): A command invoke external command "monolith" to offline save web page. =2D-- lisp/org-attach.el | 26 +++++++++++++++++++++++++- 1 file changed, 25 insertions(+), 1 deletion(-) diff --git a/lisp/org-attach.el b/lisp/org-attach.el index 57d1360fc..0d13e0da1 100644 =2D-- a/lisp/org-attach.el +++ b/lisp/org-attach.el @@ -204,6 +204,8 @@ (defcustom org-attach-commands "Attach a file using symbolic-link method.") ((?u ?\C-u) org-attach-url "Attach a file from URL (downloading it).") + ((?U) org-attach-url-offline + "Attach an offline version of web page URL (use monolith).") ((?b) org-attach-buffer "Select a buffer and attach its contents to the task.") ((?n ?\C-n) org-attach-new @@ -467,6 +469,27 @@ (defun org-attach-url (url) (let ((org-attach-method 'url)) (org-attach-attach url))) =20 +(defun org-attach-url-offline (url) + (interactive "MURL of the web page be offline to attach: \n") + (let ((org-attach-method 'offline)) + (org-attach-attach url))) + +(defcustom org-attach-url-offline-command (executable-find "monolith") + "The command used to offline save web page." + :type 'string + :safe #'stringp + :group 'org-attach) + +(defun org-attach-offline-url-with-monolith (url target-file) + "Save an offline archive of web page with monolith." + (if org-attach-url-offline-command + (make-process + :name "org-attach-offline" + :command (list org-attach-url-offline-command url "-o" target-file) + :sentinel (lambda (proc event) (message "org-attach-offline finishe= d!")) + :buffer "*org-attach-offline*") + (warn "You must have a command availble for offline save web page!\n S= et variable `org-attach-url-offline-command'."))) + (defun org-attach-buffer (buffer-name) "Attach BUFFER-NAME's contents to current outline node. BUFFER-NAME is a string. Signals a `file-already-exists' error @@ -504,7 +527,8 @@ (defun org-attach-attach (file &optional visit-dir meth= od) ((eq method 'cp) (copy-file file attach-file)) ((eq method 'ln) (add-name-to-file file attach-file)) ((eq method 'lns) (make-symbolic-link file attach-file)) =2D ((eq method 'url) (url-copy-file file attach-file))) + ((eq method 'url) (url-copy-file file attach-file)) + ((eq method 'offline) (org-attach-offline-url-with-monolith file at= tach-file))) (run-hook-with-args 'org-attach-after-change-hook attach-dir) (org-attach-tag) (cond ((eq org-attach-store-link-p 'attached) =2D-=20 2.26.2 --=-=-=-- --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQFIBAEBCAAyFiEE8J9lDX1nSBmJJZFAG13xyVromsMFAl7OOP8UHG51bWJjaGls ZEBnbWFpbC5jb20ACgkQG13xyVromsNVCAf/VbRwQBj6OXh/x7WCiXJk8WFlMOXb ppECaRiYgjl8Wse21dW5k6fI9zP9IEbR50YWWaQb9JAeMiQkFw32/eZF8VVuSvHD LGkC9FWahV4y//CxuzOKurkedvoGeqfeAJwG8xNLNEuRC2pjFLey/zYo5XIkErZp a41JKGm7HR0Mzw9JPk7BQk6d1iuYCpDbOT3/00YwC0XcFnF1sgsTa8801lZ7evak xKIX6Kspxgt2DjeSOFAmeYq1zFlfhgbz97tTiAhQrYb037zBsasBOwJ0uiMmwzRq 1XD7AsMYRZgKYyfY1KToZdus6ahSWgOFJffdvpveeYL4Lv+eyvSKibZ7lA== =n362 -----END PGP SIGNATURE----- --==-=-=--