artyom-poptsov

#!/usr/bin/guile \
-e main -s
!#

(define (main args)
  (display "Locale is not set: ♥\n")
  (setlocale LC_ALL "en_US.UTF-8")
  (display "Locale is set: ♥\n"))

artyom-poptsov

#!/usr/bin/guile \
 -e main
!#

;; See <https://github.com/artyom-poptsov/guile-ssh/tree/wip-distributed-forms>

(use-modules (ssh session)
             (ssh auth)
             (ssh dist))

artyom-poptsov

#!/usr/bin/guile \
-e main
!#

(use-modules (ssh session)
             (ssh auth)
             (ssh key)
             (ssh tunnel))

(define (main args)

artyom-poptsov

;; define*-like macro that allows to use keywords with GOOPS'
;; define-method.
(define-syntax define-method*
  (syntax-rules ()
    ((_ (m (o <class>) (var defval) ...) body ...)
     (define-method (m (o <class>) . args)
       (let-keywords args #t ((var defval) ...)
                     body ...)))))

artyom-poptsov

#!/usr/bin/guile \
--debug -e main
# aside from this initial boilerplate, this is actually -*- scheme -*- code
!#

;;; client.scm -- Echo client example.

;; Copyright (C) 2014 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;
;; This program is free software: you can redistribute it and/or

artyom-poptsov

#!/usr/bin/guile \
--debug -e main
!#

;;; sssh.scm -- Scheme Secure Shell.

;; Copyright (C) 2013 Artyom V. Poptsov <poptsov.artyom@gmail.com>
;;
;; This program is free software: you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as

artyom-poptsov

backtick 1 1 1 /home/$USER/bin/bwstat.sh eth0

hardstatus alwayslastline '%{= G}[%= %{= w}%?%-Lw%?%{= R}%n*%f %t%?%{= R}(%u)%?%{= w}%+Lw%?%= %{= g}][ %{y}%1`%{g} ][ %{y}L: %l %{g}]'