Package: freetalk
Version: 0.5-2
Currently, freetalk loads a lot of files upon startup. One of
them is beep.scm. However, some users may prefer the client not
to beep upon each and every message. You guessed it, I am among
those.
However,.freetalk/freetalk.scm is loaded before init.scm, the
systemwide init script is evaluated. Due to this, the system
wide settings always overwrite local settings.
Interestingly, init.scm already has a hook for adding local
extensions after the login. It's just not evaluated and the
respective file is not there.
Hence, I've taken the opportunity of writing one, so that the
user can place post-login.scm in their .freetalk directory. If
it exists, the file will be evaluated, and the user is able to
overwrite system-wide defaults, just as one would expect it.
Please consider adding this to the Debian package and maybe
even forwarding it upstream. The patch for init.scm and the
post-login-extensions-here.scm file are attached.
Regards,
Joey
--
Of course, I didn't mean that, which is why I didn't say it.
What I meant to say, I said. -- Thomas Bushnell
Please always Cc to me when replying to me on the lists.
--- init.scm.orig 2006-05-14 21:58:23.000000000 +0200
+++ init.scm 2006-05-14 21:58:32.000000000 +0200
@@ -48,7 +48,7 @@
;; FIXME: login.scm should not be loaded when run in script mode.
; (ft-load "login.scm")
- ; (ft-load "post-login-extensions-here.scm")
+ (ft-load "post-login-extensions-here.scm")
)
(lambda (k args . opts)
(display "\n~qp~ ~qp~ ~qp~ ~qp~ ~qp~ ~qp~")
;;; post-login-extensions-here.scm: load private post-login.scm
;;; author: Joey Schulze <[EMAIL PROTECTED]>
;;; Copyright 2006
;;; 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 2, 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, write to the Free Software
;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA
(let ((fname (string-append (getenv "HOME") "/" ".freetalk/post-login.scm")))
(if (file-exists? fname)
(ft-load fname)
)
)
