all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* bug#19663: 24.4: eww.el delete entry from history list
@ 2015-01-23 15:57 Boruch Baum
  2015-01-25  2:48 ` Lars Ingebrigtsen
  0 siblings, 1 reply; 6+ messages in thread
From: Boruch Baum @ 2015-01-23 15:57 UTC (permalink / raw
  To: 19663

[-- Attachment #1: Type: text/plain, Size: 1498 bytes --]

I found it desirable to be able to delete entries from the history list.

Following is the code that seems to work for me:

(defun eww-history-delete-entry ()
"Delete an entry from the eww history list"
  (interactive)
  (cond
    ((equal (buffer-name) "*eww history*")
      (setq
        current-point (point)
        current-line  (- (line-number-at-pos (point-max))
                         (line-number-at-pos)))
      (with-current-buffer "*eww*"
        (setq eww-history (append
                (butlast eww-history current-line)
                (last    eww-history (1- current-line))))
              eww-history-position
                (min eww-history-position (1- current-line))
        (eww-list-histories)
        (goto-char current-point)))
    ((equal (buffer-name) "*eww*")
      (setq
        current-entry (- (length eww-history)
                         eww-history-position)
        eww-history   (append
          (butlast eww-history current-entry)
          (last    eww-history (1- current-entry))))
      (when (eq current-entry 1)
        (setq eww-history-position (1- eww-history-position))\
)
      (eww-restore-history
        (elt eww-history eww-history-position))
      (when (get-buffer "*eww history*")
        (eww-list-histories)))
    (t
      (user-error "Current buffer is neither the eww buffer, \
nor the eww history buffer"))))


-- 
hkp://keys.gnupg.net
CA45 09B5 5351 7C11 A9D1  7286 0036 9E45 1595 8BC0



[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 819 bytes --]

^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2015-01-26  6:38 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2015-01-23 15:57 bug#19663: 24.4: eww.el delete entry from history list Boruch Baum
2015-01-25  2:48 ` Lars Ingebrigtsen
2015-01-25  7:15   ` Boruch Baum
2015-01-26  1:57     ` Lars Ingebrigtsen
2015-01-26  6:24       ` Boruch Baum
2015-01-26  6:38         ` Lars Ingebrigtsen

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.