#!/bin/bash
# I, Ian Kelling, follow the GNU license recommendations at
# https://www.gnu.org/licenses/license-recommendations.en.html. They
# recommend that small programs, < 300 lines, be licensed under the
# Apache License 2.0. This file contains or is part of one or more small
# programs. If a small program grows beyond 300 lines, I plan to switch
# its license to GPL.

# Copyright 2024 Ian Kelling

# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at

#     http://www.apache.org/licenses/LICENSE-2.0

# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.



INFODIR=/usr/share/info
sudo rm -f "$INFODIR/dir"

shopt -s nullglob

for dir in $(emacs --batch --eval '(progn(package-initialize) (dolist (x Info-directory-list) (message x)))' |& sed 's,/$,,' | sort -u); do

  case ${dir%/} in
    # this is from /usr/sbin/update-info-dir
    */info)

      find $dir -type f | while read -r file ; do
        case $file in
          */dir|*/dir.gz|*/dir.old|*/dir.old.gz|*-[0-9]|*-[0-9].gz|*-[1-9][0-9]|*-[1-9][0-9].gz|*.png|*.jpg)
            # these files are ignored
            continue
            ;;
          *)
            echo $file
            sudo install-info "$file" "$INFODIR/dir"
            ;;
        esac
      done
      ;;
    # ignore relative
    [^/]*) : ;;
    *)
      for file in "$dir"/*.info*; do
        echo $file
        sudo install-info "$file" "$INFODIR/dir"
      done
      ;;
  esac
done