#!/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.



# note: starting emacs server can hang due to errors in init files
# which don't cause problems for non-server emacs. And things
# that aren't errors can cause hang too, like when I added gnus
# git to load path.

# I was experimenting with running
# under gdb always to diagnose any hangs/crashes
# and it won't work due to a gdb crash:
# gdb -ex="set follow-fork-mode child" -ex=r -ex=quit --args emacsclient -nc
# -n = --no-wait, go into background
# -c = create new frame instead of reusing the current frame
# -a = alternate editor, empty string makes it start emacs daemon.
# This is also set via env variable, but that doesn't propagate everywhere.


g() {

  local args gdb=false

  if [[ $DISPLAY ]]; then
    args=-n
  fi

  if (( $# == 0 )); then
    args+=" -c"
  fi
  # duplicate -c, but oh well
  if ! pgrep -u $EUID emacsclient &>/dev/null; then
    if (( $# == 0 )) && type -p gdb &>/dev/null; then
      gdb=true
    else
      args+=" -c"
    fi
  fi
  if $gdb; then
    # due to a bug, we cant debug from the start unless we get a new gdb
    # https://sourceware.org/bugzilla/show_bug.cgi?id=24454
    # m gdb -ex="set follow-fork-mode child" -ex=r -ex=quit --args emacs --daemon
    emacsclient -a "" $args "$@"
    sleep 1
    cd "/a/opt/emacs-$(distro-name)$(distro-num)"
    sudo gdb -p "$(pgrep -f 'emacs --daemon')" -ex c
    cd -
  else
    emacsclient -a "" $args "$@"
  fi
}

g "$@"