/usr/share/jed/jed-extra/boxquote.sl is in jed-extra 2.5.7-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | % -*- SLang -*-
% $Id: boxquote.sl,v 1.1 2009/01/30 06:56:42 milde Exp $
% Copyright (c) Philipp Grau
% Released under the terms of the GNU GPL (version 2 or later).
% boxquote.sl
%
% Inspired by boxquote.el for emacs
% Stolen code shamelessly from mail_mode.sl
% by Thomas Roessler <roessler@guug.de>
%
% First version on 13.03.2002
% Philipp Grau <phgrau@zedat.fu-berlin.de>
%
% Improvements by Paul Boekholt <paul@boekholt.com>
% Currently there are tree usefull functions:
% boxquote_insert_file: inserts a file in boxquotes
% boxquote_region: boxquotes a region
% boxquote_region_with_comment(); boxquotes a region with a comment
%
% ToDo:
% - make boxes cutomizable
% - improve some things
% - triming of the filename?
% for cut&paste insertions?
% - write a deboxquote
% - fix bugs
% - ...
% Usage: put something like the next line in your .jedrc
% () = evalfile("~/share/slang/boxquote.sl");
%
% or use
% _autoload("boxquote_region", "boxquote"
% "boxquote_region_with_comment", "boxquote"
% "boxquote_insert_file", "boxquote",
% 3);
%
%
% And the you can do something like M-x boxquote_insert_file <RET>
% An you will be asked for a file name.
% Or mark a region and call M-x boxquote_region <RET>
% _debug_info = 1;
%%%%% PROTOTYPES
define boxquote(name);
define boxquote_buffer(ntags);
public define boxquote_region();
public define boxquote_region_with_comment();
define boxquote_region_with_comment_jump();
public define boxquote_insert_file();
%%%%%% real stuff
define boxquote_region()
{
boxquote("");
}
define boxquote_region_with_comment()
{
variable comment =
read_mini ("Comment:", "","");
boxquote(comment);
}
define boxquote_region_with_comment_jump()
{
variable comment =
read_mini ("Comment:", "","");
boxquote(" ");
}
define boxquote_insert_file()
{
% insert_file();
variable file =
read_with_completion ("File:", Null_String, Null_String, 'f');
push_spot ();
push_mark();
() = insert_file (file);
boxquote(file);
pop_spot ();
}
define boxquote(name)
{
% vmessage("Name=%s",name);
!if (bolp) go_down_1;
push_spot();
narrow();
bob();
insert(",----");
if (name != "")
{
insert("[ ");
insert(name);
insert(" ]---");
}
insert("\n");
boxquote_buffer(1);
eob();
bol();
if (what_char () == '|')
{
del ();del();
insert ("`----\n");
}
widen();
pop_spot();
down(1);
% eol(); insert("\n");
}
define boxquote_buffer(ntags)
{
variable tags;
push_spot();
% bob();
tags = "";
loop (ntags) tags = strcat (tags, "| ");
do
{
insert (tags);
}
while (down_1 ());
% up(1);
pop_spot();
}
% So M-x finds the functions
$0 = _stkdepth;
. "boxquote_insert_file" "boxquote_region" "boxquote_region_with_comment"
_add_completion(_stkdepth - $0);
|