summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2024-03-12 00:56:47 +0000
committerjao <jao@gnu.org>2024-03-12 00:58:26 +0000
commit58b549e729ede1017726c6efc0d94ae2a97a28e8 (patch)
tree96cbde13fea7116d3e6b1550bb435d6fca69aa7d
parenta3a3c31a41b7b86ce2e4f6b22a8e5abe086dfdf2 (diff)
downloadelibs-58b549e729ede1017726c6efc0d94ae2a97a28e8.tar.gz
elibs-58b549e729ede1017726c6efc0d94ae2a97a28e8.tar.bz2
three columns for eww workspace
-rw-r--r--custom/jao-custom-eww.el5
-rw-r--r--lib/eos/jao-afio.el14
2 files changed, 12 insertions, 7 deletions
diff --git a/custom/jao-custom-eww.el b/custom/jao-custom-eww.el
index 4dcb1bc..13dd223 100644
--- a/custom/jao-custom-eww.el
+++ b/custom/jao-custom-eww.el
@@ -23,7 +23,8 @@
;;; multipart html renderer
(defun jao-shr-html-renderer (handle)
(let ((fill-column nil)
- (shr-width fill-column))
+ (shr-width nil)
+ (shr-max-width 160))
(mm-shr handle)))
(setq mm-text-html-renderer #'jao-shr-html-renderer)
@@ -118,7 +119,7 @@
:custom ((shr-width nil)
(shr-use-colors t)
(shr-use-fonts nil)
- (shr-max-width 130)
+ (shr-max-width 80)
(shr-blocked-images nil)
(shr-inhibit-images t)
(shr-max-image-proportion 0.8)
diff --git a/lib/eos/jao-afio.el b/lib/eos/jao-afio.el
index 6a4b9c5..32d43b2 100644
--- a/lib/eos/jao-afio.el
+++ b/lib/eos/jao-afio.el
@@ -1,6 +1,6 @@
;;; jao-afio.el --- workspaces in just one frame -*- lexical-binding: t; -*-
-;; Copyright (C) 2020, 2021, 2022 jao
+;; Copyright (C) 2020, 2021, 2022, 2024 jao
;; Author: jao <mail@jao.io>
;; Keywords: frames
@@ -51,7 +51,8 @@
;;; utilities
(defun jao-afio-trisect (&optional force)
(interactive)
- (let ((fw (frame-width)))
+ (let ((fw (frame-width))
+ (display-buffer-alist nil))
(cond ((or force (>= fw 240))
(let ((b (current-buffer)))
(delete-other-windows)
@@ -105,14 +106,17 @@
(require 'jao-eww-session)
(if (< (frame-width) 160)
(if jao-afio-use-w3m (w3m) (jao-afio--open-eww-session))
- (delete-other-windows)
- (split-window-right)
(if jao-afio-use-w3m
- (w3m)
+ (progn (delete-other-windows)
+ (split-window-right)
+ (w3m))
+ (jao-afio-trisect)
(jao-afio--open-eww-session)
(let ((b (current-buffer)))
(other-window 1)
(switch-to-buffer (car (jao-eww-session-eww-buffers b)))
+ (other-window 1)
+ (switch-to-buffer (car (jao-eww-session-eww-buffers b)))
(other-window 1)))))
;;;###autoload