This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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}]' |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; 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 ...))))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/guile \ | |
-e main | |
!# | |
(use-modules (ssh session) | |
(ssh auth) | |
(ssh key) | |
(ssh tunnel)) | |
(define (main args) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/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")) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/guile \ | |
-e main -s | |
!# | |
;;; sscp.scm -- Scheme Secure Copy implementation. | |
;; Copyright (C) 2015 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/guile \ | |
-e main -s | |
!# | |
;;; rcat.scm -- Remote 'cat' | |
;; Copyright (C) 2015 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/bash | |
### summary.sh -- Summarize the data. | |
# Copyright (C) 2015 Artyom V. Poptsov <poptsov.artyom@gmail.com> | |
# | |
# To the extent possible under law, the person who associated CC0 with | |
# this work has waived all copyright and related or neighboring rights | |
# to this work. See | |
# <https://creativecommons.org/publicdomain/zero/1.0/> |
OlderNewer