From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp11.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id KNnrNahJs2KbZAEAbAwnHQ (envelope-from ) for ; Wed, 22 Jun 2022 18:56:08 +0200 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp11.migadu.com with LMTPS id 0HDjNahJs2LNDQEA9RJhRA (envelope-from ) for ; Wed, 22 Jun 2022 18:56:08 +0200 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 9941C3F216 for ; Wed, 22 Jun 2022 18:56:08 +0200 (CEST) Received: from localhost ([::1]:56124 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1o43eB-0007KY-F2 for larch@yhetil.org; Wed, 22 Jun 2022 12:56:07 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:37374) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1o43dl-0007Jk-Me for emacs-orgmode@gnu.org; Wed, 22 Jun 2022 12:55:41 -0400 Received: from ciao.gmane.io ([116.202.254.214]:33982) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1o43dZ-0004Jv-Bm for emacs-orgmode@gnu.org; Wed, 22 Jun 2022 12:55:41 -0400 Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1o43dU-0003ZY-Lm for emacs-orgmode@gnu.org; Wed, 22 Jun 2022 18:55:24 +0200 X-Injected-Via-Gmane: http://gmane.org/ To: emacs-orgmode@gnu.org From: Max Nikulin Subject: Re: [PATCH] New remote resource download policy Date: Wed, 22 Jun 2022 23:55:15 +0700 Message-ID: References: <87mteiq6ou.fsf@gmail.com> <87pmj1nh7v.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101 Thunderbird/91.9.1 Content-Language: en-US In-Reply-To: <87pmj1nh7v.fsf@gmail.com> Received-SPF: pass client-ip=116.202.254.214; envelope-from=geo-emacs-orgmode@m.gmane-mx.org; helo=ciao.gmane.io X-Spam_score_int: 28 X-Spam_score: 2.8 X-Spam_bar: ++ X-Spam_report: (2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_ADSP_CUSTOM_MED=0.001, FORGED_GMAIL_RCVD=1, FORGED_MUA_MOZILLA=2.309, FREEMAIL_FORGED_FROMDOMAIN=0.249, FREEMAIL_FROM=0.001, HEADER_FROM_DIFFERENT_DOMAINS=0.249, NICE_REPLY_A=-0.001, NML_ADSP_CUSTOM_MED=0.9, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN X-Migadu-To: larch@yhetil.org X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1655916968; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references:list-id:list-help: list-unsubscribe:list-subscribe:list-post; bh=qlP4sonFjYTiRX1u76b/Dc+WlhD5hkCYPseXnhD+e5Y=; b=XjzZlML6948WL5brb9ZneORRkOLT3zS3/ggwDZu5SQp9nWOAYyMIoB+6zXS0GNxBQDbLii qV9DIs+hWf3L9Ye/wnKyMvxvPwLTl/VA7K+TnmZ2GemYeDWv1bNCkdpmdb8UqQtqOCoDwV 9U3+ZlagWkwcRnu3HNsWE1K4F5gQuaDIflvqlOZXTxRd9Cz7+/qW6kwo25d8mSocqe5bRN skX0yA5NzRH7D7+QVhPEa1WhQT2a7wTtUQt4SaLawdlAqE28SoaCLv/EfOsOYBgxl3L5x8 CeBpOFHhyL/3cI5FB5xAzeh6RYli9TqwcULxA3IVg2/mXIgWBxAtDzsl3wGkSQ== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1655916968; a=rsa-sha256; cv=none; b=qZfM+wXKYAE4BsPjFw8/3euk1kVmN+NmjMYtMXOgh3un90oXbpnB60WOUaYri4Q0YsonNj XoMtNziCdeIExTa04nOVHYuOgRZgL4BTMCxtinrliNazuJmAXZaig36dSGKmpwVHEOcaR2 Jt5nsgLJoe1038p2jleN9L0sDHqjjzwxA9KmprUT20dh85VL792mZ5w6bAgVmZIQo4KHNj Y7BB4Lpy+sg+LOl9h07WfvCdGM/z5bNNjv+Qlav7rC1lTDNBnKbzFL7YhVmo8PVDyWI4l+ KC1CNV+gw9OE5PmtBE+2rzwsnxV6gglP0GHGvXEkDofStz8gpbR0r7W3uiq00Q== ARC-Authentication-Results: i=1; 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+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" X-Migadu-Spam-Score: 2.24 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+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" X-Migadu-Queue-Id: 9941C3F216 X-Spam-Score: 2.24 X-Migadu-Scanner: scn0.migadu.com X-TUID: vEDaChYXJn+2 On 22/06/2022 17:01, Timothy wrote: > >>> +(defun org–confirm-resource-safe (uri) >>> + “Ask the user if URI should be considered safe, returning non-nil if so.” >>> + (unless noninteractive >>> + (let ((buf (get-buffer-create “*Org Remote Resource*”))) >> >> I see your intention to add something fancy to the dialog. May `org-mks’ be >> reused instead to avoid proliferation variants of rather similar UI code? > > Well, the thing here is that I’m explicitly trying to mimic the > file-local-variable dialog, and since a general form isn’t exposed by Emacs, a > little bit of proliferation seems like the best option to me. From my point of view the result is rather close (prompt should be adjusted): (let ((uri "https://orgmode.org")) (org-mks nil (format "An org-mode document would like to download %s, which is not considered safe. Do you want to download this?" (propertize uri 'face '(:inherit org-link :weight normal))) nil ; prompt `((,(propertize "!" 'face 'success) "download this resource, and permanantly mark it as safe.") (,(propertize "y" 'face 'warning) "to download this resource, just this once.") (,(propertize "n" 'face 'error) "skip this resource."))))