From dbe422aba862b2f4ff204743be13e2d3fb255fa8 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 13 Jul 2015 22:08:11 +0200
Subject: emacs: Fill package heading in Info buffers.

* emacs/guix-info.el (guix-package-info-fill-heading): New variable.
  (guix-package-info-insert-heading): Fill heading if needed.

Co-authored-by: Alex Kost <alezost@gmail.com>
---
 emacs/guix-info.el | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/emacs/guix-info.el b/emacs/guix-info.el
index bb21024c0c..f17ce01ab6 100644
--- a/emacs/guix-info.el
+++ b/emacs/guix-info.el
@@ -1,6 +1,7 @@
 ;;; guix-info.el --- Info buffers for displaying entries   -*- lexical-binding: t -*-
 
-;; Copyright © 2014 Alex Kost <alezost@gmail.com>
+;; Copyright © 2014, 2015 Alex Kost <alezost@gmail.com>
+;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
 
 ;; This file is part of GNU Guix.
 
@@ -482,6 +483,12 @@ If nil, insert package in a default way.")
 (defvar guix-package-info-heading-params '(synopsis description)
   "List of parameters displayed in a heading along with name and version.")
 
+(defcustom guix-package-info-fill-heading t
+  "If nil, insert heading parameters in a raw form, without
+filling them to fit the window."
+  :type 'boolean
+  :group 'guix-package-info)
+
 (defun guix-package-info-insert-heading (entry)
   "Insert the heading for package ENTRY.
 Show package name, version, and `guix-package-info-heading-params'."
@@ -494,8 +501,12 @@ Show package name, version, and `guix-package-info-heading-params'."
                 (face (guix-get-symbol (symbol-name param)
                                        'info 'package)))
             (when val
-              (guix-format-insert val (and (facep face) face))
-              (insert "\n\n"))))
+              (let* ((col (min (window-width) fill-column))
+                     (val (if guix-package-info-fill-heading
+                              (guix-get-filled-string val col)
+                            val)))
+                (guix-format-insert val (and (facep face) face))
+                (insert "\n\n")))))
         guix-package-info-heading-params))
 
 (defun guix-package-info-insert-with-heading (entry)
-- 
cgit v1.2.3

dc9cd218dc089eb11ce1390a9db16849e957f8d'>gnu</a>/<a href='/guix/log/gnu/services?id=4dc9cd218dc089eb11ce1390a9db16849e957f8d'>services</a>/<a href='/guix/log/gnu/services/vpn.scm?id=4dc9cd218dc089eb11ce1390a9db16849e957f8d'>vpn.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/services/vpn.scm?id=4dc9cd218dc089eb11ce1390a9db16849e957f8d&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-09-09 12:24:12 +0200'>2023-09-09</span></td><td><a href='/guix/commit/gnu/services/vpn.scm?id=5e72bb5c67943fecf690190bdccbda2bf16d12b0'>services: vpn: Fix broken format string for wireguard dns.</a><span class='msg-avail'>...</span></td><td>Reily Siegel</td></tr>
<tr><td><span title='2023-07-21 11:58:45 -0400'>2023-07-21</span></td><td><a href='/guix/commit/gnu/services/vpn.scm?id=bdcf23cf69d47a1b576e70da63da08518329c0f5'>services: wireguard: Add a 'configuration' action.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-07-21 11:58:44 -0400'>2023-07-21</span></td><td><a href='/guix/commit/gnu/services/vpn.scm?id=d2385da87e9c5f93ffb8af246cd28a4c2e8fcc0f'>services: wireguard: Clean-up configuration file serializer.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>
<tr><td><span title='2023-07-21 11:58:44 -0400'>2023-07-21</span></td><td><a href='/guix/commit/gnu/services/vpn.scm?id=8d785c43bad05546cfe8e08a1bbe065a63215f9d'>services: wireguard: Implement a dynamic IP monitoring feature.</a><span class='msg-avail'>...</span></td><td>Maxim Cournoyer</td></tr>