iankelling.org Git - distro-setup/blob - my-update-info-dir

   1 #!/bin/bash
   2 # I, Ian Kelling, follow the GNU license recommendations at
   3 # https://www.gnu.org/licenses/license-recommendations.en.html. They
   4 # recommend that small programs, < 300 lines, be licensed under the
   5 # Apache License 2.0. This file contains or is part of one or more small
   6 # programs. If a small program grows beyond 300 lines, I plan to switch
   7 # its license to GPL.
   8
   9 # Copyright 2024 Ian Kelling
  10
  11 # Licensed under the Apache License, Version 2.0 (the "License");
  12 # you may not use this file except in compliance with the License.
  13 # You may obtain a copy of the License at
  14
  15 #     http://www.apache.org/licenses/LICENSE-2.0
  16
  17 # Unless required by applicable law or agreed to in writing, software
  18 # distributed under the License is distributed on an "AS IS" BASIS,
  19 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  20 # See the License for the specific language governing permissions and
  21 # limitations under the License.
  22
  23
  24
  25 INFODIR=/usr/share/info
  26 sudo rm -f "$INFODIR/dir"
  27
  28 shopt -s nullglob
  29
  30 for dir in $(emacs --batch --eval '(progn(package-initialize) (dolist (x Info-directory-list) (message x)))' |& sed 's,/$,,' | sort -u); do
  31
  32   case ${dir%/} in
  33     # this is from /usr/sbin/update-info-dir
  34     */info)
  35
  36       find $dir -type f | while read -r file ; do
  37         case $file in
  38           */dir|*/dir.gz|*/dir.old|*/dir.old.gz|*-[0-9]|*-[0-9].gz|*-[1-9][0-9]|*-[1-9][0-9].gz|*.png|*.jpg)
  39             # these files are ignored
  40             continue
  41             ;;
  42           *)
  43             echo $file
  44             sudo install-info "$file" "$INFODIR/dir"
  45             ;;
  46         esac
  47       done
  48       ;;
  49     # ignore relative
  50     [^/]*) : ;;
  51     *)
  52       for file in "$dir"/*.info*; do
  53         echo $file
  54         sudo install-info "$file" "$INFODIR/dir"
  55       done
  56       ;;
  57   esac
  58 done