iankelling.org Git - distro-setup/blob - g

   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 # note: starting emacs server can hang due to errors in init files
  26 # which don't cause problems for non-server emacs. And things
  27 # that aren't errors can cause hang too, like when I added gnus
  28 # git to load path.
  29
  30 # I was experimenting with running
  31 # under gdb always to diagnose any hangs/crashes
  32 # and it won't work due to a gdb crash:
  33 # gdb -ex="set follow-fork-mode child" -ex=r -ex=quit --args emacsclient -nc
  34 # -n = --no-wait, go into background
  35 # -c = create new frame instead of reusing the current frame
  36 # -a = alternate editor, empty string makes it start emacs daemon.
  37 # This is also set via env variable, but that doesn't propagate everywhere.
  38
  39
  40 g() {
  41
  42   local args gdb=false
  43
  44   if [[ $DISPLAY ]]; then
  45     args=-n
  46   fi
  47
  48   if (( $# == 0 )); then
  49     args+=" -c"
  50   fi
  51   # duplicate -c, but oh well
  52   if ! pgrep -u $EUID emacsclient &>/dev/null; then
  53     if (( $# == 0 )) && type -p gdb &>/dev/null; then
  54       gdb=true
  55     else
  56       args+=" -c"
  57     fi
  58   fi
  59   if $gdb; then
  60     # due to a bug, we cant debug from the start unless we get a new gdb
  61     # https://sourceware.org/bugzilla/show_bug.cgi?id=24454
  62     # m gdb -ex="set follow-fork-mode child" -ex=r -ex=quit --args emacs --daemon
  63     emacsclient -a "" $args "$@"
  64     sleep 1
  65     cd "/a/opt/emacs-$(distro-name)$(distro-num)"
  66     sudo gdb -p "$(pgrep -f 'emacs --daemon')" -ex c
  67     cd -
  68   else
  69     emacsclient -a "" $args "$@"
  70   fi
  71 }
  72
  73 g "$@"