[elpa] externals/lentic c744f3d3be 321/333: Shorten maximum line length in orgel

[ELPA Syncer]

branch: externals/lentic
commit c744f3d3be20ce2a9f25890db2b4500438dfa547
Author: Phillip Lord <phillip.lord@russet.org.uk>
Commit: Phillip Lord <phillip.lord@russet.org.uk>

    Shorten maximum line length in orgel
    
    Allowing the org view of orgel files to be 70 characters long means that
    these lines are overlong in the el view. Hence, we limit the line length
    to 67 characters.
---
 lentic-org.el | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lentic-org.el b/lentic-org.el
index 7c52dfd9fd..c8c5d9f411 100644
--- a/lentic-org.el
+++ b/lentic-org.el
@@ -407,13 +407,19 @@ into
 ;; shut byte compiler up and define var for setq-local
 (defvar org-archive-default-command)
 
-(defun lentic-orgel-org-init-default-hook ()
+(defun lentic-orgel-org-init-default-hook (conf)
   ;; Better to open all trees in lentic so that both buffers appears the same
   ;; size.
   (show-all)
   ;; Archiving very easy to and almost always a disaster when it removes an
   ;; entire tree from the buffer.
   (require 'org-archive)
+  ;; shorten the fill column by 3, so that the emacs-lisp buffer is the
+  ;; correct width.
+  (set-fill-column
+   (with-current-buffer
+       (lentic-that conf)
+     (- fill-column 3)))
   (setq-local org-archive-default-command
               (let ((old-archive
                      org-archive-default-command))
@@ -438,7 +444,7 @@ into
          (call-next-method conf)))
     (with-current-buffer
         buf
-      (run-hooks 'lentic-orgel-org-init-hook))
+      (run-hook-with-args 'lentic-orgel-org-init-hook conf))
     buf))
 
 (defmethod lentic-clone