Re: [STUMP] [PATCH] Add ~/.stumpwm.d/config as an init-file option

Thank you. I've created a fork and pull request and I look forward to
any discussion or its acceptance.

Please be patient with me. Until yesterday my Git experience was limited
to clones and pulls, and today I'm hip-deep in checkouts, forks,
commits, and several other things I've already forgotten in the past
hour. After confronting Git, I don't know whether to give up beer or
drink more of it. ;-)

-- 
Edward Trumbo

"In Emacs Veritas."


David Bjergaard <[email protected]> writes:

> Pull requests welcome! I'll merge this patch when I get a chance.  
>
>     Dave
>
> Edward Trumbo <[email protected]> writes:
>
>> This is a revised version of my patch, incorporating J David Smith's
>> suggestion to use the more Lispy/Emacsey "~/.stumpwm.d/init.lisp" as the
>> option for an init file.
>>
>> On a related note, I'd like to see the options for init-file placement
>> get more "press". Our documentation (Info/Wiki/etc.) doesn't mention
>> this anywhere, to my knowledge. I'd like to amend the relevant section
>> of the wiki with some references to it, and possibly even add a page in
>> the manual. First, I think we should see whether this patch merits
>> inclusion in the code base. 
>>
>> ---
>>  stumpwm.lisp | 4 +++-
>>  1 file changed, 3 insertions(+), 1 deletion(-)
>>
>> diff --git a/stumpwm.lisp b/stumpwm.lisp
>> index 0a38fef..dd13023 100644
>> --- a/stumpwm.lisp
>> +++ b/stumpwm.lisp
>> @@ -43,10 +43,12 @@ further up. "
>>                   dir)))
>>           (user-rc
>>             (probe-file (merge-pathnames #p".stumpwmrc" (user-homedir-pathname))))
>> +         (dir-rc
>> +           (probe-file (merge-pathnames #p".stumpwm.d/init.lisp" (user-homedir-pathname))))
>>           (conf-rc
>>             (probe-file (merge-pathnames #p"stumpwm/config" xdg-config-dir)))
>>           (etc-rc (probe-file #p"/etc/stumpwmrc"))
>> -         (rc (or user-rc conf-rc etc-rc)))
>> +         (rc (or user-rc dir-rc conf-rc etc-rc)))
>>      (if rc
>>          (if catch-errors
>>              (handler-case (load rc)
>> -- 
>> 1.8.4