Skip to content
This repository has been archived by the owner on Jun 18, 2020. It is now read-only.

Commit

Permalink
No longer rely on a custom C library.
Browse files Browse the repository at this point in the history
  • Loading branch information
lehitoskin committed Mar 2, 2015
1 parent 42e011c commit 4b55a69
Show file tree
Hide file tree
Showing 3 changed files with 16 additions and 6 deletions.
13 changes: 12 additions & 1 deletion README.md
Original file line number Diff line number Diff line change
Expand Up @@ -2,11 +2,22 @@ Blight
======
[![Build Status](http://jenkins.libtoxcore.so/job/Blight-Debian/badge/icon)](http://jenkins.libtoxcore.so/job/Blight-Debian/)

Blight is a cross-platform graphical user interface for [Tox](https://github.com/irungentoo/toxcore) written in [Racket](http://racket-lang.org/) that utilizes [libtoxcore-racket](https://github.com/lehitoskin/libtoxcore-racket).
Blight is a cross-platform graphical user interface for [Tox](https://github.com/irungentoo/toxcore) written in [Racket](http://racket-lang.org/) that utilizes [libtoxcore-racket](https://github.com/lehitoskin/libtoxcore-racket) and [libopenal-racket](https://github.com/lehitoskin/libopenal-racket).
In very early pre-alpha stage. All help and testing appreciated.

![Blight Screenshot](https://raw.github.com/lehitoskin/blight/master/screenshot-2015-01-01.png "Blight Screenshot")

## Prerequisites

- Racket (version 6.0.1 or higher)

- Toxcore

- OpenAL

- libtoxcore-racket

- libopenal-racket

## Installation

Expand Down
5 changes: 2 additions & 3 deletions dns/toxdns.rkt
Original file line number Diff line number Diff line change
Expand Up @@ -6,12 +6,11 @@
"../number-conversions.rkt"
"../utils.rkt"
libtoxcore-racket/dns
libtoxcore-racket/blight
racket/bool
racket/list)

(provide tox-dns1
tox-dns3)
#;tox-dns3)

; obtain our nameserver
(define nameserver (make-ip-address (dns-find-nameserver)))
Expand Down Expand Up @@ -60,7 +59,7 @@

; procedure to send a tox dns3 request and obtain a tox ID
; in an encrypted manner
(define tox-dns3
#;(define tox-dns3
(λ (nick domain)
; we're sending to toxme.se
(cond [(string=? domain "toxme.se")
Expand Down
4 changes: 2 additions & 2 deletions gui/add-friend.rkt
Original file line number Diff line number Diff line change
Expand Up @@ -112,7 +112,7 @@
(and (string=? hex-tfield "")
(and (not (string=? nick-tfield ""))
; make sure we get a response from the DNS
(not (false? (tox-dns3 nick-tfield domain)))))
(not (false? (tox-dns1 nick-tfield domain)))))
; the nick field is empty, hex field cannot be empty
(and (string=? nick-tfield "")
; make sure hex field is a proper tox id
Expand All @@ -129,7 +129,7 @@
; we're doing a dns lookup
[(string=? hex-tfield "")
; obtain the id from the dns query
(define friend-hex (tox-dns3 nick-tfield domain))
(define friend-hex (tox-dns1 nick-tfield domain))
; obtain the byte form of the id
(set! nick-bytes
(hex-string->bytes
Expand Down

0 comments on commit 4b55a69

Please sign in to comment.