add Gandi zone info input + sync br/lorien home files

- configure lsp-ui-doc
- separate multiple cursor section
- Makefile-mode: Change fill-column to high, to prevent stupid indent
- Fix c-mode "/*" extra space on <return>

README.md

@@ -1,8 +1,11 @@
-### Some GNU/Linux tools, for fun...
+### Some personal GNU/Linux tools.
 
 #### bash
 
 - **trans.sh**: a [linguee.com](https://linguee.com) based command-line translator.
 - **sync.sh**: a rsync/ssh backup tool.
+    - **sync-view.sh**: view ~sync.sh~ file backups versions.
     - **sync-conf-example.sh**: configuration example.
-- **dup-live-disk.sh**: duplicate (possibly live) disk partitions.
+- **dup-live-disk.sh**: duplicate (**possibly live**) disk partitions.
+- **gen-password.sh**: a password generator.
+- **base.sh**: bases 2/8/10/16 conversions.

bash/README.md

@@ -1,11 +1,10 @@
-### Some GNU/Linux tools, for fun...
-
-
-#### bash
+### Some bash scripts, that I needed at some time...
 
 - [**trans.sh**](trans.sh): a [linguee.com](https://linguee.com) based command-line translator.
 - [**sync.sh**](sync.sh): a rsync/ssh backup tool.
     - [**sync-conf-example.sh**](share/sync/sync-conf-example.sh): configuration example.
+    - [**sync-view.sh**](sync-view.sh): view `sync.sh` file backups versions.
 - [**dup-live-disk.sh**](dup-live-disk.sh): duplicate (possibly live) disk partitions.
 - [**gen-password.sh**](gen-password.sh): a password generator
     - [**share/gen-password**](share/gen-password): [diceware](https://en.wikipedia.org/wiki/Diceware)-like word lists.
+- [**base**](base.sh): bases 2/8/10/16 conversions.

bash/base.sh

@@ -0,0 +1,324 @@
+#!/usr/bin/env bash
+#
+# base.sh - convert decimal numbers from/to base 2, 8, 10 and 16.
+#
+# (C) Bruno Raoult ("br"), 2024
+# Licensed under the GNU General Public License v3.0 or later.
+# Some rights reserved. See COPYING.
+#
+# You should have received a copy of the GNU General Public License along with this
+# program. If not, see <https://www.gnu.org/licenses/gpl-3.0-standalone.html>.
+#
+# SPDX-License-Identifier: GPL-3.0-or-later <https://spdx.org/licenses/GPL-3.0-or-later.html>
+#
+
+CMDNAME=${0##*/}                                  # script name
+
+# some default values  (blocks separator padchar)
+# Attention: For output base 10, obase is 1
+declare -i ibase=0 obase=0 padding=0 prefix=1 ogroup=0 intbits
+
+# find out int size (bits) - suppose 2-complement, and 8 bits char
+printf -v _b "%x" -1
+(( intbits = ${#_b} * 4 ))
+
+declare -rA _bases=(                              # -f/-b accepted values
+    [2]=2   [b]=2  [B]=2
+    [8]=8   [o]=8  [O]=8
+    [10]=10 [d]=10 [D]=10
+    [16]=16 [h]=16 [H]=16
+    [a]=-1 [g]=-1
+)
+declare -A _pad=(                                 # group separator
+    [2]=" " [8]=" " [10]="," [16]=" "
+)
+declare -rA _ogroup=(                             # group size
+    [2]=8 [8]=3 [10]=3 [16]=4
+)
+declare -rA _oprefix=(                            # output prefix
+    [2]="2#" [8]="0" [10]="" [16]="0x"
+)
+
+usage() {
+    printf "usage: %s [OPTIONS] [NUMBER]...\n" "$CMDNAME"
+    printf  "Use '%s -h' for more help\n" "$CMDNAME"
+}
+
+help() {
+    cat << _EOF
+usage: $CMDNAME [OPTIONS] [NUMBER]...
+  -f, --from=BASE      input base, see BASE below. Default is "g"
+  -t, --to=BASE        output base, see BASE below. Default is "a"
+  -b, -o, -d, -x       equivalent to -t2, -t8, -t10, -t16"
+  -g, --group=[SEP]    group output (see OUTPUT below)
+  -p, --padding        0-pad output on block boundary (implies -g)
+  -n, --noprefix       remove base prefixes in output
+  -h, --help           this help
+  --                   end of options
+
+$CMDNAME output the NUMBERS arguments in different bases. If no NUMBER is
+given, standard input will be used.
+
+BASE
+  2, b, B              binary
+  8, o, O, 0           octal
+  10, d, D             decimal
+  16, h, H, 0x         hexadecimal
+  a, g                 all/any: Default, guess format for '-f', output all
+                       bases for '-t'
+
+INPUT NUMBER
+  If input base is not specified, some prefixes are supported.
+  'b' or '2/' for binary, '0', 'o' or '8/' for octal, '0x', 'x' or
+  '16/' for hexadecimal, and 'd' or '10/' for decimal.
+  If no above prefix is found, decimal is assumed.
+  Decimal input may be signed or unsigned, with limits imposed by current
+  Bash (here: $intbits bits).
+
+OUTPUT
+  Decimal output is always unsigned.
+  By default, the input number is shown converted in the 4 supported
+  bases (16, 10, 8, 2, in this order), separated by one tab character.
+  Without '-n' option, all output numbers but decimal will be prefixed:
+  '2#' for binary, '0' for octal, '0x' for hexadecimal, making them
+  usable for input in some otilities such as bash(1).]
+  With '-g' option, number digits will be grouped by 3 (octal,
+  decimal), 4 (hexadecimal), or 8 (binary). If no SEP character is given,
+  the separator will be ',' (comma) for decimal, space otherwise.
+  This option may be useless for default output, with multiple numbers
+  on one line.
+  The '-p' option add 0 padding up to the base grouping boundary.
+
+EXAMPLES
+  Converting number in hexadecimal, decimal, octal, and binary, with or without
+  prefixes. Here, '\t' separator is shown as space:
+  $ $CMDNAME 0
+  0x0 0 0 2#0
+
+  $ $CMDNAME 123456
+  0x1e240 123456 0361100 2#11110001001000000
+
+  $ $CMDNAME -n 2/100
+  4 4 4 100
+
+  $ $CMDNAME -n 0x1e240
+  1e240	123456	361100	11110001001000000
+
+  Binary output, no prefix, grouped output:
+  $ $CMDNAME -bng 0x1e240
+  1 11100010 01000000
+
+  Negative input (decimal only):
+  $ $CMDNAME -x -- -1
+  0xffffffffffffffff
+
+  Input base indication, left padding binary output, no prefix:
+  $ $CMDNAME -nbp -f8 361100
+  00000001 11100010 01000000
+
+  Set group separator. Note that the separator *must* immediately follow the '-g'
+  option, without spaces:
+  $ $CMDNAME -nxg: 123456
+  1:e240
+
+  Long options, with separator and padding:
+  $ $CMDNAME --to=16 --noprefix --padding --group=: 12345
+  0001:e240
+
+TODO
+  Add option for signed/unsigned integer output.
+  Remove useless octal output ?
+_EOF
+}
+
+zero_pad() {
+    local n="$1" str="$2"
+
+    printf "%0.*d%s" $(( n - ${#str} % n))  0 "$str"
+}
+
+split() {
+    local base="$1" str="$2"
+    local res="$str" sep=${_pad[$base]}
+    local -i n=${_ogroup[$base]}
+
+    (( padding )) && str=$(zero_pad "${_ogroup[$base]}" "$str")
+    if (( ogroup )); then
+        res=""
+        while (( ${#str} )); do
+            if (( ${#str} <= n )); then           # finished
+                res="${str}${res:+$sep$res}"
+                break
+            fi
+            res="${str: -n}${res:+$sep$res}"
+            str="${str:0:-n}"
+        done
+    fi
+    printf "%s" "$res"
+}
+
+bin() {
+    local str=""
+    local -i n dec="$1"
+
+    # take care of negative numbers, as >> operator keeps the sign.
+    # 'intbits' is size of integer in bits in current shell.
+    for (( n = 0 ; dec && (n < intbits); n++ )); do
+        str="$(( dec & 1 ))$str"
+        (( dec >>= 1 ))
+    done
+    printf "%s\n" "${str:-0}"
+}
+
+hex() {
+    printf "%lx" "$1"
+}
+
+dec() {
+    printf "%lu" "$1"
+}
+
+oct() {
+    printf "%lo" "$1"
+}
+
+declare -a args=()
+
+parse_opts() {
+    # short and long options
+    local sopts="f:t:bodxg::pnh"
+    local lopts="from:,to:,group::,padding,noprefix,help"
+    # set by options
+    local tmp=""
+
+    if ! tmp=$(getopt -o "$sopts" -l "$lopts" -n "$CMDNAME" -- "$@"); then
+        usage
+        exit 1
+    fi
+    eval set -- "$tmp"
+
+    while true; do
+        case "$1" in
+            "-f"|"--from")
+                ibase=${_bases[$2]}
+                if (( ! ibase )); then
+                    usage
+                    exit 1
+                fi
+                shift
+                ;;
+            "-t"|"--to")
+                obase=${_bases[$2]}
+                if (( ! obase )); then
+                    usage
+                    exit 1
+                fi
+                shift
+                ;;
+            "-b") obase=2 ;;
+            "-o") obase=8 ;;
+            "-d") obase=1 ;;
+            "-x") obase=16 ;;
+            "-g"|"--group")
+                ogroup=1
+                if [[ -n "$2" ]]; then
+                    for i in 2 8 10 16; do _pad["$i"]="$2"; done
+                fi
+                shift
+                ;;
+            "-p"|"--padding") ogroup=1; padding=1 ;;
+            "-n"|"--noprefix") prefix=0 ;;
+            "-h"|"--help") help ; exit 0 ;;
+            "--") shift; break ;;
+            *) usage; echo "Internal error [$1]!" >&2; exit 1 ;;
+        esac
+        shift
+    done
+    # next are numbers to convert, if any
+    if (($# > 0)); then
+        args=("$@")
+    fi
+}
+
+addprefix() {
+    local base="$1" number="$2" _prefix=""
+    if (( prefix )); then
+        if [[ $base != 8 || $number != "0" ]]; then
+            _prefix="${_oprefix[$base]}"
+        fi
+    fi
+    printf "%s%s" "$_prefix" "$number"
+}
+
+stripprefix() {
+    [[ $1 =~ ^(0x|b|o|d|x|.*/) ]]
+    printf "%s" "${1#"${BASH_REMATCH[1]}"}"
+}
+
+guessbase() {
+    local input="$1"
+    local -i base=0
+    if [[ $input =~ ^(b|2/) ]]; then
+        base=2
+    elif [[ $input =~ ^(0x|x|16/) ]]; then
+        base=16
+    elif [[ $input =~ ^(0|o|8/) ]]; then
+        base=8
+    elif [[ $input =~ ^(d|10/) ]]; then
+        base=10
+    fi
+    return $(( base ? base : 10 ))
+}
+
+doit() {
+    local number="$2" multi="" val inum
+    local -i base=$1 decval _obase=$obase
+    if (( base <= 0 )); then
+        guessbase "$number"
+        base=$?
+    fi
+
+    inum=$(stripprefix "$number")
+    # convert input value to decimal
+    (( base == 10 )) && (( decval = inum ))
+    (( base != 10 )) && (( decval = "$base#$inum" ))
+
+    # mask for desired output: 1=decimal, others are same as base
+    if (( ! _obase )); then
+        (( _obase = 1|2|8|16 ))
+        multi=$'\t'
+    fi
+
+    if (( _obase & 16 )); then
+        val=$(addprefix 16 "$(split 16 "$(hex $decval)")")
+        printf "%s%s" "$val" "$multi"
+    fi
+    if (( _obase & 1 )); then
+        val=$(addprefix 10 "$(split 10 "$(dec $decval)")")
+        printf "%s%s" "$val" "$multi"
+    fi
+    if (( _obase & 8 )); then
+        val=$(addprefix 8 "$(split 8 "$(oct $decval)")")
+        printf "%s%s" "$val" "$multi"
+    fi
+    if (( _obase & 2 )); then
+        val=$(addprefix 2 "$(split 2 "$(bin $decval)")")
+        printf "%s%s" "$val" "$multi"
+    fi
+    printf "\n"
+}
+
+parse_opts "$@"
+
+if ! (( ${#args[@]} )); then
+    while read -era line; do
+        for input in "${line[@]}"; do
+            doit "ibase" "$input"
+        done
+    done
+else
+    for input in "${args[@]}"; do
+        doit "$ibase" "$input"
+    done
+fi
+exit 0

bash/gen-password.sh

@@ -565,8 +565,8 @@ parse_opts() {
     local c2="" c3=""
     local  -i  i
 
-    if ! tmp=$(getopt -o "$sopts" -l "$lopts" -n "$CMD" -- "$@"); then
-        log "Use '$CMD --help' or '$CMD --man' for help."
+    if ! tmp=$(getopt -o "$sopts" -l "$lopts" -n "$CMDNAME" -- "$@"); then
+        log "Use '$CMD --help' or 'zob $CMDNAME --man' for help."
         exit 1
     fi
 

bash/share/sync/COPYING

@@ -0,0 +1,674 @@
+                    GNU GENERAL PUBLIC LICENSE
+                       Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. <https://fsf.org/>
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+                            Preamble
+
+  The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+  Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+  For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+  Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products.  If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+  Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+                       TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+  To "propagate" a work means to do anything with it that, without
+permission, would make you directly or secondarily liable for
+infringement under applicable copyright law, except executing it on a
+computer or modifying a private copy.  Propagation includes copying,
+distribution (with or without modification), making available to the
+public, and in some countries other activities as well.
+
+  To "convey" a work means any kind of propagation that enables other
+parties to make or receive copies.  Mere interaction with a user through
+a computer network, with no transfer of a copy, is not conveying.
+
+  An interactive user interface displays "Appropriate Legal Notices"
+to the extent that it includes a convenient and prominently visible
+feature that (1) displays an appropriate copyright notice, and (2)
+tells the user that there is no warranty for the work (except to the
+extent that warranties are provided), that licensees may convey the
+work under this License, and how to view a copy of this License.  If
+the interface presents a list of user commands or options, such as a
+menu, a prominent item in the list meets this criterion.
+
+  1. Source Code.
+
+  The "source code" for a work means the preferred form of the work
+for making modifications to it.  "Object code" means any non-source
+form of a work.
+
+  A "Standard Interface" means an interface that either is an official
+standard defined by a recognized standards body, or, in the case of
+interfaces specified for a particular programming language, one that
+is widely used among developers working in that language.
+
+  The "System Libraries" of an executable work include anything, other
+than the work as a whole, that (a) is included in the normal form of
+packaging a Major Component, but which is not part of that Major
+Component, and (b) serves only to enable use of the work with that
+Major Component, or to implement a Standard Interface for which an
+implementation is available to the public in source code form.  A
+"Major Component", in this context, means a major essential component
+(kernel, window system, and so on) of the specific operating system
+(if any) on which the executable work runs, or a compiler used to
+produce the work, or an object code interpreter used to run it.
+
+  The "Corresponding Source" for a work in object code form means all
+the source code needed to generate, install, and (for an executable
+work) run the object code and to modify the work, including scripts to
+control those activities.  However, it does not include the work's
+System Libraries, or general-purpose tools or generally available free
+programs which are used unmodified in performing those activities but
+which are not part of the work.  For example, Corresponding Source
+includes interface definition files associated with source files for
+the work, and the source code for shared libraries and dynamically
+linked subprograms that the work is specifically designed to require,
+such as by intimate data communication or control flow between those
+subprograms and other parts of the work.
+
+  The Corresponding Source need not include anything that users
+can regenerate automatically from other parts of the Corresponding
+Source.
+
+  The Corresponding Source for a work in source code form is that
+same work.
+
+  2. Basic Permissions.
+
+  All rights granted under this License are granted for the term of
+copyright on the Program, and are irrevocable provided the stated
+conditions are met.  This License explicitly affirms your unlimited
+permission to run the unmodified Program.  The output from running a
+covered work is covered by this License only if the output, given its
+content, constitutes a covered work.  This License acknowledges your
+rights of fair use or other equivalent, as provided by copyright law.
+
+  You may make, run and propagate covered works that you do not
+convey, without conditions so long as your license otherwise remains
+in force.  You may convey covered works to others for the sole purpose
+of having them make modifications exclusively for you, or provide you
+with facilities for running those works, provided that you comply with
+the terms of this License in conveying all material for which you do
+not control copyright.  Those thus making or running the covered works
+for you must do so exclusively on your behalf, under your direction
+and control, on terms that prohibit them from making any copies of
+your copyrighted material outside their relationship with you.
+
+  Conveying under any other circumstances is permitted solely under
+the conditions stated below.  Sublicensing is not allowed; section 10
+makes it unnecessary.
+
+  3. Protecting Users' Legal Rights From Anti-Circumvention Law.
+
+  No covered work shall be deemed part of an effective technological
+measure under any applicable law fulfilling obligations under article
+11 of the WIPO copyright treaty adopted on 20 December 1996, or
+similar laws prohibiting or restricting circumvention of such
+measures.
+
+  When you convey a covered work, you waive any legal power to forbid
+circumvention of technological measures to the extent such circumvention
+is effected by exercising rights under this License with respect to
+the covered work, and you disclaim any intention to limit operation or
+modification of the work as a means of enforcing, against the work's
+users, your or third parties' legal rights to forbid circumvention of
+technological measures.
+
+  4. Conveying Verbatim Copies.
+
+  You may convey verbatim copies of the Program's source code as you
+receive it, in any medium, provided that you conspicuously and
+appropriately publish on each copy an appropriate copyright notice;
+keep intact all notices stating that this License and any
+non-permissive terms added in accord with section 7 apply to the code;
+keep intact all notices of the absence of any warranty; and give all
+recipients a copy of this License along with the Program.
+
+  You may charge any price or no price for each copy that you convey,
+and you may offer support or warranty protection for a fee.
+
+  5. Conveying Modified Source Versions.
+
+  You may convey a work based on the Program, or the modifications to
+produce it from the Program, in the form of source code under the
+terms of section 4, provided that you also meet all of these conditions:
+
+    a) The work must carry prominent notices stating that you modified
+    it, and giving a relevant date.
+
+    b) The work must carry prominent notices stating that it is
+    released under this License and any conditions added under section
+    7.  This requirement modifies the requirement in section 4 to
+    "keep intact all notices".
+
+    c) You must license the entire work, as a whole, under this
+    License to anyone who comes into possession of a copy.  This
+    License will therefore apply, along with any applicable section 7
+    additional terms, to the whole of the work, and all its parts,
+    regardless of how they are packaged.  This License gives no
+    permission to license the work in any other way, but it does not
+    invalidate such permission if you have separately received it.
+
+    d) If the work has interactive user interfaces, each must display
+    Appropriate Legal Notices; however, if the Program has interactive
+    interfaces that do not display Appropriate Legal Notices, your
+    work need not make them do so.
+
+  A compilation of a covered work with other separate and independent
+works, which are not by their nature extensions of the covered work,
+and which are not combined with it such as to form a larger program,
+in or on a volume of a storage or distribution medium, is called an
+"aggregate" if the compilation and its resulting copyright are not
+used to limit the access or legal rights of the compilation's users
+beyond what the individual works permit.  Inclusion of a covered work
+in an aggregate does not cause this License to apply to the other
+parts of the aggregate.
+
+  6. Conveying Non-Source Forms.
+
+  You may convey a covered work in object code form under the terms
+of sections 4 and 5, provided that you also convey the
+machine-readable Corresponding Source under the terms of this License,
+in one of these ways:
+
+    a) Convey the object code in, or embodied in, a physical product
+    (including a physical distribution medium), accompanied by the
+    Corresponding Source fixed on a durable physical medium
+    customarily used for software interchange.
+
+    b) Convey the object code in, or embodied in, a physical product
+    (including a physical distribution medium), accompanied by a
+    written offer, valid for at least three years and valid for as
+    long as you offer spare parts or customer support for that product
+    model, to give anyone who possesses the object code either (1) a
+    copy of the Corresponding Source for all the software in the
+    product that is covered by this License, on a durable physical
+    medium customarily used for software interchange, for a price no
+    more than your reasonable cost of physically performing this
+    conveying of source, or (2) access to copy the
+    Corresponding Source from a network server at no charge.
+
+    c) Convey individual copies of the object code with a copy of the
+    written offer to provide the Corresponding Source.  This
+    alternative is allowed only occasionally and noncommercially, and
+    only if you received the object code with such an offer, in accord
+    with subsection 6b.
+
+    d) Convey the object code by offering access from a designated
+    place (gratis or for a charge), and offer equivalent access to the
+    Corresponding Source in the same way through the same place at no
+    further charge.  You need not require recipients to copy the
+    Corresponding Source along with the object code.  If the place to
+    copy the object code is a network server, the Corresponding Source
+    may be on a different server (operated by you or a third party)
+    that supports equivalent copying facilities, provided you maintain
+    clear directions next to the object code saying where to find the
+    Corresponding Source.  Regardless of what server hosts the
+    Corresponding Source, you remain obligated to ensure that it is
+    available for as long as needed to satisfy these requirements.
+
+    e) Convey the object code using peer-to-peer transmission, provided
+    you inform other peers where the object code and Corresponding
+    Source of the work are being offered to the general public at no
+    charge under subsection 6d.
+
+  A separable portion of the object code, whose source code is excluded
+from the Corresponding Source as a System Library, need not be
+included in conveying the object code work.
+
+  A "User Product" is either (1) a "consumer product", which means any
+tangible personal property which is normally used for personal, family,
+or household purposes, or (2) anything designed or sold for incorporation
+into a dwelling.  In determining whether a product is a consumer product,
+doubtful cases shall be resolved in favor of coverage.  For a particular
+product received by a particular user, "normally used" refers to a
+typical or common use of that class of product, regardless of the status
+of the particular user or of the way in which the particular user
+actually uses, or expects or is expected to use, the product.  A product
+is a consumer product regardless of whether the product has substantial
+commercial, industrial or non-consumer uses, unless such uses represent
+the only significant mode of use of the product.
+
+  "Installation Information" for a User Product means any methods,
+procedures, authorization keys, or other information required to install
+and execute modified versions of a covered work in that User Product from
+a modified version of its Corresponding Source.  The information must
+suffice to ensure that the continued functioning of the modified object
+code is in no case prevented or interfered with solely because
+modification has been made.
+
+  If you convey an object code work under this section in, or with, or
+specifically for use in, a User Product, and the conveying occurs as
+part of a transaction in which the right of possession and use of the
+User Product is transferred to the recipient in perpetuity or for a
+fixed term (regardless of how the transaction is characterized), the
+Corresponding Source conveyed under this section must be accompanied
+by the Installation Information.  But this requirement does not apply
+if neither you nor any third party retains the ability to install
+modified object code on the User Product (for example, the work has
+been installed in ROM).
+
+  The requirement to provide Installation Information does not include a
+requirement to continue to provide support service, warranty, or updates
+for a work that has been modified or installed by the recipient, or for
+the User Product in which it has been modified or installed.  Access to a
+network may be denied when the modification itself materially and
+adversely affects the operation of the network or violates the rules and
+protocols for communication across the network.
+
+  Corresponding Source conveyed, and Installation Information provided,
+in accord with this section must be in a format that is publicly
+documented (and with an implementation available to the public in
+source code form), and must require no special password or key for
+unpacking, reading or copying.
+
+  7. Additional Terms.
+
+  "Additional permissions" are terms that supplement the terms of this
+License by making exceptions from one or more of its conditions.
+Additional permissions that are applicable to the entire Program shall
+be treated as though they were included in this License, to the extent
+that they are valid under applicable law.  If additional permissions
+apply only to part of the Program, that part may be used separately
+under those permissions, but the entire Program remains governed by
+this License without regard to the additional permissions.
+
+  When you convey a copy of a covered work, you may at your option
+remove any additional permissions from that copy, or from any part of
+it.  (Additional permissions may be written to require their own
+removal in certain cases when you modify the work.)  You may place
+additional permissions on material, added by you to a covered work,
+for which you have or can give appropriate copyright permission.
+
+  Notwithstanding any other provision of this License, for material you
+add to a covered work, you may (if authorized by the copyright holders of
+that material) supplement the terms of this License with terms:
+
+    a) Disclaiming warranty or limiting liability differently from the
+    terms of sections 15 and 16 of this License; or
+
+    b) Requiring preservation of specified reasonable legal notices or
+    author attributions in that material or in the Appropriate Legal
+    Notices displayed by works containing it; or
+
+    c) Prohibiting misrepresentation of the origin of that material, or
+    requiring that modified versions of such material be marked in
+    reasonable ways as different from the original version; or
+
+    d) Limiting the use for publicity purposes of names of licensors or
+    authors of the material; or
+
+    e) Declining to grant rights under trademark law for use of some
+    trade names, trademarks, or service marks; or
+
+    f) Requiring indemnification of licensors and authors of that
+    material by anyone who conveys the material (or modified versions of
+    it) with contractual assumptions of liability to the recipient, for
+    any liability that these contractual assumptions directly impose on
+    those licensors and authors.
+
+  All other non-permissive additional terms are considered "further
+restrictions" within the meaning of section 10.  If the Program as you
+received it, or any part of it, contains a notice stating that it is
+governed by this License along with a term that is a further
+restriction, you may remove that term.  If a license document contains
+a further restriction but permits relicensing or conveying under this
+License, you may add to a covered work material governed by the terms
+of that license document, provided that the further restriction does
+not survive such relicensing or conveying.
+
+  If you add terms to a covered work in accord with this section, you
+must place, in the relevant source files, a statement of the
+additional terms that apply to those files, or a notice indicating
+where to find the applicable terms.
+
+  Additional terms, permissive or non-permissive, may be stated in the
+form of a separately written license, or stated as exceptions;
+the above requirements apply either way.
+
+  8. Termination.
+
+  You may not propagate or modify a covered work except as expressly
+provided under this License.  Any attempt otherwise to propagate or
+modify it is void, and will automatically terminate your rights under
+this License (including any patent licenses granted under the third
+paragraph of section 11).
+
+  However, if you cease all violation of this License, then your
+license from a particular copyright holder is reinstated (a)
+provisionally, unless and until the copyright holder explicitly and
+finally terminates your license, and (b) permanently, if the copyright
+holder fails to notify you of the violation by some reasonable means
+prior to 60 days after the cessation.
+
+  Moreover, your license from a particular copyright holder is
+reinstated permanently if the copyright holder notifies you of the
+violation by some reasonable means, this is the first time you have
+received notice of violation of this License (for any work) from that
+copyright holder, and you cure the violation prior to 30 days after
+your receipt of the notice.
+
+  Termination of your rights under this section does not terminate the
+licenses of parties who have received copies or rights from you under
+this License.  If your rights have been terminated and not permanently
+reinstated, you do not qualify to receive new licenses for the same
+material under section 10.
+
+  9. Acceptance Not Required for Having Copies.
+
+  You are not required to accept this License in order to receive or
+run a copy of the Program.  Ancillary propagation of a covered work
+occurring solely as a consequence of using peer-to-peer transmission
+to receive a copy likewise does not require acceptance.  However,
+nothing other than this License grants you permission to propagate or
+modify any covered work.  These actions infringe copyright if you do
+not accept this License.  Therefore, by modifying or propagating a
+covered work, you indicate your acceptance of this License to do so.
+
+  10. Automatic Licensing of Downstream Recipients.
+
+  Each time you convey a covered work, the recipient automatically
+receives a license from the original licensors, to run, modify and
+propagate that work, subject to this License.  You are not responsible
+for enforcing compliance by third parties with this License.
+
+  An "entity transaction" is a transaction transferring control of an
+organization, or substantially all assets of one, or subdividing an
+organization, or merging organizations.  If propagation of a covered
+work results from an entity transaction, each party to that
+transaction who receives a copy of the work also receives whatever
+licenses to the work the party's predecessor in interest had or could
+give under the previous paragraph, plus a right to possession of the
+Corresponding Source of the work from the predecessor in interest, if
+the predecessor has it or can get it with reasonable efforts.
+
+  You may not impose any further restrictions on the exercise of the
+rights granted or affirmed under this License.  For example, you may
+not impose a license fee, royalty, or other charge for exercise of
+rights granted under this License, and you may not initiate litigation
+(including a cross-claim or counterclaim in a lawsuit) alleging that
+any patent claim is infringed by making, using, selling, offering for
+sale, or importing the Program or any portion of it.
+
+  11. Patents.
+
+  A "contributor" is a copyright holder who authorizes use under this
+License of the Program or a work on which the Program is based.  The
+work thus licensed is called the contributor's "contributor version".
+
+  A contributor's "essential patent claims" are all patent claims
+owned or controlled by the contributor, whether already acquired or
+hereafter acquired, that would be infringed by some manner, permitted
+by this License, of making, using, or selling its contributor version,
+but do not include claims that would be infringed only as a
+consequence of further modification of the contributor version.  For
+purposes of this definition, "control" includes the right to grant
+patent sublicenses in a manner consistent with the requirements of
+this License.
+
+  Each contributor grants you a non-exclusive, worldwide, royalty-free
+patent license under the contributor's essential patent claims, to
+make, use, sell, offer for sale, import and otherwise run, modify and
+propagate the contents of its contributor version.
+
+  In the following three paragraphs, a "patent license" is any express
+agreement or commitment, however denominated, not to enforce a patent
+(such as an express permission to practice a patent or covenant not to
+sue for patent infringement).  To "grant" such a patent license to a
+party means to make such an agreement or commitment not to enforce a
+patent against the party.
+
+  If you convey a covered work, knowingly relying on a patent license,
+and the Corresponding Source of the work is not available for anyone
+to copy, free of charge and under the terms of this License, through a
+publicly available network server or other readily accessible means,
+then you must either (1) cause the Corresponding Source to be so
+available, or (2) arrange to deprive yourself of the benefit of the
+patent license for this particular work, or (3) arrange, in a manner
+consistent with the requirements of this License, to extend the patent
+license to downstream recipients.  "Knowingly relying" means you have
+actual knowledge that, but for the patent license, your conveying the
+covered work in a country, or your recipient's use of the covered work
+in a country, would infringe one or more identifiable patents in that
+country that you have reason to believe are valid.
+
+  If, pursuant to or in connection with a single transaction or
+arrangement, you convey, or propagate by procuring conveyance of, a
+covered work, and grant a patent license to some of the parties
+receiving the covered work authorizing them to use, propagate, modify
+or convey a specific copy of the covered work, then the patent license
+you grant is automatically extended to all recipients of the covered
+work and works based on it.
+
+  A patent license is "discriminatory" if it does not include within
+the scope of its coverage, prohibits the exercise of, or is
+conditioned on the non-exercise of one or more of the rights that are
+specifically granted under this License.  You may not convey a covered
+work if you are a party to an arrangement with a third party that is
+in the business of distributing software, under which you make payment
+to the third party based on the extent of your activity of conveying
+the work, and under which the third party grants, to any of the
+parties who would receive the covered work from you, a discriminatory
+patent license (a) in connection with copies of the covered work
+conveyed by you (or copies made from those copies), or (b) primarily
+for and in connection with specific products or compilations that
+contain the covered work, unless you entered into that arrangement,
+or that patent license was granted, prior to 28 March 2007.
+
+  Nothing in this License shall be construed as excluding or limiting
+any implied license or other defenses to infringement that may
+otherwise be available to you under applicable patent law.
+
+  12. No Surrender of Others' Freedom.
+
+  If conditions are imposed on you (whether by court order, agreement or
+otherwise) that contradict the conditions of this License, they do not
+excuse you from the conditions of this License.  If you cannot convey a
+covered work so as to satisfy simultaneously your obligations under this
+License and any other pertinent obligations, then as a consequence you may
+not convey it at all.  For example, if you agree to terms that obligate you
+to collect a royalty for further conveying from those to whom you convey
+the Program, the only way you could satisfy both those terms and this
+License would be to refrain entirely from conveying the Program.
+
+  13. Use with the GNU Affero General Public License.
+
+  Notwithstanding any other provision of this License, you have
+permission to link or combine any covered work with a work licensed
+under version 3 of the GNU Affero General Public License into a single
+combined work, and to convey the resulting work.  The terms of this
+License will continue to apply to the part which is the covered work,
+but the special requirements of the GNU Affero General Public License,
+section 13, concerning interaction through a network will apply to the
+combination as such.
+
+  14. Revised Versions of this License.
+
+  The Free Software Foundation may publish revised and/or new versions of
+the GNU General Public License from time to time.  Such new versions will
+be similar in spirit to the present version, but may differ in detail to
+address new problems or concerns.
+
+  Each version is given a distinguishing version number.  If the
+Program specifies that a certain numbered version of the GNU General
+Public License "or any later version" applies to it, you have the
+option of following the terms and conditions either of that numbered
+version or of any later version published by the Free Software
+Foundation.  If the Program does not specify a version number of the
+GNU General Public License, you may choose any version ever published
+by the Free Software Foundation.
+
+  If the Program specifies that a proxy can decide which future
+versions of the GNU General Public License can be used, that proxy's
+public statement of acceptance of a version permanently authorizes you
+to choose that version for the Program.
+
+  Later license versions may give you additional or different
+permissions.  However, no additional obligations are imposed on any
+author or copyright holder as a result of your choosing to follow a
+later version.
+
+  15. Disclaimer of Warranty.
+
+  THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY
+APPLICABLE LAW.  EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT
+HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY
+OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO,
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+PURPOSE.  THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM
+IS WITH YOU.  SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF
+ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
+
+  16. Limitation of Liability.
+
+  IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
+WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
+THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY
+GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE
+USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF
+DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD
+PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS),
+EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF
+SUCH DAMAGES.
+
+  17. Interpretation of Sections 15 and 16.
+
+  If the disclaimer of warranty and limitation of liability provided
+above cannot be given local legal effect according to their terms,
+reviewing courts shall apply local law that most closely approximates
+an absolute waiver of all civil liability in connection with the
+Program, unless a warranty or assumption of liability accompanies a
+copy of the Program in return for a fee.
+
+                     END OF TERMS AND CONDITIONS
+
+            How to Apply These Terms to Your New Programs
+
+  If you develop a new program, and you want it to be of the greatest
+possible use to the public, the best way to achieve this is to make it
+free software which everyone can redistribute and change under these terms.
+
+  To do so, attach the following notices to the program.  It is safest
+to attach them to the start of each source file to most effectively
+state the exclusion of warranty; and each file should have at least
+the "copyright" line and a pointer to where the full notice is found.
+
+    <one line to give the program's name and a brief idea of what it does.>
+    Copyright (C) <year>  <name of author>
+
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+Also add information on how to contact you by electronic and paper mail.
+
+  If the program does terminal interaction, make it output a short
+notice like this when it starts in an interactive mode:
+
+    <program>  Copyright (C) <year>  <name of author>
+    This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
+    This is free software, and you are welcome to redistribute it
+    under certain conditions; type `show c' for details.
+
+The hypothetical commands `show w' and `show c' should show the appropriate
+parts of the General Public License.  Of course, your program's commands
+might be different; for a GUI interface, you would use an "about box".
+
+  You should also get your employer (if you work as a programmer) or school,
+if any, to sign a "copyright disclaimer" for the program, if necessary.
+For more information on this, and how to apply and follow the GNU GPL, see
+<https://www.gnu.org/licenses/>.
+
+  The GNU General Public License does not permit incorporating your program
+into proprietary programs.  If your program is a subroutine library, you
+may consider it more useful to permit linking proprietary applications with
+the library.  If this is what you want to do, use the GNU Lesser General
+Public License instead of this License.  But first, please read
+<https://www.gnu.org/licenses/why-not-lgpl.html>.

config/etc/named.conf

@@ -0,0 +1,88 @@
+; raoult.com named.conf (gandi.net)
+
+; SOA looks ignored when setting gandi DNS
+@ 3600 IN SOA ns1.gandi.net. hostmaster.gandi.net. (
+             1725266688                           ; serial
+             10800                                ; refresh (3 hours)
+             3600                                 ; retry (1h)
+             604800                               ; expire (1 week)
+             3600                                 ; minimum (1h)
+)
+
+;;; ---------------------------------- copy from here
+
+; IP addresses
+@            3600 IN A 82.64.229.101
+moreac       3600 IN A 82.67.122.150
+
+; forgot what it is
+@            3600 IN TXT "google-site-verification=I7AEHSueTj0mpbBvL4QA3WKaPTfBiM0_6N8Var0UpU8"
+
+; subdomains
+www          3600 IN CNAME raoult.com.
+home         3600 IN CNAME raoult.com.
+devs         3600 IN CNAME raoult.com.
+ebooks       3600 IN CNAME raoult.com.
+
+; applications
+dav          3600 IN CNAME raoult.com.
+git          3600 IN CNAME raoult.com.
+webtrees     3600 IN CNAME raoult.com.
+
+; hostnames
+idril        3600 IN CNAME raoult.com.
+arwen        3600 IN CNAME raoult.com.
+
+idefix       3600 IN CNAME moreac.raoult.com.
+
+; old shared
+locations    3600 IN CNAME raoult.com.
+marcel       3600 IN CNAME raoult.com.
+xavier       3600 IN CNAME raoult.com.
+
+;;; ---------------------------------- end of Gandi DNS records
+
+;;;;; default gandi.net entries
+; @ 10800 IN A 217.70.184.38
+; @ 10800 IN MX 10 spool.mail.gandi.net.
+; @ 10800 IN MX 50 fb.mail.gandi.net.
+; @ 10800 IN TXT "v=spf1 include:_mailcust.gandi.net ?all"
+; _imap._tcp 10800 IN SRV 0 0 0   .
+; _imaps._tcp 10800 IN SRV 0 1 993 mail.gandi.net.
+; _pop3._tcp 10800 IN SRV 0 0 0   .
+; _pop3s._tcp 10800 IN SRV 10 1 995 mail.gandi.net.
+; _submission._tcp 10800 IN SRV 0 1 465 mail.gandi.net.
+; gm1._domainkey 10800 IN CNAME gm1.gandimail.net.
+; gm2._domainkey 10800 IN CNAME gm2.gandimail.net.
+; gm3._domainkey 10800 IN CNAME gm3.gandimail.net.
+;
+; webmail 10800 IN CNAME webmail.gandi.net.
+; www 10800 IN CNAME webredir.vip.gandi.net.
+
+;;;;; old freenom
+; raoult.com.		300 IN SOA ns01.freenom.com. soa.freenom.com. (
+; 				1725254393 ; serial
+; 				10800      ; refresh (3 hours)
+; 				3600       ; retry (1 hour)
+; 				604800     ; expire (1 week)
+; 				3600       ; minimum (1 hour)
+; 				)
+; raoult.com.             300 IN NS ns02.freenom.com.
+; raoult.com.             300 IN NS ns04.freenom.com.
+; raoult.com.             300 IN NS ns03.freenom.com.
+; raoult.com.             300 IN NS ns01.freenom.com.
+; raoult.com.             3600 IN TXT "google-site-verification=I7AEHSueTj0mpbBvL4QA3WKaPTfBiM0_6N8Var0UpU8"
+
+;;;;; domain lists
+; raoult.com
+; www.raoult.com
+; home.raoult.com
+; arwen.raoult.com
+; dav.raoult.com
+; devs.raoult.com
+; ebooks.raoult.com
+; git.raoult.com
+; locations.raoult.com
+; marcel.raoult.com
+; webtrees.raoult.com
+; xavier.raoult.com

config/home/.bashrc.br.lorien

@@ -1,50 +0,0 @@
-#!/usr/bin/env bash
-#
-# ~/.bashrc.br.lorien - host specific initialization
-#
-# (C) Bruno Raoult ("br"), 2001-2023
-# Licensed under the GNU General Public License v3.0 or later.
-# Some rights reserved. See COPYING.
-#
-# You should have received a copy of the GNU General Public License along with this
-# program. If not, see <https://www.gnu.org/licenses/gpl-3.0-standalone.html>.
-#
-# SPDX-License-Identifier: GPL-3.0-or-later <https://spdx.org/licenses/GPL-3.0-or-later.html>
-#
-# Usage: to be invoked from .bashrc.$USER
-# i.e., add at the end of .bashrc.$USER:
-# [ -f "$HOME/.bashrc.$USER.$(hostname)" ] && . "$HOME/.bashrc.$USER.$(hostname)"
-
-# look for a pdf viewer
-hash atril 2> /dev/null && alias acroread=atril
-
-# mysql aliases. Will match any "[client-XXX]" lines in ~/.my.cnf
-# and generate "myXXX" aliases.
-if [[ -r ~/.my.cnf ]]; then
-    mapfile -t MYSQL_ARRAY < ~/.my.cnf
-
-    for line in "${MYSQL_ARRAY[@]}"; do
-        if [[ $line =~ ^\[client-(.+)\]$ ]]; then
-            SUFFIX="${BASH_REMATCH[1]}"
-            # shellcheck disable=SC2139,SC2140
-            alias my"$SUFFIX"="mysql --defaults-group-suffix=-$SUFFIX"
-        fi
-    done
-fi
-
-# shortcuts to commonly used directories
-# alias dev="cd ~/dev/www/cf.bodi"                     # Clash of Clans
-alias eud="cd ~/dev/eudyptula; . ./bin/ENV.sh"         # Eudyptula
-alias aoc="cd ~/dev/advent-of-code/2022/; . ../env.sh" # Advent of Code
-alias wchess="cd ~/dev/www/com.raoult/devs/chess"      # raoult.com chess
-alias chess="cd ~/dev/brchess; . env.sh"               # brchess
-alias tools="cd ~/dev/tools"                           # tools
-alias brlib="cd ~/dev/tools/c/brlib"                   # brlib dir/repo
-
-# Indent style for emacs
-# Local Variables:
-# mode: shell-script
-# sh-basic-offset: 4
-# sh-indentation: 4
-# indent-tabs-mode: nil
-# End:

config/home/bash_profile

@@ -0,0 +1,19 @@
+#!/usr/bin/env bash
+#
+# ~/.bash_profile - bash login script.
+#
+# (C) Bruno Raoult ("br"), 2024
+# Licensed under the GNU General Public License v3.0 or later.
+# Some rights reserved. See COPYING.
+#
+# You should have received a copy of the GNU General Public License along with this
+# program. If not, see <https://www.gnu.org/licenses/gpl-3.0-standalone.html>.
+#
+# For login shells, ~/.profile is executed. Debian default one does:
+#   1) source .bashrc if it exists
+#   2) add "$HOME"/bin in PATH
+# This imply a duplicate "$HOME/bin" in PATH, as we do everything in .bashrc.$user.
+# Having this ~/.bash_profile will avoid the execution of ~/.profile
+
+# shellcheck disable=SC1091
+[ -f "$HOME/.bashrc" ] && . "$HOME/.bashrc"

config/home/bashrc.br

@@ -2,7 +2,7 @@
 #
 # ~/.bashrc.br - user specific initialization
 #
-# (C) Bruno Raoult ("br"), 2001-2023
+# (C) Bruno Raoult ("br"), 2001-2024
 # Licensed under the GNU General Public License v3.0 or later.
 # Some rights reserved. See COPYING.
 #
@@ -14,6 +14,12 @@
 # Usage: to be invoked from .bashrc.
 # i.e., add at the end of .bashrc:
 # [ -f "$HOME/.bashrc.$USER" ] && . "$HOME/.bashrc.$USER"
+#
+# Debian default ~/.profile usually does:
+#   1) source .bashrc if it exists
+#   2) add "$HOME"/bin in PATH
+# This imply a duplicate "$HOME/bin" in PATH, as we do everything here.
+# Better to have a ~/.bash_profile with the lines above.
 
 # _var_del() - remove an element from a colon-separated list.
 # $1: name (reference) of a colon separated list
@@ -72,10 +78,12 @@ _var_append() {
 }
 
 # adjust PATH. Below paths will be added at beginning.
-_lpath=("$HOME/bin/$(uname -s)-$(uname -m)"
-        "$HOME/bin"
+_lpath=("$HOME/bin/$(uname -s)-$(uname -m)"       # architecture specific
+        "$HOME/bin"                               # user scripts
+        "$HOME/.local/bin"                        # pip venv
         #"$HOME/.cargo/bin"
-        "/usr/local/bin")
+        "/usr/local/bin"
+       )
 
 # loop array in reverse order. Note: We do not test for path existence and add it
 # unconditionally, to avoid automounter interference.
@@ -90,13 +98,16 @@ _var_del PATH /snap/bin
 # enable core file
 ulimit -Sc 102400                                 # in 1024 bytes, 100Mb
 
-# ... and set PAGER to less (for man(1) and others)
+# Set pager: "less" is prefered over "more".
 if hash less 2>/dev/null; then
     export PAGER=less
     # do not clear screen after "less", exit immediately if one page only
-    export LESS="-XFB"
-    # ... and just alias more... to less ;-)
+    export LESS="--quit-if-one-screen --quit-at-eof --no-init"
     alias more=less
+else
+    export MORE="--exit-on-eof --silent"
+    export PAGER=more
+    alias less=more
 fi
 
 # no output split for dc and bc / make bc silent
@@ -124,7 +135,8 @@ e() {
     $VISUAL "$@"
 }
 export -f e
-if hash emacs 2>/dev/null; then
+
+if hash emacs 2>/dev/null; then                   # look for Emacs...
     # uncomment below to use full emacs
     #export EDITOR=emacs
     # ... OR: uncomment below to use emacsclient
@@ -136,8 +148,7 @@ if hash emacs 2>/dev/null; then
     alias emacs="emacsclient -c"
     #alias crontab="VISUAL=emacsclient crontab -e"
     #alias crontab="emacs-crontab.sh"
-else
-    # emacs clones, then vim/vi, then... whatever left.
+else                                              # ... or clones, vim/vi, etc...
     _VISUALS=(zile jed mg e3em vim vi nano ed)
 
     for e in "${_VISUALS[@]}"; do
@@ -150,6 +161,15 @@ else
 fi
 export EDITOR=$VISUAL
 
+for _pdfviewer in atril qpdfview; do              # look for a pdf viewer
+    if hash "$_pdfviewer" 2>/dev/null; then
+        # shellcheck disable=SC2139
+        alias acroread="$_pdfviewer"
+        break
+    fi
+done
+unset _pdfviewer
+
 # append to the history file, don't overwrite it
 shopt -s histappend
 # write history after each command
@@ -173,7 +193,7 @@ export QUOTING_STYLE=literal
 # avoid these stupid systemd defaults (horizontal scroll and pager)
 alias systemctl="systemctl --no-pager --full"
 
-# aliases for ls and history
+# aliases/functions for usual commands (ls, history, grep...)
 alias l='ls -F'
 alias ls='ls -F'
 alias l1='ls -1F'
@@ -207,6 +227,10 @@ alias hl="history  25"                            # long
 alias hll="history 100"                           # very long
 alias hlll="history"                              # all history
 
+alias grep='grep --color=auto'                    # add colors to grep
+alias fgrep='fgrep --color=auto'
+alias egrep='egrep --color=auto'
+
 # user temp directory
 export USERTMP=~/tmp
 
@@ -245,6 +269,19 @@ rehash() {
 alias trans="trans.sh"
 alias rtrans="trans.sh -fen -tfr"
 
+# easy directory sync (remove source trailing slash)
+syncdir() {
+    local -a opts=(--archive --hard-links --one-file-system --itemize-changes --delete)
+    local src="$1" dst="$2"
+    case "$src" in
+        *[!/]*/)
+            src=${src%"${src##*[!/]}"};;
+        *[/])
+            src="/";;
+    esac
+    rsync "${opts[@]}" "$src" "$dst"
+}
+
 # host specific initialization
 # shellcheck disable=SC1090
 [ -f "$HOME/.bashrc.$USER.$(hostname)" ] && . "$HOME/.bashrc.$USER.$(hostname)"

config/home/bashrc.br.eowyn

@@ -0,0 +1,80 @@
+#!/usr/bin/env bash
+#
+# ~/.bashrc.br.eowyn - host specific initialization
+#
+# (C) Bruno Raoult ("br"), 2001-2024
+# Licensed under the GNU General Public License v3.0 or later.
+# Some rights reserved. See COPYING.
+#
+# You should have received a copy of the GNU General Public License along with this
+# program. If not, see <https://www.gnu.org/licenses/gpl-3.0-standalone.html>.
+#
+# SPDX-License-Identifier: GPL-3.0-or-later <https://spdx.org/licenses/GPL-3.0-or-later.html>
+#
+# Usage: to be invoked from .bashrc.$USER
+# i.e., add at the end of .bashrc.$USER:
+# [ -f "$HOME/.bashrc.$USER.$(hostname)" ] && . "$HOME/.bashrc.$USER.$(hostname)"
+
+# mysql aliases. Will match any "[client-XXX]" lines in ~/.my.cnf
+# and generate "myXXX" aliases.
+if [[ -r ~/.my.cnf ]]; then
+    mapfile -t MYSQL_ARRAY < ~/.my.cnf
+
+    for line in "${MYSQL_ARRAY[@]}"; do
+        if [[ $line =~ ^\[client-(.+)\]$ ]]; then
+            SUFFIX="${BASH_REMATCH[1]}"
+            # shellcheck disable=SC2139,SC2140
+            alias my"$SUFFIX"="mysql --defaults-group-suffix=-$SUFFIX"
+        fi
+    done
+fi
+
+# shortcuts to commonly used directories/projects
+
+# _vardir() - define common dirs vars & aliases
+# $1: name variable to set
+# $2: name of alias to define
+# $3: script to source (relative to $2). '-': no script, '+': './script/env.sh'
+# $4: project path
+#
+# _vardir() sets variable with $1 name to $4, and an alias with $2 name.
+# The alias, when invoked, will:
+#   (1) change working directory to $1
+#   (2) source $3 when $3 is not '-'. $3 path can be relative (preferred), or
+#       absolute. If $3 is "+", it will default to "scripts/env.sh".
+#
+# Examples:
+# _vardir MYDIR mydir - ~/foo/mydirprj
+_vardir() {
+    local _v="$1" _a="$2" _s="$3" _p="$4"
+    if [[ ! -d $_p ]]; then
+        printf "ignored project: %s\n" "$_p"
+        return 0
+    fi
+    local _x="cd $_p"
+    export "$_v"="$_p"
+    case "$_s" in
+        -) ;;
+        +) _s="scripts/env.sh" ;&
+        *) if [[ -r "$_p/$_s" ]]; then
+               _x+="; . $_s"
+           else
+               printf "%s: ignored.\n" "$_p/$_s"
+           fi
+    esac
+    # shellcheck disable=SC2139
+    alias "$_a"="$_x"
+}
+_vardir CHESS   chess   +  ~/dev/brchess          # brchess
+_vardir ENGINES engines -  ~/dev/chess-engines    # chess engines
+_vardir TOOLS   tools   -  ~/dev/tools            # tools
+_vardir BRLIB   brlib   -  ~/dev/brlib            # brlib
+_vardir DEV     dev     -  ~/dev                  # dev
+
+# Indent style for emacs
+# Local Variables:
+# mode: shell-script
+# sh-basic-offset: 4
+# sh-indentation: 4
+# indent-tabs-mode: nil
+# End:

config/home/bashrc.br.lorien

@@ -0,0 +1,83 @@
+#!/usr/bin/env bash
+#
+# ~/.bashrc.br.lorien - host specific initialization
+#
+# (C) Bruno Raoult ("br"), 2001-2024
+# Licensed under the GNU General Public License v3.0 or later.
+# Some rights reserved. See COPYING.
+#
+# You should have received a copy of the GNU General Public License along with this
+# program. If not, see <https://www.gnu.org/licenses/gpl-3.0-standalone.html>.
+#
+# SPDX-License-Identifier: GPL-3.0-or-later <https://spdx.org/licenses/GPL-3.0-or-later.html>
+#
+# Usage: to be invoked from .bashrc.$USER
+# i.e., add at the end of .bashrc.$USER:
+# [ -f "$HOME/.bashrc.$USER.$(hostname)" ] && . "$HOME/.bashrc.$USER.$(hostname)"
+
+# mysql aliases. Will match any "[client-XXX]" lines in ~/.my.cnf
+# and generate "myXXX" aliases.
+if [[ -r ~/.my.cnf ]]; then
+    mapfile -t MYSQL_ARRAY < ~/.my.cnf
+
+    for line in "${MYSQL_ARRAY[@]}"; do
+        if [[ $line =~ ^\[client-(.+)\]$ ]]; then
+            SUFFIX="${BASH_REMATCH[1]}"
+            # shellcheck disable=SC2139,SC2140
+            alias my"$SUFFIX"="mysql --defaults-group-suffix=-$SUFFIX"
+        fi
+    done
+fi
+
+# shortcuts to commonly used directories/projects
+
+# _vardir() - define common dirs vars & aliases
+# $1: name variable to set
+# $2: name of alias to define
+# $3: script to source (relative to $2). '-': no script, '+': './script/env.sh'
+# $4: project path
+#
+# _vardir() sets variable with $1 name to $4, and an alias with $2 name.
+# The alias, when invoked, will:
+#   (1) change working directory to $1
+#   (2) source $3 when $3 is not '-'. $3 path can be relative (preferred), or
+#       absolute. If $3 is "+", it will default to "scripts/env.sh".
+#
+# Examples:
+# _vardir MYDIR mydir - ~/foo/mydirprj
+_vardir() {
+    local _v="$1" _a="$2" _s="$3" _p="$4"
+    if [[ ! -d $_p ]]; then
+        printf "ignored project: %s\n" "$_p"
+        return 0
+    fi
+    local _x="cd $_p"
+    export "$_v"="$_p"
+    case "$_s" in
+        -) ;;
+        +) _s="scripts/env.sh" ;&
+        *) if [[ -r "$_p/$_s" ]]; then
+               _x+="; . $_s"
+           else
+               printf "%s: ignored.\n" "$_p/$_s"
+           fi
+    esac
+    # shellcheck disable=SC2139
+    alias "$_a"="$_x"
+}
+_vardir AOC     aoc     +  ~/dev/advent-of-code   # Advent of code
+_vardir WCHESS  wchess  -  ~/dev/www/crd/chess    # raoult.com chess
+_vardir CHESS   chess   +  ~/dev/brchess          # brchess
+_vardir ENGINES engines -  ~/dev/chess-engines    # chess engines
+_vardir TOOLS   tools   -  ~/dev/tools            # tools
+_vardir BRLIB   brlib   -  ~/dev/brlib            # brlib
+_vardir EUD     eud     +  ~/dev/eudyptula        # eudyptula
+_vardir DEV     dev     -  ~/dev                  # dev
+
+# Indent style for emacs
+# Local Variables:
+# mode: shell-script
+# sh-basic-offset: 4
+# sh-indentation: 4
+# indent-tabs-mode: nil
+# End:

config/home/bashrc.root

@@ -0,0 +1,211 @@
+#!/usr/bin/env bash
+#
+# ~/.bashrc.root - root bash startup
+#
+# (C) Bruno Raoult ("br"), 2001-2024
+# Licensed under the GNU General Public License v3.0 or later.
+# Some rights reserved. See COPYING.
+#
+# You should have received a copy of the GNU General Public License along with this
+# program. If not, see <https://www.gnu.org/licenses/gpl-3.0-standalone.html>.
+#
+# SPDX-License-Identifier: GPL-3.0-or-later <https://spdx.org/licenses/GPL-3.0-or-later.html>
+#
+# Usage: to be invoked from .bashrc.
+# i.e., add at the end of .bashrc:
+# [ -f "$HOME/.bashrc.$USER" ] && . "$HOME/.bashrc.$USER"
+#
+# Debian default ~/.profile usually does:
+#   1) source .bashrc if it exists
+#   2) add "$HOME"/bin in PATH
+# This imply a duplicate "$HOME/bin" in PATH, as we do everything here.
+# Better to have a ~/.bash_profile with the lines above.
+
+# _var_del() - remove an element from a colon-separated list.
+# $1: name (reference) of a colon separated list
+# $2: element to remove (string)
+#
+# _var_del() removes every occurrence of $2, if there are more than 1,
+# and leaves $1 unchanged if $2 is not present.
+#
+# Example:
+# With VAR's value being "foo:bar:quax:bar". Using "_var_del VAR bar" will
+# leave VAR with the value "foo:quax".
+_var_del() {
+    local -n _p_del=$1
+    local _l=":$_p_del:"
+
+    while [[ $_l =~ :$2: ]]; do
+          _l=${_l//:$2:/:}
+    done
+    _l=${_l%:}
+    _l=${_l#:}
+    _p_del="$_l"
+}
+
+# _var_prepend() - prepend element to colon-separated variable.
+# $1: variable name (reference)
+# $2: element to add (string)
+#
+# Any occurrence of $2 in $1 is first removed, then $2 is added at $1 beginning.
+#
+# Example:
+# With VAR's value being "foo:bar:quax:bar". Using "_var_prepend VAR bar"
+# will leave VAR with the value "bar:foo:quax".
+_var_prepend() {
+    local -n _p_prepend=$1
+
+    _var_del _p_prepend "$2"
+    [[ -z $_p_prepend ]] && _p_prepend="$2" && return
+    _p_prepend="$2:$_p_prepend"
+}
+
+# _var_append() - append element to colon-separated variable.
+# $1: variable name (reference)
+# $2: element to add (string)
+#
+# Any occurrence of $2 in $1 is first removed, then $2 is added at $1 end.
+#
+# Example:
+# With VAR's value being "foo:bar:quax:bar". Using "_var_append VAR bar"
+# will leave VAR with the value "foo:quax:bar".
+_var_append() {
+    local -n _p_append=$1
+
+    _var_del _p_append "$2"
+    [[ -z $_p_append ]] && _p_append="$2" && return
+    _p_append="$_p_append:$2"
+}
+
+# adjust PATH. Below paths will be added at beginning.
+_lpath=("$HOME/bin/$(uname -s)-$(uname -m)"
+        "$HOME/bin"
+        "/usr/local/bin")
+
+# loop array in reverse order. Note: We do not test for path existence and add it
+# unconditionally, to avoid automounter interference.
+for (( _i = ${#_lpath[@]} - 1; _i >= 0; --_i )); do
+    _var_prepend PATH "${_lpath[_i]}"
+done
+unset _lpath
+
+# enable core file
+ulimit -HSc 102400              # in 1024 bytes - Really cannot use KiB :-)
+
+# ... and set PAGER to less (for man(1) and others)
+if hash less 2>/dev/null; then
+    export PAGER=less
+    # do not clear screen after "less", exit immediately if one page only
+    export LESS="-XFB"
+    # ... and just alias more... to less ;-)
+    alias more=less
+fi
+
+# no output split for dc and bc / make bc silent
+export DC_LINE_LENGTH=0
+export BC_LINE_LENGTH=0
+export BC_ENV_ARGS=--quiet
+
+# both ubuntu and debian assume we want colors if TERM contains "color"
+# this is surely not true, as TERM is often forced by terminal emulator
+# shellcheck disable=SC2154
+PS1='${debian_chroot:+($debian_chroot)}\u@\h:\w\$ '
+case "$TERM" in
+    xterm*|rxvt*)
+        PS1="\[\e]0;${debian_chroot:+($debian_chroot)}\u@\h: \w\a\]$PS1"
+        ;;
+    *)
+        ;;
+esac
+
+# trim prompt path
+export PROMPT_DIRTRIM=3
+
+# find a suitable editor
+e() {
+    $VISUAL "$@"
+}
+export -f e
+
+# no Emacs for root
+# emacs clones, then vim/vi, then... whatever left.
+_VISUALS=(zile mg jed vim vi nano ed)
+for e in "${_VISUALS[@]}"; do
+    if hash "$e" 2>/dev/null; then
+        export VISUAL="$e"
+        break
+    fi
+done
+unset _VISUALS
+export EDITOR=$VISUAL
+
+# append to the history file, don't overwrite it
+shopt -s histappend
+# write history after each command
+export PROMPT_COMMAND="history -a"
+# Add timestamp in history
+export HISTTIMEFORMAT="%d/%m %H:%M "
+# ignore history dups, delete all previous dups
+export HISTCONTROL="ignorespace:ignoredups:erasedups"
+# ignore these in history
+export HISTIGNORE="history *:h:hl:hll:hlll"
+# history size
+HISTSIZE=5000
+HISTFILESIZE=5000
+
+# remove new stupid Debian "ls" quoting, and colors...
+# Many complains, one of them:
+#    https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=813164#226
+export QUOTING_STYLE=literal
+[[ -v BASH_ALIASES[ls] ]] && unalias ls
+
+# aliases/functions for ls and history
+alias l='ls -F'
+alias ls='ls -F'
+alias l1='ls -1F'
+alias la='ls -AF'
+alias ll='ls -lF'
+alias lla='ls -lAF'
+alias ldl='ls -l | grep ^d'
+[[ -v BASH_ALIASES[lrt] ]] && unalias lrt
+lrt() {
+    local -i _l=20
+    if (( $# > 0 )) && [[ $1 =~ [[:digit:]]+ ]]; then
+        _l="$1"
+        shift
+    fi
+    # shellcheck disable=2012
+    ls -lrt "${1:-.}" | tail -"$_l"
+}
+[[ -v BASH_ALIASES[lart] ]] && unalias lart
+lart() {
+    local -i _l=20
+    if (( $# > 0 )) && [[ $1 =~ [[:digit:]]+ ]]; then
+        _l="$1"
+        shift
+    fi
+    # shellcheck disable=2012
+    ls -laFrt "${1:-.}" | tail -"$_l"
+}
+
+alias h="history   10"                            # short
+alias hl="history  25"                            # long
+alias hll="history 100"                           # very long
+alias hlll="history"                              # all history
+
+alias grep='grep --color=auto'                    # add colors to grep
+alias fgrep='fgrep --color=auto'
+alias egrep='egrep --color=auto'
+
+# misc aliases
+alias fuck='sudo $(history -p \!\!)'
+alias diff='diff -u'
+
+# Indent style for emacs
+# Local Variables:
+# mode: shell-script
+# sh-basic-offset: 4
+# sh-indentation: 4
+# indent-tabs-mode: nil
+# comment-column: 32
+# End:

config/home/emacs.d/init.el

@@ -1,7 +1,7 @@
 ;;;; ~/.Emacs.d/init.el
 ;;;;
 ;;;; emacs configuration
-;;;; br, 2010-2023
+;;;; br, 2010-2024
 ;;;;
 ;;;; all personal variables/defun are prefixed with "my/".
 ;;
@@ -15,6 +15,8 @@
 ;; (require 'use-package)
 (package-initialize)
 (setq use-package-always-ensure t)
+;; (setq package-check-signature nil)
+(use-package delight :ensure t)
 
 (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/"))
 ;;(add-to-list 'package-archives '("org" . "http://orgmode.org/elpa/"))
@@ -34,8 +36,7 @@
   "Directory where to store all temp and backup files.")
 (setq backup-directory (concat my/emacs-tmpdir "/backups/")
       save-directory (concat my/emacs-tmpdir "/autosave/")
-      auto-save-list-file-prefix (concat my/emacs-tmpdir "/autosave-list/")
-      )
+      auto-save-list-file-prefix (concat my/emacs-tmpdir "/autosave-list/"))
 
 ;; create dirs if necessary
 (dolist (dir (list backup-directory save-directory auto-save-list-file-prefix))
@@ -76,6 +77,8 @@
 (defun risky-local-variable-p (sym &optional _ignored) "Zoba SYM." nil)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; swap modifier keysyms (japanese keyboard)
+;; Done in .xmodmap
+;;
 ;; windows key (super) becomes hyper
 ;;(setq x-super-keysym 'hyper)
 ;; alt key (meta) becomes super
@@ -254,23 +257,33 @@ Return new LIST-VAR value."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ggtags
 (use-package ggtags
   :ensure t
-  :diminish ggtags-mode
+  :diminish "gg"
   :disabled t
-  :defer t
+  ;; :defer t
+  :after cc-mode
   :init
   (setq ggtags-global-window-height 28
         ggtags-enable-navigation-keys nil)
-
-  (after cc-mode (add-hook 'c-mode-common-hook #'ggtags-mode))
+  (add-hook 'c-mode-common-hook
+            (lambda ()
+              (when (derived-mode-p 'c-mode 'c++-mode 'java-mode)
+                (ggtags-mode 1))))
+  ;;(after cc-mode (add-hook 'c-mode-common-hook #'ggtags-mode))
 
   :config
   (bind-keys :map ggtags-mode-map
-             ("C-c g s" . ggtags-find-other-symbol)
-             ("C-c g h" . ggtags-view-tag-history)
-             ("C-c g r" . ggtags-find-reference)
-             ("C-c g f" . ggtags-find-file)
-             ("C-c g c" . ggtags-create-tags)
-             ("C-c g u" . ggtags-update-tags)
+             ;;("C-c g s" . ggtags-find-other-symbol)
+             ;;("C-c g h" . ggtags-view-tag-history)
+             ;;("C-c g r" . ggtags-find-reference)
+             ;;("C-c g f" . ggtags-find-file)
+             ;;("C-c g c" . ggtags-create-tags)
+             ;;("C-c g u" . ggtags-update-tags)
+             ("H-g s" . ggtags-find-other-symbol)
+             ("H-g h" . ggtags-view-tag-history)
+             ("H-g r" . ggtags-find-reference)
+             ("H-g f" . ggtags-find-file)
+             ("H-g c" . ggtags-create-tags)
+             ("H-g u" . ggtags-update-tags)
              ("M-," 'pop-tag-mark)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; projectile
@@ -278,6 +291,7 @@ Return new LIST-VAR value."
 (use-package projectile
   ;;:diminish projectile-mode
   :diminish " prj"
+  ;; :delight
   :ensure t
   :config
   ;;(define-key projectile-mode-map (kbd "s-p") 'projectile-command-map)
@@ -287,7 +301,9 @@ Return new LIST-VAR value."
         ;;projectile-indexing-method 'alien  ;; does not use ".projectile"
         projectile-indexing-method 'hybrid
         ;;projectile-indexing-method 'native
-        projectile-completion-system 'default)
+        projectile-completion-system 'auto
+        projectile-tags-backend 'ggtags)
+
   (add-to-list 'projectile-globally-ignored-files "*.png")
   (projectile-mode +1))
 
@@ -301,8 +317,10 @@ Return new LIST-VAR value."
   :config
   (setq magit-delete-by-moving-to-trash nil
         magit-clone-default-directory "~/dev/")
-  (magit-auto-revert-mode -1))
-
+  (magit-auto-revert-mode -1)
+  :bind
+  (("C-c g" . magit-file-dispatch)
+   ("C-x g" . magit-status)))
 
 (use-package git-gutter
   :diminish
@@ -340,6 +358,9 @@ Return new LIST-VAR value."
       tramp-verbose 1)
 ;; (customize-set-variable 'tramp-syntax 'simplified)
 
+;; Emacs 29.1 ?
+;;(autoload #'tramp-register-crypt-file-name-handler "tramp-crypt")
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; conf mode
 ;; strangely ".cnf" is not here...
 (use-package conf-mode
@@ -428,12 +449,23 @@ Return new LIST-VAR value."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Some useful setups
 ;; mouse
 ;; does not change point when getting focus - DOES NOT WORK
-;;x-mouse-click-focus-ignore-position t
+;; (setq x-mouse-click-focus-ignore-position t)
 ;;focus-follows-mouse nil                ; must reflect WM settings
 ;;mouse-autoselect-window nil            ; pointer does not select window
 
 (global-set-key (kbd "C-h c") 'describe-char)
 (global-set-key (kbd "C-x 4 C-b") 'switch-to-buffer-other-window)
+(global-unset-key [mode-line mouse-3])            ; disabble annoying modeline mouse-3
+
+;; compilation buffer in different frame
+;; https://emacs.stackexchange.com/a/21393/23591
+;; (push "*compilation*" special-display-buffer-names)
+;; https://emacs.stackexchange.com/a/75534/23591
+(add-to-list 'display-buffer-alist
+             (cons (rx string-start "*compilation*" string-end)
+                   (cons 'display-buffer-reuse-window
+                         '((reusable-frames . visible)
+                           (inhibit-switch-frames . nil)))))
 
 ;; next example maps C-x C-x to the same as C-c
 ;; (global-set-key (kbd "C-x C-x") (lookup-key global-map (kbd "C-c")))
@@ -460,7 +492,7 @@ Return new LIST-VAR value."
       tab-width 2                                 ; default tab width
       )
 
-(setq-default indent-tabs-mode nil)
+(setq-default indent-tabs-mode nil)               ; no tabs
 
 (icomplete-mode 0)                                ; minibuffer completion
                                                   ; soooo sloooow
@@ -476,7 +508,10 @@ Return new LIST-VAR value."
 (setq display-time-24hr-format t)                 ; time format
 (display-time-mode 0)                             ; disable time in the mode-line
 
-(defalias 'yes-or-no-p 'y-or-n-p)                 ; just 'y' or 'n' instead of yes/no
+(if (< emacs-major-version 29)                    ; just 'y' or 'n' instead of yes/no
+    (defalias 'yes-or-no-p 'y-or-n-p)
+  (setopt use-short-answers t))
+(setq duplicate-line-final-position -1)           ; point on last new line
 
 (mouse-avoidance-mode 'exile)                     ; Avoid collision of mouse with point
 
@@ -655,6 +690,7 @@ point reaches the beginning or end of the buffer, stop there."
 
 (global-set-key (kbd "M-u") 'my/upcase-word)
 (global-set-key (kbd "M-l") 'my/downcase-word)
+(global-set-key (kbd "H-y") 'duplicate-dwim)
 
 ;; rewrite comment-kill to avoid filling kill-ring
 ;; From: https://emacs.stackexchange.com/a/5445/23591
@@ -710,6 +746,25 @@ in whole buffer.  With neither, delete comments on current line."
     (while (re-search-forward "\\(^[[:space:]\n]+\\)\n" nil t)
       (replace-match "\n"))))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; multiple cursors
+(use-package multiple-cursors
+  :bind
+  (("C-c m t"       . mc/mark-all-like-this)
+   ("C-c m m"       . mc/mark-all-like-this-dwim)
+   ("C-c m l"       . mc/edit-lines)
+   ("C-c m e"       . mc/edit-ends-of-lines)
+   ("C-c m a"       . mc/edit-beginnings-of-lines)
+   ("C-c m n"       . mc/mark-next-like-this)
+   ("C-c m p"       . mc/mark-previous-like-this)
+   ("C-c m s"       . mc/mark-sgml-tag-pair)
+   ("C-c m d"       . mc/mark-all-like-this-in-defun)
+   ("C->"           . mc/mark-next-like-this)
+   ("C-<"           . mc/mark-previous-like-this)
+   ("C-S-<mouse-1>" . mc/add-cursor-on-click)
+   ("C-M-m"         . mc/mark-all-dwim)))
+(use-package phi-search)
+(use-package phi-search-mc :config (phi-search-mc/setup-keys))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; shell, eshell modes
 ;; will tell e-shell to run in visual mode
 '(eshell-visual-commands
@@ -727,7 +782,7 @@ in whole buffer.  With neither, delete comments on current line."
   "Switch the buffers between the two last frames."
   (interactive)
   (let ((this-frame-buffer nil)
-	      (other-frame-buffer nil))
+        (other-frame-buffer nil))
     (setq this-frame-buffer (car (frame-parameter nil 'buffer-list)))
     (other-frame 1)
     (setq other-frame-buffer (car (frame-parameter nil 'buffer-list)))
@@ -756,19 +811,19 @@ in whole buffer.  With neither, delete comments on current line."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; vc-mode modeline
 ;; inspired from:
 ;; https://emacs.stackexchange.com/questions/10955
-(advice-add #'vc-git-mode-line-string :filter-return #'my-replace-git-status)
-(defun my-replace-git-status (tstr)
-  "Replace git `variable:vc-mode' string, for a modified icon followed by TSTR without \"git\"."
+(advice-add #'vc-git-mode-line-string :filter-return #'my/replace-git-status)
+(defun my/replace-git-status (tstr)
+  "Replace git `variable:vc-mode' string with a UTF8 symbol followed by TSTR."
   (let* ((tstr (replace-regexp-in-string "Git" "" tstr))
          (first-char (substring tstr 0 1))
          (rest-chars (substring tstr 1)))
     (cond
      ((string= ":" first-char)                    ; Modified
-      (replace-regexp-in-string "^:" "⚡️" tstr))
+      (replace-regexp-in-string "^:" "⚡" tstr))
      ((string= "-" first-char)                    ; No change
-      (replace-regexp-in-string "^-" "✔️" tstr))
+      (replace-regexp-in-string "^-" "✔" tstr))
      ((string= "@" first-char)                    ; Added
-      (replace-regexp-in-string "^@" "️✑" tstr))
+      (replace-regexp-in-string "^@" "✚" tstr))
      (t tstr))))
 
 (setf mode-line-modes
@@ -842,41 +897,34 @@ in whole buffer.  With neither, delete comments on current line."
 
 (global-set-key (kbd "C-x w") 'compare-windows)
 
-;; multiple cursors
-(global-set-key (kbd "C->") 'mc/mark-next-like-this)
-(global-set-key (kbd "C-<") 'mc/mark-previous-like-this)
-(global-set-key (kbd "C-c C-<") 'mc/mark-all-like-this)
-(global-set-key (kbd "C-S-<mouse-1>") 'mc/add-cursor-on-click)
-(global-set-key (kbd "C-M-m") 'mc/mark-all-dwim)
+;; as dot-mode uses <insert>, we allow overwrite-mode with S-<insert>
+(global-set-key (kbd "S-<insert>") 'overwrite-mode)
 
-(global-set-key (kbd "C-x g") 'magit-status)
-
-;; (global-set-key (kbd "s-SPC") 'delete-blank-lines)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; define my own keymap (s-c)
 ;; first, define a keymap, with Super-c as prefix.
-(defvar my/keys-mode-map (make-sparse-keymap)
-  "Keymap for my/keys-mode.")
+;; (defvar my/keys-mode-map (make-sparse-keymap)
+;;   "Keymap for my/keys-mode.")
 
-(defvar my/keys-mode-prefix-map (lookup-key global-map (kbd "s-c"))
-  "Keymap for custom key bindings starting with s-c prefix.")
+;; (defvar my/keys-mode-prefix-map (lookup-key global-map (kbd "s-c"))
+;;   "Keymap for custom key bindings starting with s-c prefix.")
 
-;; (define-key my/keys-mode-map (kbd "s-c") my/keys-mode-prefix-map)
+;; ;; (define-key my/keys-mode-map (kbd "s-c") my/keys-mode-prefix-map)
 
-(define-minor-mode my/keys-mode
-  "A minor mode for custom key bindings."
-  :lighter "s-c"
-  :keymap 'my/keys-mode-map
-  :global t)
+;; (define-minor-mode my/keys-mode
+;;   "A minor mode for custom key bindings."
+;;   :lighter "s-c"
+;;   :keymap 'my/keys-mode-map
+;;   :global t)
 
-(defun my/prioritize-keys
-    (file &optional noerror nomessage nosuffix must-suffix)
-  "Try to ensure that custom key bindings always have priority."
-  (unless (eq (caar minor-mode-map-alist) 'my/keys-mode)
-    (let ((my/keys-mode-map (assq 'my/keys-mode minor-mode-map-alist)))
-      (assq-delete-all 'my/keys-mode minor-mode-map-alist)
-      (add-to-list 'minor-mode-map-alist my/keys-mode-map))))
+;; (defun my/prioritize-keys
+;;     (file &optional noerror nomessage nosuffix must-suffix)
+;;   "Try to ensure that custom key bindings always have priority."
+;;   (unless (eq (caar minor-mode-map-alist) 'my/keys-mode)
+;;     (let ((my/keys-mode-map (assq 'my/keys-mode minor-mode-map-alist)))
+;;       (assq-delete-all 'my/keys-mode minor-mode-map-alist)
+;;       (add-to-list 'minor-mode-map-alist my/keys-mode-map))))
 
-(advice-add 'load :after #'my/prioritize-keys)
+;; (advice-add 'load :after #'my/prioritize-keys)
 
 ;;(global-set-key (kbd "C-c t") #'make-temp-buffer)
 ;;(define-key my/keys-mode-prefix-map (kbd "r b") #'revert-buffer)
@@ -891,11 +939,13 @@ in whole buffer.  With neither, delete comments on current line."
   :diminish helm-mode
   :init
   ;;(progn
-  ;;(require 'helm-config)
-  ;;(require 'helm-autoloads)
+  ;;  (require 'helm-config)
+  ;;  (require 'helm-autoloads)
   (require 'pcomplete)
   (require 'helm-projectile)
+  ;; (require 'tramp)
   (setq
+
    helm-candidate-number-limit 100
    ;; From https://gist.github.com/antifuchs/9238468
    helm-split-window-inside-p t                   ; open helm buffer in current window
@@ -917,6 +967,8 @@ in whole buffer.  With neither, delete comments on current line."
    helm-scroll-amount 8                           ; scroll 8 lines other window M-<NEXT>
 
    helm-ff-file-name-history-use-recentf t
+   helm-move-to-line-cycle-in-source nil
+   ;; helm-ff-auto-update-initial-value nil
    helm-echo-input-in-header-line t)              ; ??
   ;;)
   (helm-mode)
@@ -941,10 +993,19 @@ in whole buffer.  With neither, delete comments on current line."
    ("<tab>" . helm-execute-persistent-action)
    ("C-i" . helm-execute-persistent-action)       ; make TAB works in terminal
    ("C-z" . helm-select-action)                   ; list actions using C-z
-
-   ;; bookmarks
-
-   ))
+   )
+   ;;("<left>" . helm-previous-source)
+   ;;("<right>" . helm-next-source)
+   ;;:map helm-imenu-map
+   ;;("<left>" . helm-previous-source)
+   ;;("<right>" . helm-next-source)
+   ;;:map helm-find-files-map
+   ;;("<left>" . helm-previous-source)
+   ;;("<right>" . helm-next-source))
+  :bind*
+  (:map helm-find-files-map
+   ("<left>" . helm-previous-source)
+   ("<right>" . helm-next-source)))
 
 (use-package helm-swoop
   :bind
@@ -995,27 +1056,59 @@ in whole buffer.  With neither, delete comments on current line."
   ;;(define-key whole-line-or-region-local-mode-map [remap uncomment-region] nil)
   )
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; undo tree
-(use-package undo-tree
-  :diminish undo-tree-mode
-  :defer t
-  :init
-  (progn
-    (defalias 'redo 'undo-tree-redo)
-    (defalias 'undo 'undo-tree-undo)
-    (global-undo-tree-mode 1))
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; vundo / undo-tree / winner
+;; vundo config from :
+;; https://www.reddit.com/r/emacs/comments/txwwfi/vundo_is_great_visual_undotree_for_emacs28/
+(use-package vundo
+  :commands (vundo)
+
   :config
-  (progn
-    (setq undo-tree-visualizer-timestamps t
-          undo-tree-visualizer-diff t
-          undo-tree-enable-undo-in-region t
-          ;;undo-tree-auto-save-history t
-          )
-    (let ((undo-dir (concat my/emacs-tmpdir "/undo-tree/")))
-      (setq undo-tree-history-directory-alist
-            `(("." . ,undo-dir)))
-      (unless (file-exists-p undo-dir)
-        (make-directory undo-dir t)))))
+  ;; Take less on-screen space.
+  (setq vundo-compact-display t)
+
+  ;; Better contrasting highlight.
+  (custom-set-faces
+    '(vundo-node ((t (:foreground "#808080"))))
+    '(vundo-stem ((t (:foreground "#808080"))))
+    '(vundo-highlight ((t (:foreground "#FFFF00")))))
+
+  ;; Use `HJKL` VIM-like motion, also Home/End to jump around.
+  ;; (define-key vundo-mode-map (kbd "l") #'vundo-forward)
+  (define-key vundo-mode-map (kbd "<right>") #'vundo-forward)
+  ;; (define-key vundo-mode-map (kbd "h") #'vundo-backward)
+  (define-key vundo-mode-map (kbd "<left>") #'vundo-backward)
+  ;; (define-key vundo-mode-map (kbd "j") #'vundo-next)
+  (define-key vundo-mode-map (kbd "<down>") #'vundo-next)
+  ;; (define-key vundo-mode-map (kbd "k") #'vundo-previous)
+  (define-key vundo-mode-map (kbd "<up>") #'vundo-previous)
+  (define-key vundo-mode-map (kbd "<home>") #'vundo-stem-root)
+  (define-key vundo-mode-map (kbd "<end>") #'vundo-stem-end)
+  (define-key vundo-mode-map (kbd "q") #'vundo-confirm)
+  (define-key vundo-mode-map (kbd "C-g") #'vundo-quit)
+  (define-key vundo-mode-map (kbd "RET") #'vundo-confirm))
+
+(global-set-key (kbd "C-x u") 'vundo)
+
+;; (use-package undo-tree
+;;   :diminish undo-tree-mode
+;;   :defer t
+;;   :init
+;;   (progn
+;;     (defalias 'redo 'undo-tree-redo)
+;;     (defalias 'undo 'undo-tree-undo)
+;;     (global-undo-tree-mode 1))
+;;   :config
+;;   (progn
+;;     (setq undo-tree-visualizer-timestamps t
+;;           undo-tree-visualizer-diff t
+;;           undo-tree-enable-undo-in-region t
+;;           ;;undo-tree-auto-save-history t
+;;           )
+;;     (let ((undo-dir (concat my/emacs-tmpdir "/undo-tree/")))
+;;       (setq undo-tree-history-directory-alist
+;;             `(("." . ,undo-dir)))
+;;       (unless (file-exists-p undo-dir)
+;;         (make-directory undo-dir t)))))
 
 ;; useful to come back to working window after a buffer has popped up
 ;; C-c <left> to come back
@@ -1040,7 +1133,8 @@ in whole buffer.  With neither, delete comments on current line."
         ;; ([return] . nil)
         ("TAB" . company-complete-selection)
         ;; ([tab] . company-complete-selection)
-        ("<right>" . company-complete-common))
+        ;;("<right>" . company-complete-common)
+        )
   :config
   ;; Too slow !
   ;; (global-company-mode 1)
@@ -1170,13 +1264,19 @@ in whole buffer.  With neither, delete comments on current line."
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; makefile mode
 (defun my/makefile-mode-hook ()
-  "X br text mode hook."
-  (message "entering Makefile-mode")
+  "X br makefile mode hook."
+  ;; (message "entering Makefile-mode")
   (setq indent-tabs-mode t
-        tab-width 4
-        comment-column 60))
+        tab-width 8
+        comment-column 60
+        comment-fill-column 120)
+  ;;(defadvice comment-indent (around indent-to activate)
+  ;;  "Disable indent-tab-mode when indenting comment."
+  ;;  (lambda (fun &rest args) (let (indent-tabs-mode) (apply fun args))))
 
-(add-hook 'text-mode-hook 'my/text-mode-hook)
+)
+
+(add-hook 'makefile-mode-hook 'my/makefile-mode-hook)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; org mode
 ;; mediawiki export
@@ -1333,7 +1433,15 @@ in whole buffer.  With neither, delete comments on current line."
         comment-auto-fill-only-comments nil
         comment-style 'extra-line))
 
-(add-hook 'c-mode-hook 'my/c-style)
+(use-package cc-mode
+    :ensure nil
+    :config
+    (add-hook 'c-mode-common-hook
+              (lambda ()
+                ;;(when (derived-mode-p 'c-mode 'c++-mode 'java-mode 'asm-mode)
+                (when (derived-mode-p 'c-mode)
+                  (ggtags-mode 1))))
+    (add-hook 'c-mode-hook 'my/c-style))
 
 ;;;;;;;;;;;;; linux kernel style
 (defun c-lineup-arglist-tabs-only (ignored)
@@ -2112,8 +2220,8 @@ The output will appear in the buffer *PHP*."
 ;;; c-mode
     (sp-with-modes '(c-mode c++-mode)
       (sp-local-pair "{" nil :post-handlers '(("||\n[i]" "RET")))
-      (sp-local-pair "/*" "*/" :post-handlers '((" | " "SPC")
-                                                      ("* ||\n[i]" "RET"))))
+      (sp-local-pair "/*" "*/" :post-handlers '(("| " "SPC")
+                                                ("* ||\n[i]" "RET"))))
 ;;; markdown-mode
     (sp-with-modes '(markdown-mode gfm-mode rst-mode)
       (sp-local-pair "*" "*" :bind "C-*")
@@ -2146,7 +2254,7 @@ The output will appear in the buffer *PHP*."
  'sh-mode-hook
  (lambda ()
    (setq indent-tabs-mode nil
-      	 tab-width 4
+         tab-width 4
          sh-basic-offset 4
          comment-column 50
          comment-auto-fill-only-comments t
@@ -2171,7 +2279,7 @@ The output will appear in the buffer *PHP*."
         ;;lsp-enable-on-type-formatting      nil
         lsp-enable-snippet                 nil
         lsp-enable-symbol-highlighting     t
-        lsp-lens-enable                    t
+        lsp-lens-enable                    nil
         lsp-headerline-breadcrumb-enable   t
         lsp-enable-indentation             nil
         lsp-enable-on-type-formatting      nil
@@ -2180,6 +2288,8 @@ The output will appear in the buffer *PHP*."
         lsp-modeline-code-actions-enable   t
         lsp-modeline-code-actions-segments '(count icon name)
         lsp-signature-render-documentation t)
+  ;;(define-key lsp-mode-map (kbd "<mouse-3>") nil)
+  ;;(define-key lsp-mode-map (kbd "C-S-<mouse-3>") 'lsp-mouse-click)
   :hook
   ((sh-mode  . lsp-deferred)
    ;;(c-mode-common . lsp-deferred)
@@ -2189,14 +2299,22 @@ The output will appear in the buffer *PHP*."
   :ensure t
   ;;:diminish
   :config
-  (setq ; lsp-ui-doc-show-with-cursor        t
-        ; lsp-ui-doc-show-with-mouse         t
-        lsp-ui-sideline-enable             t
-        lsp-ui-sideline-show-code-actions  t
-        lsp-ui-sideline-enable             t
+  (setq lsp-ui-doc-show-with-cursor        t
+        lsp-ui-doc-show-with-mouse         nil    ; breaks isearch
+
+        lsp-ui-sideline-enable             nil    ; too messy
         lsp-ui-sideline-show-hover         t
-        lsp-ui-sideline-enable             t
-        lsp-ui-doc-enable                  nil)
+        lsp-ui-sideline-show-symbol        t
+        lsp-ui-sideline-show-code-actions  t
+        ;; lsp-ui-doc-enable                  nil
+        ;; TRIED 2024/02/26
+        lsp-ui-doc-enable                  t
+        lsp-ui-doc-max-width               80
+        lsp-ui-doc-max-height              20
+        lsp-ui-doc-include-signature       t      ; type signature in doc
+        lsp-ui-doc-enhanced-markdown       t      ; looks b0rken (lists...)
+        lsp-ui-doc-position                'top   ; top/bottom/at-point
+        lsp-ui-doc-alignment               'window)
 
   :commands
   (lsp-ui-mode)
@@ -2219,7 +2337,7 @@ The output will appear in the buffer *PHP*."
   :diminish " ccls"
   :init
   (setq ccls-initialization-options
-	      '(:index (:comments 2) :completion (:detailedLabel t)))
+        '(:index (:comments 2) :completion (:detailedLabel t)))
   (setq-default flycheck-disabled-checkers '(c/c++-clang c/c++-cppcheck c/c++-gcc))
   (setq ccls-sem-highlight-method 'font-lock)
   ;; alternatively,
@@ -2318,11 +2436,22 @@ at beginning and end of lines."
       (while (re-search-forward "[ \t]+" nil t)
         (replace-match " "))
       ;; remove spaces at lines beginning
-      (goto-char (point-min))
-      (while (re-search-forward "^[ \t]+" nil t)
-        (replace-match ""))
+      ;;(goto-char (point-min))
+      ;;(while (re-search-forward "^[ \t]+" nil t)
+      ;;  (replace-match ""))
       ;; remove spaces at line start/end
-      (delete-trailing-whitespace))))
+      ;(delete-trailing-whitespace)
+      )))
+
+(defun my/align-c-array (beg end)
+  "Align array declaration on commas between BEG and END."
+  (interactive "r")
+  (save-excursion
+    (save-restriction
+      (narrow-to-region beg end)
+      (my/trim-spaces (point-min) (point-max))
+      (align-regexp (point-min) (point-max) "\\(\\s-[[:alnum:]-_]+,\\)" -1 1 t)
+      (indent-region (point-min) (point-max) nil))))
 
 (defun my/align (beg end)
   "Align columns with spaces."

config/home/emacs.d/lorien.el

@@ -36,16 +36,18 @@
   (defconst my/loaded-files-at-startup
     (list
      "~/dev/brchess/Makefile"
-     "~/dev/tools/c/Makefile"
-     "~/org/boot-disk.org"
-     "~/org/beaglebone-buster-setup.org"
+     "~/dev/brlib/Makefile"
+     ;;"~/org/boot-disk.org"
+     ;;"~/org/beaglebone-buster-setup.org"
      ;;"~/dev/www/cf.bodi/sql/coc.sql"
      ;;"~/dev/www/cf.bodi/sql/coc-sql.org"
-      user-init-file
-      "~/org/emacs-cheatsheet.org"
+     user-init-file
+     ;; "~/dev/tools/bash/Makefile"
+     "~/dev/brchess/src/board.c"
+     "~/org/emacs-cheatsheet.org")
       ;;"~/dev/g910/g910-gkey-macro-support/lib/data_mappers/char_uinput_mapper.py"
-      "~/dev/advent-of-code/2022/Makefile"
-      "~/dev/www/com.raoult/devs/php/chess/list-pgn-games.php")
+      ;;"~/dev/advent-of-code/2022/Makefile"
+      ;;"~/dev/www/com.raoult/devs/php/chess/list-pgn-games.php")
       ;; "~/dev/eudyptula/ID")
     "personal files always loaded at startup (no visible window).")