From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Alex Newsgroups: gmane.emacs.help Subject: Re: EWW func add url under point as bookmark Date: Fri, 15 Apr 2022 15:40:22 +0200 Message-ID: <87pmli1n3t.fsf@gnu.org> References: <87ilrb4gdu.fsf@gnu.org> Mime-Version: 1.0 Content-Type: text/plain Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="17399"; mail-complaints-to="usenet@ciao.gmane.io" To: Help GNU Emacs Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Fri Apr 15 15:48:46 2022 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1nfMJa-0004Gx-9T for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 15 Apr 2022 15:48:46 +0200 Original-Received: from localhost ([::1]:34858 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nfMJZ-0004xg-7T for geh-help-gnu-emacs@m.gmane-mx.org; Fri, 15 Apr 2022 09:48:45 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:55028) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nfMBY-0006Bt-CK for help-gnu-emacs@gnu.org; Fri, 15 Apr 2022 09:40:28 -0400 Original-Received: from mta763.solicitae.com ([89.35.150.78]:35516 helo=smtp.gnuhacker.org) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nfMBW-00032b-Bk for help-gnu-emacs@gnu.org; Fri, 15 Apr 2022 09:40:28 -0400 Original-Received: from cyberlab.gnu.org (localhost [127.0.0.1]) by smtp.gnuhacker.org (Postfix) with ESMTP id 23894600AEE for ; Fri, 15 Apr 2022 15:40:22 +0200 (CEST) In-Reply-To: <87ilrb4gdu.fsf@gnu.org> (Alex's message of "Thu, 14 Apr 2022 21:25:01 +0200") Received-SPF: none client-ip=89.35.150.78; envelope-from=project@gnuhacker.org; helo=smtp.gnuhacker.org X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, KHOP_HELO_FCRDNS=0.187, SPF_HELO_NONE=0.001, SPF_NONE=0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane-mx.org@gnu.org Original-Sender: "help-gnu-emacs" Xref: news.gmane.io gmane.emacs.help:136921 Archived-At: Yay! I get it! #+begin_src elisp ;; Copyright 2022 Alex ;; Under GPLv3-or-later License (defun eww-bookmark-add (url title) "Bookmark url with a title." (unless (stringp url) (user-error "invalid url string required")) (unless (stringp title) (user-error "invalid title string required")) (eww-read-bookmarks) (dolist (bookmark eww-bookmarks) (when (equal url (plist-get bookmark :url)) (user-error "Already bookmarked"))) (push (list :url url :title title :time (current-time-string)) eww-bookmarks) (eww-write-bookmarks) (message "Bookmarked %s (%s)" url title)) (defun eww-bookmark-url-under-point (title) "Bookmark url under point" (interactive (list (read-string "Bookmark title: "))) (let ((str-url (thing-at-point 'url))) (eww-bookmark-add str-url title))) ;; test here: ;; cursor on url and M-x eww-bookmark-url-under-point RET ;; http://www.gnuhacker.org #+end_src -- Alex Emacs Lover. FSF Member. Free/Libre Software supporter. stallmansupport.org - Disinformation succeeds because so many people care deeply about injustice but do not take the time to check the facts.