castanyes blaves

Words I should use more often

Something represents a "hitherto" adjective something else

That is a +1 in any scientific paper

Guess the quote

"The time will come ... when we shall have very fairly true genealogical trees of each kingdom of nature"

Hints: Bearded, hobbyist to long-sailing travels and tortugues...

Hardee Thickburger

From Hardee's press release of Nov. 15, 2004:

Now Hardee's is introducing the mother of all burgers – the Monster Thickburger™. Weighing in at two-thirds of a pound, this 100 percent Angus beef burger is a monument to decadence, yet is still a throwback, as it features lots of meat, cheese and bacon on a bun.

Jay Leno joked that it was being served in little cardboard boxes shaped like coffins.

Your penguin is buzzing

Motorola will introduce eight to 10 Linux smartphones in 2005, according to its Taiwanese division, as quoted by the DigiTimes, an IT-focused daily paper in Taiwan. More than a quarter of the company's new phone launches for the year will be Linux smartphones, the article says.

http://www.linuxdevices.com/news/NS6234428742.html

Phone vendors pay about $12 per phone for Symbian, and more for Microsoft phone OSes. Linux development costs are estimated to be slightly higher initially, it suggests, but are recovered over time due to the huge volumes of mobile handsets, resulting in cost savings. Additionally, Linux can run on less expensive hardware, according to Openwave.

en.wikipedia.org/chowder

Chowder is any of a variety of soups, most of them thick. To some Americans, it means clam chowder, made with cream or milk in most places, or with tomato as "Manhattan clam chowder." Corn chowder is a thick soup filled with whole corn (maize) kernels. Chowder is often commonly associated with the New England region of the United States.

The word chowder comes from the pot it is cooked in, a French chaudière "a pot," developed from chaud, "hot". The word "chowder" is a New England word that came from Newfoundland, where Breton fishermen introduced the word, and perhaps the fish soup itself (compare bouillabaisse).

Learning Emacs 3rd

Dired mode is a great tool. Now that I have learned how to work with it in the book, I find it really wise. Much more productive file managing, because one can mark different files, and then execute an order on them.

Discovered Pricenoia

Pricenoia is a price comparer for international shipping, exchange rates, in different countries, for Amazon shops.

The not so long introduction ot LaTeX2e

Disadvantages of LaTeX:

- your hamster might, despite some encouraging first steps, never be able to fully grasp the concept of Logical Markup.

Vodafone Blackberry 7100v

This is a new service that will bring email and web surfing on a PDA for a flat rate of 29EUR/month.

It has 32MB of space to download files, and can be connected to the computer or laptop via USB, to sync or download the emails and files.

Sadly, no direct connection is possible btw the laptop and the PDA, so the browsing has to be done via the PDA, then transferred to the computer.

I wonder if there is any way to by-pass this with Linux...

The Bus

if you happen to pick the bus from IGU to BCN at 8:00 during the week, pick the second bus: leaves 5 min later but arrives earlier

70 kms * 45min/80kms = 42 min

(70 kms * 45min/100kms) + 5 min = 36.5 min

Beagle: it's crawling! it's alive!

I spent some time this afternoon trying to install beagle on my laptop (under FC3). God! Is so useful!

Now I can look for insults and I get the IM logs of conversations I had.

No, seriously: having 150 scientific papers indexed is awesome. I can query them anyway I want, which makes a lot easier to relate the differents aspects of my phd project into a meaningful report.

This is still version 0.0.6, so there are some rough edges:

- mono takes a lot of memory as it goes on and on

- # chmod 644 /dev/inotify #is needed every time I reboot

But all in all, having used a previous version some 9 months ago, during a couple of weeks, was so amazing that I _had_ to have it installed.

Very happy to have succeeded!

where did all my HD space go?

find . -maxdepth 2 -type d -print | xargs du -sk | sort -rn | less

Because we can Emacs' it

;; Red Hat Linux default .emacs initialization file ; -*- mode: emacs-lisp -*-

;; Happy hacking short-shortcuts

;; 'Supr' key deletes selected region

;; (pending-delete-mode 1)

;; Don't show the bars

(tool-bar-mode nil)

(menu-bar-mode nil)

;; Title bar shows name of the buffer

(setq frame-title-format '("emacs %*%+ %b"))

;; Uses y/n instead of yes/no

(fset 'yes-or-no-p 'y-or-n-p)

;; Open compressed files in gzip and bzip2 format

(auto-compression-mode 1)

;; WEBLOGGER

;; If you already have a weblog, and your weblog supports RSD

;; (http://archipelago.phrasewise.com/rsd), you can use

;;

;; M-x weblogger-discover-server RET url RET

;;

;; where url is the URL of your weblog. This will set up a

;; ~/.webloggerrc file for you if you let it.

;; (add-to-list 'load-path "/home/avb/instalats/emacs/weblogger")

;; (load-library "/home/avb/instalats/emacs/weblogger/weblogger.el")

;; (load-file "/data2/instalats/emacs/weblogger.el")

;; (global-set-key "\C-cbs" 'weblogger-start-entry)

;; Shows line and column number

(line-number-mode 't)

(column-number-mode 't)

(require 'icomplete)

;; Iseach only char by char

(defun isearch-yank-char ()

"Pull next char from buffer into search string."

(interactive)

(isearch-yank-string

(save-excursion

(and (not isearch-forward) isearch-other-end

(goto-char isearch-other-end))

(buffer-substring-no-properties

(point) (progn (forward-char 1) (point))))))

(define-key isearch-mode-map (kbd "C-f") 'isearch-yank-char)

;; (define-key isearch-mode-map (kbd "C-b") 'isearch-delete-char)

;; (add-to-list 'default-frame-alist '(foreground-color . "black"))

;; (add-to-list 'default-frame-alist '(background-color . "white"))

;; (add-to-list 'default-frame-alist '(cursor-color . "coral"))

;; Adding csde (csharp complete) mode

;; ;; Adding speedbar

;; (add-to-list 'load-path "~/instalats/emacs/speedbar-0.14beta4")

;; (autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)

;; (autoload 'speedbar-get-focus "speedbar" "Jump to speedbar frame" t)

;; (define-key-after (lookup-key global-map [menu-bar tools])

;; [speedbar] '("Speedbar" . speedbar-frame-mode) [calendar])

;; ;; Adding eieio

;; (add-to-list 'load-path "~/instalats/emacs/eieio-0.17")

;; ;; Adding semantic

;; (add-to-list 'load-path "~/instalats/emacs/semantic-1.4.4")

;; (setq semantic-load-turn-everything-on t)

;; (require 'semantic-load)

;; ;; Adding elib

;; (setq load-path (append (list "~/instalats/emacs/elib-1.0/")

;; load-path))

;; ;; Configuration variables here:

;; (setq semantic-load-turn-useful-things-on t)

;; ;; Load CEDET

;; (load-file "~/instalats/emacs/cedet-1.0beta1c/common/cedet.el")

;; (add-to-list 'load-path (expand-file-name "~/instalats/emacs/csharp/csharp"))

;; ;; (require 'csde)

;; ;; End of csde (csharp complete) mode

;; (add-to-list 'load-path "/home/avb/instalats/emacs/nxml/nxml-mode-20031031")

;; (add-to-list 'load-path "/home/avb/instalats/emacs/cperl")

;; (add-to-list 'load-path "/home/avb/instalats/emacs/csharp")

;; (require 'csharp-mode)

;; (load-library "/home/avb/instalats/emacs/nxml/nxml-mode-20031031/rng-auto.el")

;; (autoload 'xml-mode "nxml-mode" "Major mode to edit XML files." t)

;; Set up the keyboard so the delete key on both the regular keyboard

;; and the keypad delete the character under the cursor and to the right

;; under X, instead of the default, backspace behavior.

(global-set-key [delete] 'delete-char)

(global-set-key [kp-delete] 'delete-char)

;; DynamicAbbreviations

;; Description

;; This is one of the coolest functions in emacs. A dynamic abbreviation (dabbrev) is almost like a normal abbreviation that you define, with the following differences:

;; 1. You do not have to define it

;; 2. You need to call the dabbrev-expand command explicitly to use it

;; What it does is to look at the "word" to the left of point and try to expand that word by looking for text in the current buffer, and if not found there, in all open buffers.

;; Did I say that this is extremely cool?

;; Examples

;; Let's say you define

;; thisLongVariableName

;; somewhere in the code. Somewhere further down in the code you want to write the variable name again. Instead of doing this, just type a few letters, for example "this", and then activate the dabbrev-expand command.

;; Instant magic!

;; If the expansion is not what you wanted, you can cycle through all possible expansions by repeatedly executing the command again.

;; This works on all kinds of text in all buffers.

;; (global-set-key (kbd "\M-l") 'dabbrev-expand)

;; (define-key minibuffer-local-map (kbd "\M-l") 'dabbrev-expand)

(global-set-key "\M-g" 'goto-line)

(global-set-key "\C-c\C-c" 'comment-region)

(global-set-key "\M-j" 'other-window)

(global-set-key "\M-m" 'switch-to-buffer)

(global-set-key "\C-c\c" 'compile)

;; ;; Save last session:

;; (desktop-load-default)

;; (setq history-length 250)

;; (add-to-list 'desktop-globals-to-save 'file-name-history)

;; (desktop-read)

;; (setq desktop-enable t)

;; ;; AND run M-x desktop-save before leaving

(defun close-all-files ()

"Kill all buffers that are visiting a file."

(interactive)

(let ((buffers (buffer-list)))

(while buffers

(if (buffer-file-name (car buffers))

(kill-buffer (car buffers)))

(setq buffers (cdr buffers)))))

(defun nuke-all-buffers ()

"kill all buffers, leaving *scratch* only"

(interactive)

(mapcar (lambda (x) (kill-buffer x))

(buffer-list))

(delete-other-windows))

;; turn on font-lock mode

(global-font-lock-mode t)

;; enable visual feedback on selections

(setq-default transient-mark-mode t)

;; always end a file with a newline

(setq require-final-newline t)

;; stop at the end of the file, not just add lines

(setq next-line-add-newlines nil)

(when window-system

;; enable wheelmouse support by default

(mwheel-install)

;; use extended compound-text coding for X clipboard

(set-selection-coding-system 'compound-text-with-extensions))

;; parenthesis highlighting

(show-paren-mode)

;;linux-c-mode linux kernel mode

;; (defun linux-c-mode ()

;; "C mode with adjusted defaults for use with the Linux kernel."

;; (interactive)

;; (c-mode)

;; (setq c-indent-level 8)

;; (setq c-brace-imaginary-offset 0)

;; (setq c-brace-offset -8)

;; (setq c-argdecl-indent 8)

;; (setq c-label-offset -8)

;; (setq c-continued-statement-offset 8)

;; (setq indent-tabs-mode nil)

;; (setq tab-width 8))

(setq c-default-style "linux")

;; (defvar my-c-style nil)

;; (defun my-change-c-style-maybe ()

;; (when my-c-style

;; (c-set-style "Linux")

;; )

;; )

;; LastWave scripts mode setup

(assoc "\\.lws$" auto-mode-alist)

(setq auto-mode-alist (cons '("\\.lws$" . makefile-mode) auto-mode-alist))

;; Diary mode setup

(assoc "\\.ebi$" auto-mode-alist)

(setq auto-mode-alist (cons '("\\.ebi$" . auto-fill-mode) auto-mode-alist))

;; Glade mode set up

(assoc "\\.glade$" auto-mode-alist)

(setq auto-mode-alist (cons '("\\.glade$" . nxml-mode) auto-mode-alist))

;; Csharp mode set up

(assoc "\\.cs$" auto-mode-alist)

(setq auto-mode-alist (cons '("\\.cs$" . csharp-mode) auto-mode-alist))

;; Mail mode set up

(assoc "\\.mbox$" auto-mode-alist)

(setq auto-mode-alist (cons '("\\.mbox$" . mail-mode) auto-mode-alist))

;; Perl mode set up

(assoc "\\.pl$" auto-mode-alist)

(setq auto-mode-alist (cons '("\\.pl$" . perl-mode) auto-mode-alist))

(assoc "\\.pm$" auto-mode-alist)

(setq auto-mode-alist (cons '("\\.pm$" . perl-mode) auto-mode-alist))

;; CPerl Mode for Bioperl and other perly stuff

(defalias 'perl-mode 'cperl-mode)

(load-library "cperl-mode")

;; (autoload 'cperl-mode "cperl-mode" "Another perl mode" t)

;; ; the following line calls hhe's PERL

;; ; mode

;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)

;; (global-unset-key [(begin)])

;; ;; Make F1 invoke help

;; (global-unset-key [f1])

;; (global-set-key [f1] 'man-follow)

(define-key cperl-mode-map "\C-c\C-h" 'cperl-get-help)

(define-key cperl-mode-map "\C-c\C-f" 'cperl-perldoc-at-point)

(custom-set-variables

'(cperl-indent-level 4)

'(cperl-continued-statement-offset 4)

'(cperl-tab-always-indent t)

'(indent-tabs-mode nil)

)

;; perldb.el starts here

(require 'shell)

(defvar perldb-prompt-pattern "^ DB<[0-9]+> "

"A regexp to recognize the prompt for perldb.")

(defvar perldb-mode-map nil

"Keymap for perldb-mode.")

(if perldb-mode-map

nil

(setq perldb-mode-map (copy-keymap shell-mode-map))

(define-key perldb-mode-map "\C-l" 'perldb-refresh))

(defun cperl-run ()

(interactive)

(if (buffer-modified-p)

(if (y-or-n-p "Save buffer? ")

(save-buffer)

(error "Failed to save buffer.")))

(perldb (concat "/usr/local/bin/perl -w "

(buffer-file-name))))

;; (setq Info-default-directory-list

;; (append Info-default-directory-list

;; '("/usr/bin/info")))

;; (setenv "PERL5LIB" (concat (getenv "PERL5LIB")

;; ":/usr/lib/site_perl/5.6.0"))

(defmacro def-perldb (name key &optional doc)

(let* ((fun (intern (concat "perldb-" name))))

(` (progn

(defun (, fun) (arg)

(, (or doc ""))

(interactive "p")

(perldb-call (if (not (= 1 arg))

(concat (, name) arg)

(, name))))

(define-key perldb-mode-map (, key) (quote (, fun)))))))

(def-perldb "s" "\M-s" "Step one source line with display")

(def-perldb "n" "\M-n" "Step one source line (skip functions)")

(def-perldb "c" "\M-c" "Continue with display")

(def-perldb "r" "\C-c\C-r" "Return from current subroutine")

(def-perldb "A" "\C-c\C-a" "Delete all actions")

;; perldb.el ends here

;;python debugger

(custom-set-variables

;; custom-set-variables was added by Custom -- don't edit or cut/paste it!

;; Your init file should contain only one such instance.

'(gud-pdb-command-name "/usr/local/pdb/pdb.py"))

(custom-set-faces

;; custom-set-faces was added by Custom -- don't edit or cut/paste it!

;; Your init file should contain only one such instance.

)

;; Jason's bioperl templates

(defun perl-insert-start ()

"Places #!..perl at the start of the script"

(interactive)

(goto-char (point-min))

(insert "#!/usr/local/bin/perl\n"))

(defun perl-documentation-general (perl-object-name perl-caretaker-name caretaker-email)

"Places standard bioperl object notation headers and footers"

(interactive "sName: \nsName of caretaker: \nsEmail: ")

(insert "# " perl-object-name "\n#\n# Cared for by " perl-caretaker-name " <" caretaker-email ">\n#\n# Copyright " perl-caretaker-name "\n#\n# You may distribute this module under the same terms as perl itself\n\n")

(insert "# POD documentation - main docs before the code\n\n")

(insert "=head1 NAME\n\n" perl-object-name " - DESCRIPTION \n\n")

(insert "=head1 SYNOPSIS\n\nGive standard usage here\n\n")

(insert "=head1 DESCRIPTION\n\nDescribe the object here\n\n")

(insert "=head1 AUTHOR - " perl-caretaker-name "\n\nEmail " caretaker-email "\n\nDescribe contact details here\n\n")

(insert "=head1 CONTRIBUTORS\n\nAdditional contributors names and emails here\n\n")

(insert "=cut\n\n")

(insert "\n# Let the code begin...\n\n")

(insert "use strict;\n")

(insert "\n\n1;")

)

;; #<<<<<

;; print "test ----\n";

;; print Dumper $var;

;; print "\ntest ----\n";

;; #<<<<<

(defun bioperl-object-start (perl-object-name perl-caretaker-name caretaker-email)

"Places standard bioperl object notation headers and footers"

(interactive "sName of Object: \nsName of caretaker: \nsEmail: ")

(insert "\n# BioPerl module for " perl-object-name "\n#\n# Cared for by " perl-caretaker-name " <" caretaker-email ">\n#\n# Copyright " perl-caretaker-name "\n#\n# You may distribute this module under the same terms as perl itself\n\n")

(insert "# POD documentation - main docs before the code\n\n")

(insert "=head1 NAME\n\n" perl-object-name " - DESCRIPTION of Object\n\n")

(insert "=head1 SYNOPSIS\n\nGive standard usage here\n\n")

(insert "=head1 DESCRIPTION\n\nDescribe the object here\n\n")

(insert "=head1 FEEDBACK\n\n=head2 Mailing Lists\n\n")

(insert "User feedback is an integral part of the evolution of this and other\nBioperl modules. Send your comments and suggestions preferably to\nthe Bioperl mailing list. Your participation is much appreciated.\n\n")

(insert " bioperl-l@bioperl.org - General discussion\n http://bioperl.org/MailList.shtml - About the mailing lists\n\n")

(insert "=head2 Reporting Bugs\n\nReport bugs to the Bioperl bug tracking system to help us keep track\nof the bugs and their resolution. Bug reports can be submitted via\nthe web:\n\n")

(insert " http://bugzilla.bioperl.org/\n\n")

(insert "=head1 AUTHOR - " perl-caretaker-name "\n\nEmail " caretaker-email "\n\nDescribe contact details here\n\n")

(insert "=head1 CONTRIBUTORS\n\nAdditional contributors names and emails here\n\n")

(insert "=head1 APPENDIX\n\nThe rest of the documentation details each of the object methods.\nInternal methods are usually preceded with a _\n\n=cut\n\n")

(insert "\n# Let the code begin...\n\n")

(insert "\npackage " perl-object-name ";\n")

(insert "use vars qw(@ISA);\n")

(insert "use strict;\n")

(insert "\n# Object preamble - inherits from Bio::Root::Root\n")

(insert "\nuse Bio::Root::Root;\n\n")

(insert "\n@ISA = qw(Bio::Root::Root );\n\n")

(insert "=head2 new\n\n Title : new\n Usage : my $obj = new "

perl-object-name "();\n Function: Builds a new "

perl-object-name " object \n Returns : an instance of "

perl-object-name "\n Args :\n\n\n=cut\n\n")

(insert "sub new {\n my($class,@args) = @_;\n\n my $self = $class->SUPER::new(@args);\n return $self;\n}\n")

(insert "\n\n1;")

)

(defun bioperl-interface-start (perl-object-name perl-caretaker-name

caretaker-email)

"Places standard bioperl object notation headers and footers"

(interactive "sName of Object: \nsName of caretaker: \nsEmail: ")

(insert "# $Id $\n#\n# BioPerl module for " perl-object-name "\n#\n# Cared for by " perl-caretaker-name " <" caretaker-email ">\n#\n# Copyright " perl-caretaker-name "\n#\n# You may distribute this module under the same terms as perl itself\n\n")

(insert "# POD documentation - main docs before the code\n\n")

(insert "=head1 NAME\n\n" perl-object-name " - DESCRIPTION of Interface\n\n")

(insert "=head1 SYNOPSIS\n\nGive standard usage here\n\n")

(insert "=head1 DESCRIPTION\n\nDescribe the interface here\n\n")

(insert "=head1 FEEDBACK\n\n=head2 Mailing Lists\n\n")

(insert "User feedback is an integral part of the evolution of this and other\nBioperl modules. Send your comments and suggestions preferably to\nthe Bioperl mailing list. Your participation is much appreciated.\n\n")

(insert " bioperl-l@bioperl.org - General discussion\n http://bioperl.org/MailList.shtml - About the mailing lists\n\n")

(insert "=head2 Reporting Bugs\n\nReport bugs to the Bioperl bug tracking system to help us keep track\nof the bugs and their resolution. Bug reports can be submitted via\nemail or the web:\n\n")

(insert " http://bugzilla.bioperl.org/\n\n")

(insert "=head1 AUTHOR - " perl-caretaker-name "\n\nEmail " caretaker-email "\n\nDescribe contact details here\n\n")

(insert "=head1 CONTRIBUTORS\n\nAdditional contributors names and emails here\n\n")

(insert "=head1 APPENDIX\n\nThe rest of the documentation details each of the object methods.\nInternal methods are usually preceded with a _\n\n=cut\n\n")

(insert "\n# Let the code begin...\n\n")

(insert "\npackage " perl-object-name ";\n")

(insert "use vars qw(@ISA);\n")

(insert "use strict;\n\nuse Bio::Root::RootI;\n\n")

(insert "@ISA = qw( Bio::Root::RootI );")

(insert "\n\n1;")

)

(defun bioperl-method (method-name)

"puts in a bioperl method complete with pod boiler-plate"

(interactive "smethod name:")

(insert "=head2 " method-name "\n\n Title : " method-name "\n Usage :\n Function:\n Example :\n Returns : \n Args :\n\n\n=cut\n\n")

;; (insert "sub " method-name "{\n my ($self,@args) = @_;\n")

(insert "sub " method-name "{\n my $self = shift;\n")

(save-excursion

(insert "\n\n}\n"))

)

(defun bioperl-getset (field-name)

"puts in a bioperl method for a get/set method complete with pod boiler-plate"

(interactive "sfield name:")

(insert "=head2 " field-name "\n\n Title : " field-name "\n Usage : $obj->" field-name "($newval)\n Function: \n Example : \n Returns : value of " field-name " (a scalar)\n Args : on set, new value (a scalar or undef, optional)\n\n\n=cut\n\n")

(insert "sub " field-name "{\n my $self = shift;\n\n return $self->{'" field-name "'} = shift if @_;\n return $self->{'" field-name "'};")

(insert "\n}\n"))

(defun bioperl-array-getset (field-name class-name)

"puts in a bioperl method for array get/add/remove methods complete with pod boiler-plate"

(interactive "sarray base object: \nstype of element: ")

(insert "=head2 get_" field-name "s\n\n Title : get_" field-name "s\n Usage : @arr = get_" field-name "s()\n Function: Get the list of " field-name "(s) for this object.\n Example :\n Returns : An array of " class-name " objects\n Args :\n\n\n=cut\n\n")

(insert "sub get_" field-name "s{\n my $self = shift;\n\n return @{$self->{'_" field-name "s'}} if exists($self->{'_" field-name "s'});\n return ();\n}\n\n")

(insert "=head2 add_" field-name "\n\n Title : add_" field-name "\n Usage :\n Function: Add one or more " field-name "(s) to this object.\n Example :\n Returns : \n Args : One or more " class-name " objects.\n\n\n=cut\n\n")

(insert "sub add_" field-name "{\n my $self = shift;\n\n $self->{'_" field-name "s'} = [] unless exists($self->{'_" field-name "s'});\n push(@{$self->{'_" field-name "s'}}, @_);\n}\n\n")

(insert "=head2 remove_" field-name "s\n\n Title : remove_" field-name "s\n Usage :\n Function: Remove all " field-name "s for this class.\n Example :\n Returns : The list of previous " field-name "s as an array of\n " class-name " objects.\n Args :\n\n\n=cut\n\n")

(insert "sub remove_" field-name "s{\n my $self = shift;\n\n my @arr = $self->get_" field-name "s();\n $self->{'_" field-name "s'} = [];\n return @arr;\n}\n\n"))

(defun bioperl-abstract-method (method-name)

"puts in a bioperl abstract method for interface classes"

(interactive "smethod-name:")

(save-excursion

(insert "=head2 " method-name "\n\n Title : " method-name "\n Usage :\n Function:\n Example :\n Returns : \n Args :\n\n\n=cut\n\n")

(insert "sub " method-name "{\n my ($self) = @_;\n\n $self->throw(\"Abstract method " method-name " implementing class did not provide method\");\n")

(insert "\n\n}\n")

)

)

;; Still not working :-(

(setq perl-mode-hook

'(lambda ()

(define-key perl-mode-map "\C-c\C-h" 'perl-insert-start)

(define-key perl-mode-map "\C-c\C-b" 'bioperl-object-start)

(define-key perl-mode-map "\C-c\C-i" 'bioperl-interface-start)

(define-key perl-mode-map "\C-c\C-v" 'bioperl-getset)

(define-key perl-mode-map "\C-c\C-r" 'bioperl-arrray-getset)

(define-key perl-mode-map "\C-c\C-b" 'bioperl-method)

(define-key perl-mode-map "\C-c\C-a\C-m" 'bioperl-abstract-method)

(define-key perl-mode-map "\C-c\C-z" 'compile)

(define-key perl-mode-map [menu-bar] (make-sparse-keymap))

(define-key perl-mode-map [menu-bar p]

(cons "BioPerl" (make-sparse-keymap "BioPerl")))

(define-key perl-mode-map [menu-bar p perl-script-start]

'("Insert script template" . perl-script-start))

(define-key perl-mode-map [menu-bar p bioperl-object-start]

'("bioperl object template" . bioperl-object-start))

(define-key perl-mode-map [menu-bar p bioperl-interface-start]

'("bioperl interface template" . bioperl-interface-start))

(define-key perl-mode-map [menu-bar p bioperl-getset]

'("bioperl field func" . bioperl-getset))

(define-key perl-mode-map [menu-bar p bioperl-array-getset]

'("bioperl array get/add/remove" . bioperl-array-getset))

(define-key perl-mode-map [menu-bar p bioperl-method]

'("bioperl method" . bioperl-method))

))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; C# Mode support

;;;

;; (add-to-list 'load-path "/home/avb/instalats/emacs/CsMode4_PlusHtml_21/site-lisp")

;; (load-library "/home/avb/instalats/emacs/CsMode4_PlusHtml_21/site-lisp/cc-mode.el")

(autoload 'csharp-mode "cc-mode")

(c-add-style "myC#Style"

'("C#"

(c-basic-offset . 2)

(c-comment-only-line-offset . (0 . 0))

(c-offsets-alist . (

(c . c-lineup-C-comments)

(inclass . 0)

(namespace-open . +)

(namespace-close . +)

(innamespace . 0)

(class-open . +)

(class-close . +)

(inclass . 0)

(defun-open . +)

(defun-block-intro . 0)

(inline-open . +)

(inline-close . 0)

(statement-block-intro . 0)

(statement-cont . +)

(brace-list-intro . +)

(topmost-intro-cont . 0)

(block-open . +)

(block-close . 0)

(arglist-intro . +)

; (arglist-cont . 0)

(arglist-close . 0)

))

))

(defun my-csharp-mode-hook ()

(cond (window-system

(turn-on-font-lock)

(c-set-style "myC#Style")

)))

(add-hook 'csharp-mode-hook 'my-csharp-mode-hook)

(setq auto-mode-alist

(append '(

("\\.cs$" . csharp-mode)

) auto-mode-alist ))

;; (setq compilation-error-regexp-alist

;; (append '(

;; ;C# Compiler

;; ;t.cs(6,18): error SC1006: Name of constructor must match name of class

;; ;

;; ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)[,]\\([0-9]+\\)): \\(error\\|warning\\) CS[0-9]+:" 1 3 4)

;; )

;; compilation-error-regexp-alist))

;; ;;;

;; ;;; C# Mode support

;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; extension to mode mapping

;

Learning Emacs 3rd ed

Wow! Learning Emacs 3rd ed is going to be very useful: there are very nice explanations on things I have always wanted to know. I'm pretty sure I will be able to give it a great shot.

uhmm, linux drivers

http://ifp-driver.sourceforge.net/

cnet review iRiver IFP-790

http://reviews.cnet.com/iRiver_iFP-790/4505-6490_7-30888962.html

uhmmm, ogg support

iRiver IFP-790

Froogling around

my froogle wish list

Redhat Magazine's D-BUS article

I found out a very nice article about dbus in jan03 redhat magazine. Worth to read. Find it here:

http://www.redhat.com/magazine/003jan05/features/dbus/

.

testing (3)

The cabin took too long. Trying tomorrow...

testing (2)

[tests]$ cat /proc/cpuinfo

processor : 0

vendor_id : AuthenticAMD

cpu family : 6

model : 10

model name : AMD Athlon(tm) XP 2400+

stepping : 0

cpu MHz : 1791.258

cache size : 512 KB

[tests]$ rpm -qi mono

package mono is not installed

[tests]$ rpm -qi mono-core

Name : mono-core Relocations: (not relocatable)

Version : 1.0.5 Vendor: Dag Apt Repository, http://dag.wieers.com/apt/

Trying dotray under mono

[tests]$ make

mono ../dotray.exe office320x240.xml

Parsing: 0.311151 s

BSP: 3 m 1.77442099999999 s

Objects: 10085

Voxels: 2490

obj/vox: 4.05020080321285

Rendering line 239 of 239

Rendering: 19.699512 s

mono ../dotray.exe office640x480.xml

Parsing: 0.143667 s

BSP: 3 m 3.900992 s

Objects: 10085

Voxels: 2490

obj/vox: 4.05020080321285

Rendering line 479 of 479

Rendering: 1 m 20.140416 s

mono ../dotray.exe soda320x240.xml

Parsing: 0.312312 s

BSP: 6 m 9.951166 s

Objects: 10060

Voxels: 2239

obj/vox: 4.49307726663689

Rendering line 239 of 239

Rendering: 33.82212 s

mono ../dotray.exe cabin320x240.xml

Parsing: 1.070149 s

head, tail and cat

[$] head file

prints first 10 lines

[$] tail file

prints last 10 lines

[$] head -n 4 file

prints first 4 lines

[$] tail -n 4 file

prints last 4 lines

[$] head -c 200 file

prints first 200 characters

[$] tail -c 200 file

prints last 200 characters

[$] head file1 file2 file3

will print the specified number of lines from each file separating them with the header beginning with ==> followed by the name of the file.

[$] cat file1 file2 file3 | head or [$] head -q file1 file2 file3

will print the specified number of lines from the input stream made up of the files listed after the cat command, but treated as one single file.

[$] tail -f /var/log/access.log

-f option tells tail to keep on reading data from the specified file and feeding it to its own standard output.

[$] cat file | head -c 1788 | tail -c 789

to read a chunk of 789 bytes starting from byte 1000 counted from the beginning of that file

[$] tac file (Note that tac is cat spelled backwards.)

to reverse the order of lines in a file

find commands

find . -name '*.c' | xargs grep 'write' # find *.c files with 'write'

find / -name csh -print # find file named "csh" anywhere

find . -name '*.c' -print # find all files ending in ".c"

find ~ -name a.out -print # find all a.out files

find ~ -name core -exec /bin/rm \{\} \; # find all core files and remove

find ~ -type f -exec chmod 0444 \{\} \; # make all plain files public

find ~ -type d -exec chmod 0755 \{\} \; # make all directories public

find ~ \( -name a.out -o -name '*.o' \) -atime +14 -exec /bin/rm \{\} \;

# get rid of all files a.out or

# ending in .o which haven't been

# accessed in 14 days

find ~ -name a.out -atime +7 -print # print all a.out's unused in last week

find ~ -size 500000c -print # print names of files that are bigger than 500,000 characters

Backups in several disks

[~] split -b 650000k file.tar.gz f

Will produce faa, fab, fac, fad, ...

To join them back:

[~] cat fa* > recoveredfile.tar.gz

If your disks are bigger than 650000k, change the size to your desired one.

Spanish government to coordinate Linux distros in schools

It seems that the government wants to aggregate efforts of the now disperse flavours in Linux distros between the different Spanish comunidades autónomas:

Most of the comunidades are now using Linux in schools or preparing to do so. Only some north-western comunidades and Murcia are still not looking at Linux in the school computers.

Add an extra hard drive to a linux box

--------------------------------------------------------------------------------

ADD AN EXTRA HARD DRIVE

--------------------------------------------------------------------------------

#run fdisk

/sbin/fdisk /dev/hdb

# inside fdisk, create new partition

n

# primary

p

# with default sizes (all HD) RET RET

#Write and save partition table

w

#Then format the partition to ext3 (will take some time)

/sbin/mkfs -t ext3 /dev/hdb1

#Mount partition

mkdir /opt2

mount -t ext3 /dev/hdb1 /opt2

#To add definitively, edit /etc/fstab

LABEL=/ / ext3 defaults 1 1

LABEL=/boot /boot ext3 defaults 1 2

none /dev/pts devpts gid=5,mode=620 0 0

none /proc proc defaults 0 0

none /dev/shm tmpfs defaults 0 0

/dev/hda2 swap swap defaults 0 0

/dev/hdb1 /opt2 ext3 defaults 1 2

/dev/cdrom /mnt/cdrom iso9660 noauto,owner,kudzu,ro 0 0

/dev/fd0 /mnt/floppy auto noauto,owner,kudzu 0 0

--------------------------------------------------------------------------------

cdrecord-ProDVD basics

There is a key that is called using the wrapper, like this:

/usr/local/bin/cdrecord-wrapper.sh -v -eject dev=ATAPI:0,1,0 /var/backups/dvd3.iso

Some people have problems with TAO mode, and use SAO instead...

Red meat is strongly linked to cancer

Diet experts urge move to poultry, fish and beans after results of long-term study.

[...]

Members of the high risk group ate around 55-85 grams of red or processed meat each day, roughly equivalent to a medium sized burger. Red meat includes burgers, meatloaf, beef, liver and pork. Processed meat includes bacon, sausage, hot dogs, ham, salami and lunch meat.

[...]

"Fortunately, substituting pistachio-encrusted salmon and gingered brown basmati pilaf for roast beef with mashed potatoes and gravy is not a culinary sacrifice," Willett writes in an editorial that accompanies the study.

Giving some Ubuntus

http://iglu-cat.net/viewtopic.php?t=12

with some catalan-version (ca_ES) of other FLOSS...

Where to buy iRiver iFPs in Barcelona?

Don't hesitate to comment if you know any good places!

Lawrence Lessig

http://randomfoo.net/oscon/2002/lessig/free.html

catalan saying

"És la feina del burgés, menjar, geure i no fer res" .-

iRiver iFP-180T

Player MP3 iFP-180T

The iFP-180T is a digest of technology in a 32 g body: encode directly from the integrated FM radio source or your voice thanks to dictaphone function. Around your neck or in your pocket, it can contain up to 20 hours of music with 1 AA battery.

muvo micro n200?

00989159 MUVO MICRO N200 1 GB BLANCO CREATIVE LABS 137,68 € 22.908 Pts.

00989170 MUVO MICRO N200 128 MB BLANCO CREATIVE LABS 61,38 € 10.212 Pts.

00989168 MUVO MICRO N200 256 MB BLANCO CREATIVE LABS 79,52 € 13.231 Pts.

00989161 MUVO MICRO N200 512 MB BLANCO CREATIVE LABS 97,83 € 16.278 Pts.

Apple iPod Shouflé but with voice recorder

I was thinking in buying a sound reproducer like the new Apple iPod Choufle, but I would like it with voice recorder, to keep track of notes or record meetings.

Creative MuVo NMicro N200 as an example.

Low MBs needed. Ogg support as a bonus.

Any suggestions?

Ximian Evolution shortcuts

(]) or (.) to jump to the next unread message. ([) or (,) goes to the previous unread messages

Press the Spacebar to move down a page. Press Backspace to move up a page

Bold title with gnome-blog?

Gnome-blog prints the title in regular non-bold font sytle...

Uhmmm...

Recovered gnome-blog!

Seth has updated gnome-blog to 0.8 with improved functionalities, and build rpms for FC3.

Found out that they are based on python 2.4 (abi), but also found out that Colin Charles has repackaged gnome-blog for python 2.3, the regular python used in FC3.

Apple MacWorld 2005 http://stream.qtv.apple.com/events/jan/macworld/2005/macworld_300_100_56_ref.mov Their Quicktime support for Linux sucks

gnome-launch-box http://micke.hallendal.net/gnome-launch-box/ This is gonna rock! Keep it up!

my (mostly used) bash shortcuts Crtl-a and Crtl-e: start and end of line Alt-d and Ctrl-w: delete previous or last word Alt-f and Alt-b: move to next or previous word

rsyncing an Ubuntu CD rsync -avz --progress --stats rsync://releases.ubuntu.com/releases/.pool/warty-install-i386.iso .

Amazon.co.uk recommendations Amazon.co.uk is recommending me to buy "Barbie - The Princess And The Pauper" in their VHS section. It seems that their system is still far away from having enough information about me to hit on the nail on my media interests :-p

Jaw dropping Linux-based gadget: Archos PMA400 Operating system: Linux Qtopia™ with embedded ARCHOS multimedia applications. http://www.archos.com/products/overview/pma_400_tech_specs.html

In the release 20041210 of simcoal2: Number of independent chromosome segments: This number refers to the number of independent chromosome segments that needs to be simulated. With the release of SIMCOAL2 distributed before the 10 12 2004 it was not possible to simulate different chromosomes with different features. In the current release of SIMCOAL ver 2, it is now possible to simulate several chromosomes with different kind and numbers of markers, different patterns of recombination rates, different mutation rates (see the example given below). Mystique's HD decision to retire causes commotion among direct colleagues Backing up all the data in hda and important data hdb from mystique: it seems that hda has decided to retire, so I will have to change it for a new HD. Created a launching script for simcoal -------------------------------------------------------------------------------- variscan/variscan_devel/scripts/launch_simcoal.PLS: DESCRIPTION Launch a simcoal process, send an email when job finished. Requires a linux machine with sendmail and Mail::Sendmail. Put this script in the same directory where simcoal binary and an example.par file are present. -------------------------------------------------------------------------------- It seems to be working with my gmail account. I've tried with the university email account, to no avail. Yet another score for the IT people in my university ("Comunicacions UB"). Translating iglubox to en_US The reason I do this is double: (1) To demonstrate that having a LUG website in the local language is not a matter of discrimination. (2) To demonstrate to those that think for other people having a LUG website in the local language is a matter of discrimination, that they are just crazy people that make Jesus child cry and kill an angel in heaven everytime they throw shit on that LUG's people. (*errrrhh*, not really)

Happy new year to you all!